Toggle Button

Résolu
Maxou72 -  
 Maxou72 -
Bien le bonjour !

Je fais un peu de macro depuis une semaine, et sur un de mes tableaux j'ai positionné deux boutons qui sont ceux-ci: 

Private Sub CommandButton1_Click()
      For i = 5 To 56
 
If Range("EQ" & i) = 0 Then '
Rows(i).Select
    Selection.EntireRow.Hidden = True
    End If
 
    Next i
End Sub
-------------------------------------
Private Sub CommandButton2_Click()
For i = 5 To 56

If Range("EQ" & i) = 0 Then '
Rows(i).Select
   Selection.EntireRow.Hidden = False
   End If
   
    Next i
End Sub



Je voudrais tout simplement rassembler ces deux formules sur un bouton de bascule, qui pour moi serait bien plus adapté.
J'ai essayé pas mal de choses mais j'arrive pas à la faire fonctionner..

Des idées?

Merci d'avance

3 réponses

Réponse 1 / 3
f894009 Messages postés 17414 Date d'inscription   Statut Membre Dernière intervention   1 715
 
Bonjour,

Valeur de ToggleButton1 Vrai ou Faux: 

Private Sub ToggleButton1_Click()
    Application.ScreenUpdating = False
    For i = 5 To 56
        If Range("EQ" & i) = 0 Then
            Rows(i).EntireRow.Hidden = ToggleButton1
        End If
    Next i
    Application.ScreenUpdating = True
End Sub
1
Réponse 2 / 3
Maxou72
 
Personne pour m'aider? :(
0
Réponse 3 / 3
Maxou72
 
Parfait :)

Merci beaucoup !
0

Discussions similaires

Power Button Lockout...
yelrak -
juju -

5 réponses
Erreur d'exécution 13 Incompatibilité de type
grace -
pijaku -

5 réponses
Ecran IIyama GB2773HS-2 OSD Vérrouillé
Exil -
667audiodopeaudiocrystalmeth -

6 réponses
"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

2 réponses
appliquer une pause dans une macro vba excel
ch'duj -
lerif25 -

10 réponses