Afficher / masquer plusiers boutons en cliquant sur un seul bouton

Bonjour,

Pourriez-vous SVP m'indiquer la marche à suivre afin de réaliser la tâche cité en objet, en VBA ?

Merci à vous

Bonjour

sur la feuille active... et il faut connaitre le nom des boutons....

pour les afficher, exemple :

Shapes("Rectangle 4").Visible = True

ou pour masquer :

Shapes("Rectangle 4").Visible = False

Fred

Merci Fred pour ce retour.

Mais mes connaissances en VBA sont vraiment très limitées...

Pourrais-je avoir SVP le code complet, pour faire un clic sur un bouton nommé "bouton0" qui va me faire apparaitre plusieurs boutons qu'on peut nommer "bouton1" et "bouton2" et quand je reclique sur "bouton0", les 2 disparaissent.

Merci

voir ci joint...

Fred

bouton 0 est celui de gauche j'ai oublie de mettre a jour le texte dedans....

ci joint la correction

Fred

Merci ça fonctionne nickel mais j'arrive pas à rajouter "bouton3", "bouton4",... j'en ai 10

Bonjour,

Une autre proposition à adapter.

Cdlt.

Option Explicit

Public Sub XXX()
Dim ctl As Button
    For Each ctl In Me.Buttons
        If TypeName(ctl) = "Button" And ctl.Caption <> "Bouton 1" Then
            ctl.Visible = Not ctl.Visible
        End If
    Next ctl
End Sub

merci mais le souci est qu'il efface tous les boutons alors qu'il y' a quelques uns que je souhaiterai conserver.

La méthode de fred est vraiment bien mais j'arrive pas à lui indiquer d'effacer/apparaitre des boutons supplémentaires

Bonjour,

Envoie ton fichier avec des explications claires de ce que tu souhaites.

Tu as un exemple de Fred (que je salue) et mon exemple. Les approches sont différentes !...

Un nouvel exemple à ta disposition.

Cdlt.

Public Sub XXX()
Dim ctl As Button
    For Each ctl In Me.Buttons
        If TypeName(ctl) = "Button" Then
            Select Case ctl.Caption
                Case "Bouton 1", "Bouton 3", "Bouton 4":
                Case Else: ctl.Visible = Not ctl.Visible
            End Select
        End If
    Next ctl
End Sub

C'est nickel !!

Merci à vous tous !!

Bon dimanche

Bonjour

si le problème est résolu tant mieux...

Salut Jean Eric

Fred