Creer un bouton VBA

[Gaudens]

Bonjour,

La question à du être posé 1000 fois mais je n'arrives pas à trouver la réponse ... et quand je tape sur google je trouve tous et rien et quand je le met sur mon excel çà ne marche pas ...

J'ai actuellement deux boutons pour faire une tache simple : afficher ou masquer des lignes ... Et je voudrais avoir un seul et même bouton avec un affichage différent a chaque fois que l'on clique dessus .. Comme Afficher lafay ou masquer Lafay.

Je code avec des boutons contrôles de formulaire.

Merci d'avance ci dessous le code que j'ai fait .



Sub afficher_lafay()
'
' afficher_lafay Macro
'

'
Rows("14:21").Select
Selection.EntireRow.Hidden = False
End Sub
Sub masquer_lafay()
'
' masquer_lafay Macro
'

'
Rows("14:20").Select
Selection.EntireRow.Hidden = True
End Sub

 

[JCGL]

Re : Creer un bouton VBA

Bonjour à tous,

Bienvenue sur XLD

Code à affecter à un ToggleButton :

Option Explicit


Private Sub ToggleButton1_Click()
Rows("14:21").EntireRow.Hidden = IIf(ToggleButton1 = False, False, True)
ToggleButton1.Caption = IIf(ToggleButton1 = False, "Masquer", "Afficher")
ToggleButton1.BackColor = IIf(ToggleButton1 = False, &H80FF&, &H80FF80)
End Sub

A+ à tous

 

[Gaudens]

Re : Creer un bouton VBA

Super pour la réponse merci !

Passe une bonne journée