Masquer/Afficher (sur un même label) lignes de couleurs

[libellule85]

Bonjour le forum,

Voici mon petit souci, actuellement j'ai 2 macros (ci-dessous) une pour masquer les lignes de couleur et une autre pour ré-afficher les lignes cachées et j'aimerais regrouper ces 2 macros en 1 seule dans un label :

Sub MasqLignesColorees()
Dim i As Long
Application.ScreenUpdating = False
For i = [A65536].End(xlUp).Row To 2 Step -1
If Not Cells(i, "A").Interior.ColorIndex = xlNone Then
Rows(i).Hidden = True
End If
Next
Application.ScreenUpdating = True
End Sub


Sub Reafficher()
     Rows("2:126").Select
    ActiveWindow.SmallScroll Down:=-84
    Selection.EntireRow.Hidden = False
    Range("A2").Select
End Sub

D'avance merci pour votre aide,

 

[Staple1600]

Re : Masquer/Afficher (sur un même label) lignes de couleurs

Bonsoir à tous

Essaies ceci (cela semble ok,ici)
Tu lances la macro une fois: cela masque
Puis une seconde fois, cela démasque

Sub MasqetDemasqLignesColorees()
Dim i As Long
Application.ScreenUpdating = False
For i = [A65536].End(xlUp).Row To 2 Step -1
Rows(i).Hidden = Not Rows(i).Hidden = Not Cells(i, "A").Interior.ColorIndex = xlNone
Next
Application.ScreenUpdating = True
End Sub

 

[libellule85]

[Résolu] Masquer/Afficher (sur un même label) lignes de couleurs

Bonjour Staple1600,

Tout d'abord merci beaucoup pour ta réponse, je viens d'essayer le code et celui-ci fonctionne à merveille.
Encore merci,
Bonne soirée