With Sheets("Rex_Sauvegarde")
LastLig = .Cells(.Rows.Count, 4).End(xlUp).Row + 1
For i = 0 To 15
If i <> 5 Then .Range("D" & LastLig+i).Value = Me.Controls("TextBox" & i + 1 & "B")
Next i
i = ListBox2.ListCount
If i > 0 Then
For j = 2 To 5
.Range(.Cells(LastLig, 9 + j), .Cells(LastLig + i, 9 + j)) = Me.Controls("ListBox" & j).List
Next j
End If
End With
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
If i > 0 Then
For j = 2 To 5
.Range(.Cells(LastLig, 9 + j), .Cells(LastLig + i, 9 + j)) = Me.Controls("ListBox" + j).List
Next j