Masquer un grand nombre de lignes

Bonjour à tous,

Je suis débutant en Macros, et je n'arrive pas a trouver les bonnes lignes de code pour le document que j'essaye de mettre en page.

Je travaille dans la production publicitaire et j'essaye de concevoir une matrice de devis.

Ma problématique et de concevoir une une macro afin de masquer le lignes vierges du devis puis d'avoir une autre macro pour les afficher à nouveau.

Bien sur j'ai pu trouver une macro basique qui fonctionne mais malheureusement sont execution est bien trop longue.

Voici la ligne de code que j'ai trouvé:

[size=85]

Sub Masquer_lignes()
Dim ligne As Integer

For ligne = 1 To 1000
    If Cells(ligne, 28) = "2" Then
        Rows(ligne & ":" & ligne).EntireRow.Hidden = True
    End If
Next

End Sub[/size][/color]

Je vous remerci d'avance pour vos réponses,
Bonne journée

Bonsoir,

cela dépend plus ou moins du nombre de ligne à masquer, s'il n'y en a qu'une c'est très rapide, s'il y en a 995 c'est plus long !

Mais tu devrais quand même avoir un gain de temps important en rajoutant Application.Screenupdating = False.

Sub Masquer_lignes()
Dim ligne As Integer, Tablo
Application.ScreenUpdating = False
For ligne = 1 To 1000
    If Cells(ligne, 28) = "2" Then
        Rows(ligne).Hidden = True
    End If
Next
End Sub

A+

Merci beaucoup ca va nettement plus vite.

je suis aussi à la recherche d'un macro pour annuler ce masquage de ligne auriez vous une idée de la ligne de code?

Bonjour,

[1:1000].Rows.Hidden = False

eric

Merci pour cette réponse rapide