Autres "Remplissage" de textbox

[AlainProviste]

Bonjour,
je souhaiterais connaitre le code qui me permettrait, à partir d'une feuille de calcul excel (A1 à A80) , de récupérer les données numériques et les transférer dans 80 textbox sans avoir à copier 80 lignes de code !

J'ai tenté ce qui suit mais ça ne fonctionne pas.

Option Explicit
Dim x As Integer
Private Sub CommandButton1_Click()
For x = 1 To 80
Me.Controls("TextBox" & x).Value = Sheets("feuil1").Range("A1:A80).value
Next x
End Sub

En vous remerciant par avance pour votre aide.
Cordialement

 

[Jacky67]

Bonjour,
je souhaiterais connaitre le code qui me permettrait, à partir d'une feuille de calcul excel (A1 à A80) , de récupérer les données numériques et les transférer dans 80 textbox sans avoir à copier 80 lignes de code !

J'ai tenté ce qui suit mais ça ne fonctionne pas.

Option Explicit
Dim x As Integer
Private Sub CommandButton1_Click()
For x = 1 To 80
Me.Controls("TextBox" & x).Value = Sheets("feuil1").Range("A1:A80).value
Next x
End Sub

En vous remerciant par avance pour votre aide.
Cordialement

Bonjour,
Cette ligne comme ceci

Me.Controls("TextBox" & x).Value = Sheets("Feuil1").Range("A" & x).Value

A condition que les textbox soient numerotés dans l'ordre 1 à 80

 

[Compte Supprimé 979]

Bonjour AlainProviste 😁

C'était presque ça

Me.Controls("TextBox" & x).Value = Sheets("feuil1").Range("A" & x).value

Edit : oups je n'avais pas vu ton poste Jacky67, bonjour et désolé 😜

A+

 

[AlainProviste]

Bonjour AlainProviste 😁

C'était presque ça

Me.Controls("TextBox" & x).Value = Sheets("feuil1").Range("A" & x).value

A+

Merci à Jacky67 et BrunoM45, c'est parfait.