Microsoft 365 Un commandbutton avec 2 macros

[natorp]

Bonjour à toutes et tous

J'aimerais affecter à un bouton de commande 2 macros, que le bouton se comporte comme une bascule :
Je clique 1 fois dessus et j'active une macro, je re-clique dessus et j'active une autre macro

Merci pour votre attention et votre aide, cordialement, Gérard

 

[chris]

RE

Doit pouvoir être géré par un bouton bascule en testant son état

 

[TooFatBoy]

Hi,

Ou une variable booléenne global ?

 

[Dranreb]

Bonjour.
Si, plutôt que CommandButton, un ActiveX ToggleButton ne vous convenait pas (pourquoi ?), vous pourriez aussi jouer sur son Caption et le changer alternativement à chaque exécution.

 

[natorp]

Re,
Je suis preneur de toute solution
Merci à vous, Gérard

 

[Dranreb]

Avec un CommandButton :

Private Sub CommandButton1_Click()
   If CommandButton1.Caption Like "Afficher *" Then
      AfficheLignes
      CommandButton1.Caption = "Masquer toutes les lignes"
   Else
      MasqueLignes
      CommandButton1.Caption = "Afficher toutes les lignes"
      End If
   End Sub

 

[cp4]

Bonjour Dranreb , TooFatBoy , Chris , Natorp

@natorp : Ce n'était pas si compliqué. Tu aurais pu trouver tous seul. Les amis t'avaient bien mis sur la bonne voie.

Private Sub CommandButton1_Click()
   If CommandButton1.Caption = "Afficher toutes les lignes" Then
      AfficheLignes
      CommandButton1.Caption = "Masquer toutes les lignes"
   ElseIf CommandButton1.Caption = "Masquer toutes les lignes" Then
      MasqueLignes
      CommandButton1.Caption = "Afficher toutes les lignes"
   End If
End Sub

 

[natorp]

Super ! Merci Bernard et cp4
Bonne journée à tous, Gérard