Bouton On/Off en VBA Résolu/Fermé

Question

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

via55 · Answer

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

Anthelm · Answer

Ah oui, c'est plus joli comme ça.

Merci Via!

Bouton On/Off en VBA

2 réponses

Discussions similaires