Bonjour Vin, le Forum
Oui ce n'est pas compliqué, et je le propose souvent dans mes démos...
En fait tu n'étais pas si loin que çà...
Private Sub CommandButton1_Click()
Dim i As Byte
For i = 1 To 6
Cells(i, 1) = Controls("TextBox" & i)
Next
End Sub
On peut évidemment gérer aussi un décallage pour les cellules et éventuellement même deux colonnes comme ceci (les 10 premières TextBox iront en "A", les 10 suivante iront en "B")
Private Sub CommandButton1_Click()
Dim i As Byte, C As Byte, L As Integer
For i = 1 To 20
C = IIf(i < 11, 1, 2)
L = IIf(i < 11, 0, -10)
Cells(i + L, C) = Controls("TextBox" & i)
Next
End Sub
Bonne Soirée
@+Thierry