Command Button dans userform

Bonsoir,

J'ai créé un userform avec 81 CdeButton
Ce que je voudrais faire c'est une boucle qui traite tous les CdeButton

Exemple

Code:

---

1 2 3 4

For NbButton = 1 to 81 Userform.CdeButton(NbButton).caption = Texte(NbButton) Next NbButton

---

mais ca ne marche pas
Existe t il une solution ?
Merci
Christine

salut

si tes 81 boutons de commande situés sur ton userform ont bien pour noms cdebutton1, cdebutton2, .... cdebutton81,
tu devrais trouver ta solution en message n° 2 dans une très récente discussion ici :
http://www.developpez.net/forums/d99...efinie-boucle/

Oui j" avais vu cette discussion et je m'en suis donc inspiré

Code:

---

1 2 3 4

For NbButton = 1 To 81 Touche.CdeButton(NbButton).Caption = NomCaption(NbButton) Next NbButton

---

mes boutons s'appellent CdeButton1, CdeButton2, ..., CdeButton81

a l'execution j ai une erreur de compilation
Membre de methode ou de donnees introuvable

J aimerais savoir ou ca coince

Citation:

---

Envoyé par jesspaire

Oui j" avais vu cette discussion et je m'en suis donc inspiré

---

Ben non, tu ne t'en es pas du tout "inspiré" ! 8O
Ton code n'utilise pas du tout la collection Controls !

Tu as raison j'avais zappé Controls("CdeButton" & NbButton)

Code:

---

1 2	Touche.Controls("CdeButton" & NbButton).Caption = NomCaption(NbButton)

---

Je n'ai plus les yeux en face des trous....
Ca marche maintenant
Je te remercie
Bonne Nuit
Chrsitne