Afficher masquer une zone de liste déroulante

[hakimenne]

Bonjour tout le monde,

J'ai besoin de votre aide pour finaliser mon classeur

Je souhaite que les zones de listes déroulantes (contrôle de formulaire) s afficher lorsque je clique sur le bouton "Afficher".
Et les masquer (ainsi que le bouton" Masquer ") quand je clique sur le bouton "Masquer "



Merci d'avance

 

[Bougla972]

Bonjour hakimenne,

Une solution, pas très académique mais plutôt efficace...

 

[Dranreb]

Bonjour.

Sub MasquerGroupe()
Feuil26.Shapes("Groupe 79").Visible = False
Feuil26.Shapes("Bouton 9").Visible = False
Feuil26.Shapes("Bouton 10").Visible = True
End Sub
Sub AfficherGroupe()
Feuil26.Shapes("Groupe 79").Visible = True
Feuil26.Shapes("Bouton 9").Visible = True
Feuil26.Shapes("Bouton 10").Visible = False
End Sub

On pourrait aussi le faire avec un seul bouton, le "Bouton 9" par exemple :

Sub AfficherMasquer()
With Feuil26.Shapes("Groupe 79")
   .Visible = Not .Visible
   Feuil26.Shapes("Bouton 9").TextFrame.Characters.Text _
      = IIf(.Visible, "Masquer", "Afficher")
   End With
End Sub

 

[hakimenne]

Bonjour.

Merci beaucoup pour ton aide Bougla972 . Ça marche très bien.
Et un Grand Merci a Dranreb Pour ton Aide précieuse
Merci

 

[Modeste geedee]

Bonsour®
peut-être plus simplement :

 

[hakimenne]

Bonjour
C est une Solution
Merci