Discussion :

[jesspaire]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[babaothe]

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/

[jesspaire]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[babaothe]

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

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

[jesspaire]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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