Boucle FOR

[Pepitoww]

Bonjour à tous,
J'ai une petite question concernant les boucles for en VBA

Ex:

For i = 1 To NbCol
        Ch[i].Visible = True
        Ch[i].Caption = LCase(Cells(1, i)) & " :"
Next i

Ou Ch sont des labels numérotés.
Malheureusement celà ne fonctionne pas comme dans d'autres langages, comment peut-on arriver au résultat escompté ?

Merci

 

[pierrejean]

Re : Boucle FOR

bonjour Pepitoww

La boucle n'y est pour rien
Des labels sont des controles

A tester

For i = 1 To NbCol
        Controls("Ch" & n).Visible = True
        Controls("Ch" & n).Caption = LCase(Cells(1, i)) & " :"
Next i

 

[Hulk]

Re : Boucle FOR

Hello,

Comme ceci peut-être

For i = 1 To NbCol
    Controls("Label" & i).Visible = True
    Controls("Label" & i).Caption = LCase(Cells(1, i)) & " :"
Next i

Ou

For i = 1 To NbCol
    Controls("Ch" & i).Visible = True
    Controls("Ch" & i).Caption = LCase(Cells(1, i)) & " :"
Next i

Edit :

Oups slt Pierrejean... petite incohérence sur ton code...

Bonne soirée à tous !

 

[Pepitoww]

Re : Boucle FOR

D'accord merci de votre réponse, pour les TextBox j'imagine donc que c'est la même manip' ?

 

[Hulk]

Re : Boucle FOR

Re,

Exact !