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 "
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 :
VB:
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