Toggle Button

Résolu/Fermé

Maxou72 - Modifié par pijaku le 31/03/2014 à 13:10
Maxou72 - 31 mars 2014 à 13:21

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

A voir également:

Toggle button vba
Excel compter cellule couleur sans vba - Guide
Vba attendre 1 seconde ✓ - Forum VB / VBA
Mkdir vba ✓ - Forum VB / VBA
L'indice n'appartient pas à la sélection vba ✓ - Forum Programmation
Autofill vba ✓ - Forum Excel

3 réponses

Réponse 1 / 3

f894009 Messages postés 17268 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 29 mars 2025 1 713
31 mars 2014 à 11:59

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

Réponse 2 / 3

Maxou72
31 mars 2014 à 11:25

Personne pour m'aider? :(

Réponse 3 / 3

Maxou72
31 mars 2014 à 13:21

Parfait :)

Merci beaucoup !

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Erreur d'exécution 13 Incompatibilité de type

Power Button Lockout...

ouverture d'un fichier excel à partir d'un code VBA

Méthode find dans VBA - Recherche de données sous Excel