Bouton On/Off en VBA [Résolu]

Signaler
Messages postés
178
Date d'inscription
lundi 15 octobre 2018
Statut
Membre
Dernière intervention
16 février 2020
-
Anthelm
Messages postés
178
Date d'inscription
lundi 15 octobre 2018
Statut
Membre
Dernière intervention
16 février 2020
-
Bonjour,

J'ai fait un bouton en VBA qui active ou desactive les filtres d'un tableau:


Sub ToogleFiltres()

a = ActiveSheet.ListObjects("Tableau1").ShowAutoFilterDropDown
If a = True Then
ActiveSheet.ListObjects("Tableau1").ShowAutoFilterDropDown = False
Else
ActiveSheet.ListObjects("Tableau1").ShowAutoFilterDropDown = True
End If
End Sub

Et ca marche.
Mais pour simplifier, j'ai essayé de faire :


If a = True Then
a = False
Else
a = True

mais ça ne marche pas.
Vous l'auriez écrit comment?

Je n'ai aucun message d'erreur, mais rien ne se passe avec la version courte

2 réponses

Messages postés
11781
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
21 février 2020
1 670
Bonsoir

a est une variable pas une commande donc normal que rien ne se passe

Pour raccourcir un peu :
Sub ToogleFiltres()
With ActiveSheet.ListObjects("Tableau1")
If .ShowAutoFilterDropDown = True Then .ShowAutoFilterDropDown = False Else .ShowAutoFilterDropDown = True
End With
End Sub


Cdlmnt
Via
Messages postés
178
Date d'inscription
lundi 15 octobre 2018
Statut
Membre
Dernière intervention
16 février 2020
1
Ah oui, c'est plus joli comme ça.

Merci Via!