Bouton On/Off en VBA

Résolu
Anthelm Messages postés 198 Date d'inscription   Statut Membre Dernière intervention   -  
Anthelm Messages postés 198 Date d'inscription   Statut Membre Dernière intervention   -
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

Réponse 1 / 2
via55 Messages postés 14512 Date d'inscription   Statut Membre Dernière intervention   2 746
 
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
1
Réponse 2 / 2
Anthelm Messages postés 198 Date d'inscription   Statut Membre Dernière intervention   1
 
Ah oui, c'est plus joli comme ça.

Merci Via!
0

Discussions similaires

probleme bouton on off
thepsypyrox -
lavoix_du_client -

1 réponse
Arrêt/démarrage via Bouton ON/OFF de l'alim
kekliard -
baaabu -

15 réponses
Comment écrire le symbole On/Off
strumpfi -
brucine -

3 réponses
Bouton ON OFF, O ou I ?
Stargirlfr -
kaparzo23 -

12 réponses
echo off qu'est ce que c'est ?
lea -
miiforlong -

7 réponses