Discussion :

[MarcelG]

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.

[diude54]

Essai comme ceci:

Code :

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

1
2
3
4
5
6
7
Public Sub COUCOU()
Dim Tableau
Tableau=Array("Bouton_A", "Bouton_B")
For i=0 to Ubound(Tableau)
      Sheets("Accueil").Controls(Tableau(i)).Visible = False
Next i
End Sub

[Fvandermeulen]

Salut,
Ceci sera peut-être une piste pour toi...

Code :

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

1
2
3
4
5
6
7
8
9
Sub Hide()
 
Dim Btn As Shape
 
For Each Btn In ThisWorkbook.Sheets("sheet1").Shapes
    Btn.Visible = False
Next Btn
 
End Sub

Attention, en l'état il n'y a pas de distinction de l'objet, si tu as d'autres formes elles seront également masquées.

A+

[MarcelG]

Pour Diude
Même message d'erreur

Pour FVandermeulen

Ton code semble considérer tous les boutons. Or, je ne veux en sélectionner seulement 8 sur 10. Je pense donc être obligé de déclarer un Tableau.

Merci à tous les deux.

[Fvandermeulen]

Re,
J'ai bien dis que c'était une piste, j'ai pas testé mais une boucle avec le numéro de la forme devrait le faire, exemple (je répète, non testé)

Code :

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

1
2
3
4
5
6
7
8
9
Sub Hide()
 
Dim i as byte
 
for i = 1 to 8
     ThisWorkbook.Sheets("sheet1").Shapes(i).visible = false
next i
 
End Sub

A+

[aalex_38]

Bonjour à tous,

j'ai placé plusieurs boutons d'option Bouton_A, Bouton_B

c' est plus simple quand les controles se terminent par un numéro.

Exemple pour masquer les 8 premiers options boutons nommés "OptionButton1 à 8"

Code :

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

1
2
3
For i = 1 To 8
ActiveSheet.Shapes("OptionButton" & i).Visible = False
Next

[MarcelG]

Grâce à ces indications, j'ai trouvé.

Code :

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

1
2
3
4
5
Dim Tableau
Tableau = Array("A","B")
For Each BTN In Tableau
     Sheets("Accueil").Shapes("Bouton_" & BTN).Visible = False
Next

Il fallait remplacer "Controls" par "Shapes"
La concaténation fonctionne également.
Merci à tous.