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
Find vba - Astuces et Solutions
Incompatibilité de type vba ✓ - Forum Programmation
Vba attendre 1 seconde ✓ - Forum VB / VBA
Vba dernière colonne non vide ✓ - Forum VB / VBA
Vba récupérer valeur cellule ✓ - Forum VB / VBA

3 réponses

Réponse 1 / 3

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
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

VBA : Range avec références variables..

Power Button Lockout...

VBA erreur 1004

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

Discussions similaires

Newsletters