Bonjour a tous !
J'ai ce code qui transpose les résultats d'un userform vers une ligne...je voudrais qu'il se transpose vers une colonne
QUelqu'un a une idée ??
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Base RO")
'find first empty row in database
iRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row
ws.Cells(iRow, 1).Value = "Création"
ws.Cells(iRow, 2).Value = Date
ws.Cells(iRow, 3).Value = Me.G1.Value
ws.Cells(iRow, 4).Value = Me.G3.Value
ws.Cells(iRow, 5).Value = Me.G4.Value
ws.Cells(iRow, 6).Value = Me.G5.Value
ws.Cells(iRow, 7).Value = Me.G6.Value
ws.Cells(iRow, 8).Value = Me.G8.Value
ws.Cells(iRow, 9).Value = Me.G7.Value
ws.Cells(iRow, 10).Value = Me.G2.Value
ws.Cells(iRow, 11).Value = Me.G9.Value
Merci d'avance
J'ai ce code qui transpose les résultats d'un userform vers une ligne...je voudrais qu'il se transpose vers une colonne
QUelqu'un a une idée ??
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Base RO")
'find first empty row in database
iRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row
ws.Cells(iRow, 1).Value = "Création"
ws.Cells(iRow, 2).Value = Date
ws.Cells(iRow, 3).Value = Me.G1.Value
ws.Cells(iRow, 4).Value = Me.G3.Value
ws.Cells(iRow, 5).Value = Me.G4.Value
ws.Cells(iRow, 6).Value = Me.G5.Value
ws.Cells(iRow, 7).Value = Me.G6.Value
ws.Cells(iRow, 8).Value = Me.G8.Value
ws.Cells(iRow, 9).Value = Me.G7.Value
ws.Cells(iRow, 10).Value = Me.G2.Value
ws.Cells(iRow, 11).Value = Me.G9.Value
Merci d'avance