castor30
XLDnaute Occasionnel
Bonjour,
Étant sous Excel 2003, pouvez-vous me dire si ce code est correct, envoi des Textbox vers ma feuille Base
Sub Transfert()
Dim li%, i%
With Worksheets("Feuil3")
li = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
For i = 1 To 21
If Controls("Textbox " & i).Value <> "" Then .Cells(li, i) = Controls("Textbox " & i).Value
Next i
End With
End Sub
Je vous remercie
Étant sous Excel 2003, pouvez-vous me dire si ce code est correct, envoi des Textbox vers ma feuille Base
Sub Transfert()
Dim li%, i%
With Worksheets("Feuil3")
li = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
For i = 1 To 21
If Controls("Textbox " & i).Value <> "" Then .Cells(li, i) = Controls("Textbox " & i).Value
Next i
End With
End Sub
Je vous remercie