Discussion :

[blade15]

Bonjour,
J'ai dans une feuille de calcul 10 label.
Leurs nom sont : Label1 à Label10.

Je voudrais effectuer une boucle pour qu'ils s'affichent ou se masquent.
Pour cela j'ai mis dans une feuille nommé ("Champ") la liste de mes label dans la colonne A.

j'ai fait :

Code :

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

1
2
3
4
5
6
cpt = 1 
do while cpt < 11
nomlabel = worksheets("Champ").range("a" & cpt")
nomlabel.visible = false
cpt= cpt+1
loop

Il me dit que l'objet est incorrect. Pouvez vous me dire comment je peux avoir des noms d'objet en Variable ?
Merci d'avance

[Jean-Philippe André]

bonjour blade, bienvenu sur DVP
ta boucle do until est foireuse, remplace là par une boucle for :

Code :

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

1
2
3
4
for cpt = 1 to 10
nomlabel = worksheets("Champ").range("a" & cpt)
Controls("Label" & nomlabel).visible = false
next cpt

[blade15]

Bonjour,
Et merci pour ta réponse.
Par contre quand je lance mon code j'ai une erreur sur la ligne controls.
Il me dit "Erreur de Compilation - Sub ou Function non définie"

Merci pour ton aide.

[SilkyRoad]

bonsoir

Code :

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

1
2
3
4
5
    Dim i As Byte
 
    For i = 1 To 3
        ActiveSheet.OLEObjects("Label" & i).Visible = False
    Next i

Les objets type OleObject


bonne soirée
michel