AlainProviste
XLDnaute Nouveau
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
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