Transfert de données d'un formulaire

[PdePouldon]

Bonjour,

J'ai un formulaire avec 25 données numériques à récupérer dans un tableau. J'utilise le contrôle de zone de texte TextBox. Je voudrais éviter d'écrire 25 lignes avec TextBox1,TextBox2... et utiliser une boucle. Mais comment indicer TextBox. J'ai essayé quelque chose du type ci-dessous mais sans succès😕 Quelle syntaxe utiliser ou quelle autre outil de contrôle ?

Merci à ceux qui se pencheront sur ce problème.

Pierre

Private Sub CommandButton1_Click()
derlig = [A65000].End(xlUp).Row + 1
For i = 1 To 4
Cells(derlig, i) = Me.TextBox & i
Next i
End Sub

 

[Cousinhub]

Re : Transfert de données d'un formulaire

Bonsoir,

essaie avec ceci :

Private Sub CommandButton1_Click()
derlig = [A65000].End(xlUp).Row + 1
For i = 1 To 4
Cells(derlig, i) = Me.Controls("TextBox" & i)
Next i
End Sub

 

[PdePouldon]

Re : Transfert de données d'un formulaire

Bonsoir,

essaie avec ceci :

Private Sub CommandButton1_Click()
derlig = [A65000].End(xlUp).Row + 1
For i = 1 To 4
Cells(derlig, i) = Me.Controls("TextBox" & i)
Next i
End Sub

Je viens d'essayer. Cela fonctionne comme je veux. Merci encore🙂