Afficher masquer ligne avec un bouton

[k4RADOC]

Bonjour,

Je souhaiterais afficher et masquer certaine ligne via une macro utilisant des filtres.
Je vous ai crée le fichier en pj. Je souhaiterais avoir seulement un bouton s'appelant "Afficher/Masquer les lignes" et appelant une fois la macro "masquer" une fois la macro "afficher" est ce possible ?

Merci d'avance de vos réponses

 

[DoubleZero]

Re : Afficher masquer ligne avec un bouton

Bonjour, k4RADOC, le Forum,

Voir le fichier joint.

A bientôt

Bonjour, Efgé

 

[Efgé]

Re : Afficher masquer ligne avec un bouton

Bonjour k4RADOC
C'est toujours le même principe....

Private Sub CommandButton1_Click()
If CommandButton1.Caption = "Afficher les lignes" Then
    CommandButton1.Caption = "Masquer les lignes"
    Selection.AutoFilter Field:=12
Else
    CommandButton1.Caption = "Afficher les lignes"
    Selection.AutoFilter Field:=12, Criteria1:="< > 0", Operator:=xlAnd
End If
End Sub

Cordialement

EDIT Salut 00, A la traine le Efgé

 

[k4RADOC]

Re : Afficher masquer ligne avec un bouton

Merci à tous les deux pour ces réponses TRES rapide, dans peu de temps je pourrais à mon tour aider les autres avec des conseils pareils