Bouton On/Off en VBA

Résolu/Fermé

Anthelm Messages postés 198 Date d'inscription lundi 15 octobre 2018 Statut Membre Dernière intervention 2 mars 2024 - Modifié le 3 févr. 2020 à 22:52
Anthelm Messages postés 198 Date d'inscription lundi 15 octobre 2018 Statut Membre Dernière intervention 2 mars 2024 - 3 févr. 2020 à 23:34

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

A voir également:

On off bouton
On off symbole - Forum Facebook
@Echo off ✓ - Forum Programmation
Bouton shift pc ✓ - Forum Jeux vidéo
Bouton on off symbole - Forum Windows 10
Alternative on off - Forum Téléphones & tablettes Android

2 réponses

Réponse 1 / 2

via55 Messages postés 14399 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 16 avril 2024 2 701
3 févr. 2020 à 23:07

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

Réponse 2 / 2

Anthelm Messages postés 198 Date d'inscription lundi 15 octobre 2018 Statut Membre Dernière intervention 2 mars 2024 1
3 févr. 2020 à 23:34

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

Merci Via!

Discussions similaires

Bouton ON OFF, O ou I ?

echo off qu'est ce que c'est ?

Où est la touche SHIFT sur mon clavier d'ordi ?

Arrêt/démarrage via Bouton ON/OFF de l'alim

symbole arrêt marche

Discussions similaires

Newsletters