Je cherche un moyen de paramètrer mon bouton bascule de telle sorte que
quand le bouton est enfoncé il applique un filtre sur ma colonne (critère :
différent de 0) et lorsqu'il n'est pas enfoncé il n'applique pas de filtre
sur ma colonne (Valeur du critère = "Tous") - Attention je veux toujours voir
le filtre je ne veux pas le supprimer.
D'autre part peut-on également mettre un libellé du bouton différent suivant
si il est appuyé ou non ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JB
Bonjour,
http://cjoint.com/?mjkfZUkjzk
Faire un bouton bascule avec Boite Outils controles
Private Sub B_filtre_Click() If B_filtre Then Selection.AutoFilter Field:=3, Criteria1:="<>0", Operator:=xlAnd B_filtre.Caption = "<>0" Else Selection.AutoFilter Field:=3 B_filtre.Caption = "Tous" End If End Sub
Cordialement JB
Bonjour,
http://cjoint.com/?mjkfZUkjzk
Faire un bouton bascule avec Boite Outils controles
Private Sub B_filtre_Click()
If B_filtre Then
Selection.AutoFilter Field:=3, Criteria1:="<>0", Operator:=xlAnd
B_filtre.Caption = "<>0"
Else
Selection.AutoFilter Field:=3
B_filtre.Caption = "Tous"
End If
End Sub
Faire un bouton bascule avec Boite Outils controles
Private Sub B_filtre_Click() If B_filtre Then Selection.AutoFilter Field:=3, Criteria1:="<>0", Operator:=xlAnd B_filtre.Caption = "<>0" Else Selection.AutoFilter Field:=3 B_filtre.Caption = "Tous" End If End Sub
Cordialement JB
Tof
Nickel Merci !
Bonjour,
http://cjoint.com/?mjkfZUkjzk
Faire un bouton bascule avec Boite Outils controles
Private Sub B_filtre_Click() If B_filtre Then Selection.AutoFilter Field:=3, Criteria1:="<>0", Operator:=xlAnd B_filtre.Caption = "<>0" Else Selection.AutoFilter Field:=3 B_filtre.Caption = "Tous" End If End Sub
Cordialement JB
Nickel Merci !
Bonjour,
http://cjoint.com/?mjkfZUkjzk
Faire un bouton bascule avec Boite Outils controles
Private Sub B_filtre_Click()
If B_filtre Then
Selection.AutoFilter Field:=3, Criteria1:="<>0", Operator:=xlAnd
B_filtre.Caption = "<>0"
Else
Selection.AutoFilter Field:=3
B_filtre.Caption = "Tous"
End If
End Sub
Faire un bouton bascule avec Boite Outils controles
Private Sub B_filtre_Click() If B_filtre Then Selection.AutoFilter Field:=3, Criteria1:="<>0", Operator:=xlAnd B_filtre.Caption = "<>0" Else Selection.AutoFilter Field:=3 B_filtre.Caption = "Tous" End If End Sub
