Masquer les lignes paires / impaires

[Gisamark]

[RESOLU]

Bonjour tout le monde !

J'ai un graphique avec des harmoniques, et il serait donc intéressant de n'afficher que les paires ou impaires.
Pour cela, je voudrais masquer les lignes paires ou impaires via des checkbox.

J'aurais 3 checkbox : paires/impaires/toutes

Suis-je obligé de passer par une boucle for ?

Voici un exemple :

Private Sub CheckBoxPaires_Click()
    If CheckBoxPaires = True Then

        '* Dois-je utiliser une boucle for ici ? *

        'Je décoche les deux autres cases
        CheckBoxImpaires.Value = False
        CheckBoxToutes.Value = False
    End If
End Sub

Merci pour votre aide.

 

[Compte Supprimé 979]

Re : Masquer les lignes paires / impaires

Salut Gisamark,

Tu peux utiliser un code du style

Private Sub CheckBoxPaires_Click()
Dim DerLig As Long, Lig As Long, Pair As Boolean
  If CheckBoxPaires = True Then
    'Je décoche les deux autres cases
    'CheckBoxImpaires.Value = False
    'CheckBoxToutes.Value = False
    With Sheets("Feuil1")
      DerLig = .Range("A" & Rows.Count).End(xlUp).Row
      For Lig = 1 To DerLig
        Pair = (Lig Mod 2 = 0)
        If Pair = True Then
          .Range("A" & Lig).EntireRow.Hidden = True
        End If
      Next
    End With
  Else
    With Sheets("Feuil1")
      DerLig = .Range("A" & Rows.Count).End(xlUp).Row
      For Lig = 1 To DerLig
        Pair = (Lig Mod 2 = 0)
        If Pair = True Then
          .Range("A" & Lig).EntireRow.Hidden = False
        End If
      Next
    End With
  End If
End Sub

Pas certain que ce soit bien optimisé

A+

 

[Robert]

Re : Masquer les lignes paires / impaires

Bonjnour Gisamark, Bruno, bonjour le forum,

Un proposition en pièce jointe. Lance la macro1...

 

[Gisamark]

Re : Masquer les lignes paires / impaires

Merci à tous les deux pour vos réponses.
J'ai utilisé le fichier de Robert ; il fonctionne très bien et est très simple.
Bonne journée.