BoutonBascule_Click() avec 2 macros

[polo]

Bonjour
Je n'arrive pas à mettre 2 macro différentes sur le même bouton
J'ai bien essayé avec boutonbascule mais je ne trouve pas le problème

Voici mes 2 macros à mettre dans le bouton,
si quelqu'un veut bien m'aider !

AFFICHER

Sub macro2()
Columns("L:L").AutoFilter Field:=1, Criteria1:="<>0", Operator:=xlAnd, Criteria2:="<>"
End Sub

et la deuxième
MASQUER

Sub Macro1()
'
' Macro1 Macro
'

'
    ActiveSheet.ShowAllData
    Selection.AutoFilter
          Dim celulle As Range
    Dim Plage As Range
    Dim derl As Long
    derl = Range("A65536").End(xlUp).Row
    Set Plage = Range("A5:A" & derl)
    Plage.EntireRow.Hidden = True
    
    Set cellule = Range("A5")
    cellule.EntireRow.Hidden = False
    Set cellule = Range("A1526")
    cellule.EntireRow.Hidden = False
    Set cellule = Range("A3213")
    cellule.EntireRow.Hidden = False
    Set celulle = Nothing
  
    
End Sub

 

[James007]

Re : BoutonBascule_Click() avec 2 macros

Bonjour,

As-tu essayé :

Private Sub ToggleButton1_Click()
   If Me.ToggleButton1 = True Then
         Macro1
   Else
         Macro2
   End If
End Sub

A +
🙂

 

[polo]

Re : BoutonBascule_Click() avec 2 macros

Salut, non cela ne marche pas.
Peux tu me montrer comment tu fais ?
MERCI

 

[James007]

Re : BoutonBascule_Click() avec 2 macros

Salut, non cela ne marche pas.
Peux tu me montrer comment tu fais ?
MERCI

Salut Polo,

Tu trouveras ci-joint un petit fichier test ... qui je l'espère, t'aidera ...

A +
🙂

 

[polo]

Re : BoutonBascule_Click() avec 2 macros

alors effectivement je comprend ton fichier, les codes etc,
Mais il me manque une étape je pense:

J'ai mes 2 macros de créees (macro1 correspondant a afficher, macro2 correspondant a masquer)
J'ai crée un bouton et je veux mettre dessus comme macro la chose suivante =

Sub macro 3 ()
Private Sub ToggleButton1_Click()
If Me.ToggleButton1 = True Then
Macro1
BoutonBascule.Caption = "Masquer"
Else
Macro2
BoutonBascule.Caption = "Afficher"
End If
End Sub


Mais cela ne marche pas, je ne pense pas que le problème ne réside pas dans la rédaction de ma macro, cela doit plutot être sur ce que je dois mettre derrière mon bouton (AFFICHER/MASQUER)

Tu me suis ?
Merci encore de ton aide !
Cordialement,

 

[James007]

Re : BoutonBascule_Click() avec 2 macros

Re,

Tu as donc écrit la macro dont tu as besoin :

Private Sub ToggleButton1_Click()
    If Me.ToggleButton1 = True Then
          Macro1 
          ToggleButton1.Caption = "Masquer" 
    Else
          Macro2
          ToggleButton1.Caption = "Afficher" 
    End If
End Sub

Cependant, il se trouve que cette macro, celle du bouton, ne doit se placer dans un module standard ... mais dans le module de la feuille ( pointer l'onglet, click droit, voir code )

A +
🙂

Edit : Comme le dit Si... il faut aussi remplacer BoutonBascule par ToggleButton1 ... 🙂

 

[Si...]

Re : BoutonBascule_Click() avec 2 macros

salut

et avec

Private Sub ToggleButton1_Click()
  If ToggleButton1 Then
    macro 1
    ToggleButton1.Caption = "pour 1"
  Else
    macro 2
    ToggleButton1.Caption = "pour 2"
  End If
End Sub