boucles sur caption de checkbox

[fifi]

Bonjour B) ;

je cherche à renomer label et check box d'un useform.... et une boucle aurait été sympa. plustot que de faire 25 fois le même copié colé...

Dim I As Variant
    
    Gestion.Label1.Caption = Worksheets('login').Cells(I, 1)
        I = I + 1
    Gestion.Label2.Caption = Worksheets('login').Cells(I, 1)
        I = I + 1

j'ai essayer de faire une bcoule comme ceci mais bon ...il me manque des élement je pense
si je pouvais apprendre la technique pour travailler avec les objets ca m'arrangerai beaucoup :woohoo:

Dim I As Variant
For I = 1 to 25
    Gestion.Label(I).Caption = worksheets('login').Cells(I, 1)
Next I

merci

 

[Robert]

Bonjour Fifi, bonjour el forum,

Essaie comme ça :

Dim I As Byte
For I = 1 to 25
Gestion.Controls('Label' & I).Caption = WorkSheets('login').Cells(I, 1)
Next I

 

[fifi]

nikel...
j'étais pas loin ..
ca va m'avancer énormément

 

[Fifi]

oups désolé mais ca ne marche.
mes checkbox et labels sont dans un useforme (Gestion)est-ce que ca vient de là?

 

[Robert]

Bonjour Fifi, bonjour le forum,

Le code est correct si ton Userform s'apelle Gestion. C'est si il s'appellait différemment que ça planterait. Par contre dans ton premier post tu ne parlais que de Labels et pas de CheckBoxes ??? Il faut aussi bien sûr qu'il existe autant de label que la boucle : Label1, Label2, ..., Label25. Sinon ça plante.
Bref, ton fichier en pièce jointe serait le bienvenu pour pouvoir continuer à t'aider.