[Bouton On / Off] 1 bouton = 2 macros

  • Initiateur de la discussion Initiateur de la discussion Elmios
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

E

Elmios

Guest
Bonjour je souhaiterai avoir un bouton on / off.

J'ai actuellement une macro sur bouton qui me permet de masquer 2 colonnes et une autre sur un autre bouton qui réaffiche ces 2 colonnes.

L'objectif serait d'avoir un bouton qui fasse cela : qui passe d'un état "Afficher" à "Masquer".

On doit pouvoir le faire via le code mais c est pas trop mon domaine je débute a peine en VBA.

Sinon avec une case à cocher selon si elle est cochée ou non !


Bref je rame pour trouver la solution !
 
Re : [Bouton On / Off] 1 bouton = 2 macros

Bonjour, Elmios

avec un ToggleButon (bouton à double effet)

le code :

Code:
Private Sub ToggleButton1_Click()
Columns("C:D").EntireColumn.Hidden = Me.ToggleButton1.Value
Me.ToggleButton1.Caption = IIf(Me.ToggleButton1, "Afficher", "Masquer")
Me.ToggleButton1.BackColor = IIf(Me.ToggleButton1, vbGreen, vbRed)
End Sub

un petit fichier exemple :


Edit, oups, ai pas trop raffraichi, sur ce coup
Salut Sergio et tototiti
 

Pièces jointes

Re : [Bouton On / Off] 1 bouton = 2 macros

super merci pour toutes ces réponses !

Pour ton bonton bhbh comment est-ce que je peux le modifier en taille ? je n'arrive pas à l'éditer. il ne fait que du on/off 😛
 
Re : [Bouton On / Off] 1 bouton = 2 macros

Re-,

ce bouton est issu de la barre d'outils "Contrôle"

Sous 2003, et avant :

Affichage/Barre d'outils, et sélectionne "Boîte à outils Contrôles"

Dans cette barre d'outils, tu as à l'extrème gauche un bouton qui ressemble à une équerre, et qui te permet de passer en mode "Création"

Appuie dessus, tu peux modifier ton bouton, et n'oublie pas de re-appuyer dessus, pour quitter le mode "Création"

Avec un clic droit, tu peux également voir ses propriétés, et les modifier au besoin, notemment la police (Font)
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
7
Affichages
987
M
  • Question Question
Microsoft 365 formules / macros
Réponses
16
Affichages
2 K
Retour