Lier 2 macros à un bouton

Question

Bonjour,
Je voudrais lier 2 macros à un bouton, je m'explique: ce bouton ouvrira ou fermera un filtre, et cela ne marche pas, je pense que je n'ai pas saisi de la bonne façon.
Sub essai1()
'Si le filtre est fermer, l'ouvrir
    If ActiveSheet.ListObjects("Tableau37").Range.AutoFilter = "" Then
        ActiveSheet.ListObjects("Tableau37").Range.AutoFilter = "10000"
'Si par contre le filtre est ouvert, le fermer
    ElseIf ActiveSheet.ListObjects("Tableau37").Range.AutoFilter = "10000" Then
        ActiveSheet.ListObjects("Tableau37").Range.AutoFilter = ""
End If
    Range("G2").Select
End Sub

Vaucluse · Answer

Re bonjour :-)
en principe (du moins dans mes fichiers ça fonctionne comme ça)
la ligne ci dessous, placé après la sélection de la ligne de titres,
Selection.AutoFilter
avec un seul bouton, place le filtre quand il n'y est pas et l'ôte quand il y est
(comme le bouton du ruban, en fait)
Merci âr ailleurs de supprimer votre fil précédent en doublon
crdlmnt

cousinhub29 · Answer

Bonjour,
Essaie ainsi, en modifiant la colonne de critère (Field:=numéro de colonne de ton tableau)
Sub Macro1()If ActiveSheet.FilterMode Then    ActiveSheet.ListObjects("Tableau37").Range.AutoFilter Field:=2Else    ActiveSheet.ListObjects("Tableau37").Range.AutoFilter Field:=2, Criteria1:="10000"End IfEnd Sub
Bon dimanche (PS, ne prend pas mal les remontrances, ce ne sont que des conseils...)

Lier 2 macros à un bouton

2 réponses

Discussions similaires

Newsletters