Autres "Remplissage" de textbox

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
 

Jacky67

XLDnaute Barbatruc
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
VB:
Me.Controls("TextBox" & x).Value = Sheets("Feuil1").Range("A" & x).Value
A condition que les textbox soient numerotés dans l'ordre 1 à 80
 

Discussions similaires

Statistiques des forums

Discussions
294 444
Messages
1 938 542
Membres
188 914
dernier inscrit
Durludrude