Ce code est-il correct ?

[castor30]

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

 

[vgendron]

hello
bah je dirais qu'il te suffit de tester.. si ca bug, c'est pas bon
si ca bug pas mais que ca fait pas ce que tu veux. c'est pas bon non plus
sinon, c'est bon..
et on va pas pouvoir le tester pour toi... pas de fichier....

 

[castor30]

Bonjour vgendro,
Content de te revoir.
Je te met le fichier.
Mes demandes sont sur la feuille Usf
En te remerciant.