Microsoft 365 Un commandbutton avec 2 macros

chris

XLDnaute Barbatruc

• 8 Février 2023

• #2

RE

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

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 8 Février 2023

• #3

Hi,

Ou une variable booléenne global ?

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 8 Février 2023

• #4

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.

 

Vote positif 0 Vote négatif

natorp

XLDnaute Accro

• 8 Février 2023

• #5

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 8 Février 2023

• #6

Avec un CommandButton :

VB:

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

 

Vote positif 0 Vote négatif

Solution

cp4

XLDnaute Barbatruc

• 8 Février 2023

• #7

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.

VB:

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

 

Vote positif 0 Vote négatif

natorp

XLDnaute Accro

• 8 Février 2023

• #8

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

 

Vote positif 0 Vote négatif