Bonjour,
Sur une feuille de calcul nommée "Accueil", j'ai placé plusieurs boutons d'option Bouton_A, Bouton_B...à l'aide de la "Boîte à Outils Contrôles".
Je souhaite leur affecter une propriété "Visible = False"
Voici mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Public Sub COUCOU()
For Each btn In Array("Bouton_A", "Bouton_B")
      Sheets("Accueil").Controls(btn).Visible = False
Next btn
End Sub
Lors de l'exécution de cette macro, un message d'erreur est apparu
"Cet objet ne gère pas cette propriété ou méthode (erreur 438)"

J'ai essayé une autre variante
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Public Sub COUCOU()
For Each btn In Array(Bouton_A, Bouton_B)
      Sheets("Accueil").btn.Visible = False
Next btn
End Sub
Même message d'erreur

Remarques :
- Ma feuille comprend 10 boutons
- J'ai 8 boutons à masquer, mais j'ai préféré simplifier ici.
- Le code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Sheets("Accueil").Bouton_A.Visible = False
fonctionne bien, il faut le recopier 7 fois, mais bon...

Quelqu'un a-t-il une solution pour corriger ce petit problème de syntaxe.
Merci. Cordialement. Marcel.