Masquer des lignes

Bonsoir a tous, par VBA je masque les lignes d'une feuille qui sont en couleur et lorsque je veux enlever le masque je n'arrive pas a trouvé la derniere ligne réelle de ma feuille en VBA , car il ne détecte que les lignes non masqué. J'ai essayé sans succes:

limit1 = Sheets("ASS1").Range("I" & 10000).End(xlUp).Row

mais ca ne détecte que les lignes non masqué.

Bonsoir,

Oui ! Mais tu n'as nul besoin de ça. Tu démasques tout et c'est réglé !

Salut, je t'explique un peu. J'ai un bouton dans un UserForm qui permet de masquer toute les lignes qui ne sont pas en couleur et si j'appuis une seconde fois sur le bouton, je veux que les lignes masqués apparaissent. Je ne veux donc pas le faire dans excel mais dans mon sub VBA. Le probleme c'est que lorsqu'il y a des lignes de masqués, je n'arrive plus a trouver la derniere ligne de ma feuille car limit1 ne semble pas detecté les lignes masqués.

Private Sub liste_rouge_Click()
Application.ScreenUpdating = False
Windows(ThisWorkbook.Name & ":2").Activate
limit1 = Sheets("ASS1").Range("I" & 10000).End(xlUp).Row
If liste_r = False Then
   liste_r = True
   For i = 3 To limit1
       If Sheets("ASS1").Cells(i, "i").Interior.ColorIndex <> 22 Then
            Sheets("ASS1").Rows(i).Hidden = True
       End If
   Next i
Else
   liste_r = False
   Sheets("ASS1").Rows("3:" & limit1).Hidden = False
End If
Application.ScreenUpdating = True
End Sub

OUI ! Je parle bien de démasquer en VBA !

Tu n'as besoin d'aucune ligne à chercher pour démasquer tout.

OK, alors quel serait la syntaxe?

Moi j'utilisais:

 Sheets("ASS1").Rows("3:" & limit1).Hidden = False

mais je ne trouve pas la bonne valeur pour limit1, a cause justement du masque.

Suite a ta sugestion, j'ai lancé l'enregistreur de macro et j'ai trouvé:

 Selection.EntireRow.Hidden = False

J'imagine que c'est la solution!

Sheets("ASS1").Rows.Hidden = False

Simplement.

Sheets("ASS1").Rows.Hidden = False

Simplement.

super, meme pas besoin de spécifié une zone!

Merci!