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
 
C

Compte Supprimé 979

Guest
Bonjour AlainProviste 😁

C'était presque ça
VB:
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+
 
Dernière modification par un modérateur:

Statistiques des forums

Discussions
312 920
Messages
2 093 639
Membres
105 767
dernier inscrit
fthev71