Variable Objet VBA

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:

---

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

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

Code:

---

1 2 3 4

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

---

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.

bonsoir

Code:

---

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