remplir des textbox d'un userform

[Phiphi39]

Bonjour,

je souhaiterais faire une boucle me permettant de remplir automatiquement des textbox dans mon userform.

Pour m'y retrouver, j'ai renommer les TextBox en Toto.

Ainsi Textbox1 devient Toto1 et ainsi de suite jusqu'à toto60

j'ai tenté :
for i=1 to 60
Saisie.toto(i).Value = Feuil3.Cells(i+2, 4).Value
Next i
et ça ne fonctionne pas.

Je pense que j'ai compris que mon soucis proviens du fait que je ne parviens pas à faire une boucle qui ajoute un nombre incrémenté à toto.
Help !!! 😛

 

[Pierrot93]

Re : remplir des textbox d'un userform

Bonjour phiphi

essaye peut être ainsi, à utiliser dans le module de l'usf :

For i = 1 To 60
Me.Controls("toto" & (i)).Value = Feuil3.Cells(i + 2, 4).Value
Next i

bonne soirée
@+

 

[phlaurent55]

Re : remplir des textbox d'un userform

Bonjour phiphi,

essaie en remplaçant: Saisie.toto(i).Value
par : Saisie.toto&i.Value

à+
Philippe

 

[Phil39]

Re : remplir des textbox d'un userform

Excusez moi, je ne comprend pas...
Je dois mal utiliser vos solutions je pense.

Ce p p'tit bout de code fonctionne :

Private Sub Site1_Click()
Saisie.Seuil1.Value = Feuil3.Cells(2, 4).Value
ChoixSite.Hide
Saisie.Show
End Sub


Mais si je fais :

Private Sub Site1_Click()
for i=1 to 60
Saisie.Seuil& i.Value = Feuil3.Cells(i+2, 4).Value
Next i
ChoixSite.Hide
Saisie.Show
End Sub

J'obtiens Erreur de compilation : membre de méthode ou de données introuvable.

Quand à la première solution (celle de Pierrot93), je ne sais pas ou la mettre.
Dans un Sub userform1_Initialize() ?

 

[Pierrot93]

Re : remplir des textbox d'un userform

Re

as tu essayé la proposition que je t'avais faite :

For i = 1 To 60
Me.Controls("toto" & (i)).Value = Feuil3.Cells(i + 2, 4).Value
Next i

 

[Phil39]

Re : remplir des textbox d'un userform

Re

as tu essayé la proposition que je t'avais faite :

For i = 1 To 60
Me.Controls("toto" & (i)).Value = Feuil3.Cells(i + 2, 4).Value
Next i

Je voudrais bien mais je ne sais pas où mettre le code... 😕
Dans un userform_Initialize() ?

 

[Pierrot93]

Re : remplir des textbox d'un userform

Bonjour,

comme précisé dans le post #2, à utiliser dans le module de l'usf.... En lieu et place du code que tu as déjà.... Si ton code est dans un autre module, remplace :

Me.Controls("toto" & (i)).

par :

NomUSF.Controls("toto" & (i)).

bonne journée
@+

 

[Phil39]

Re : remplir des textbox d'un userform

Bonjour,

comme précisé dans le post #2, à utiliser dans le module de l'usf.... En lieu et place du code que tu as déjà.... Si ton code est dans un autre module, remplace :

Me.Controls("toto" & (i)).

par :

NomUSF.Controls("toto" & (i)).

bonne journée
@+

Merci beaucoup Pierrot !😛