Lier 2 macros à un bouton
Lefix
Messages postés
8
Date d'inscription
Statut
Membre
Dernière intervention
-
cousinhub29 Messages postés 1074 Date d'inscription Statut Membre Dernière intervention -
cousinhub29 Messages postés 1074 Date d'inscription Statut Membre Dernière intervention -
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
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
A voir également:
- Lier 2 macros à un bouton
- Supercopier 2 - Télécharger - Gestion de fichiers
- Diagnostic bouton photo - Accueil - Outils
- Comment faire une capture d'écran sur un samsung sans bouton ? - Guide
- Bouton on/off comment savoir ✓ - Forum Matériel & Système
- 2 ecran pc - Guide
2 réponses
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
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
Bonjour,
Essaie ainsi, en modifiant la colonne de critère (Field:=numéro de colonne de ton tableau)
Bon dimanche (PS, ne prend pas mal les remontrances, ce ne sont que des conseils...)
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:=2
Else
ActiveSheet.ListObjects("Tableau37").Range.AutoFilter Field:=2, Criteria1:="10000"
End If
End Sub
Bon dimanche (PS, ne prend pas mal les remontrances, ce ne sont que des conseils...)
Par ailleurs comment fait on pour supprimer le doublon?