VBA : Masquer lignes si entièrement vides

Question

Bonjour, 

J'ai essayé beaucoup de code mais aucun de répond à mon problème. Je souhaite écrire une sub qui masquer les lignes entièrement vides d'une plage (A3:M65) Merci de m'aider j'y suis depuis des heures.

Configuration: Windows XP / Firefox 4.0.1

Normad · Answer

Sub MaqueLignes()
    Dim Ligne As Integer, Col As Integer, Contenu As String
    
    For Ligne = 3 To 65
        Contenu = ""
        For Col = 1 To 13
            Contenu = Contenu & Cells(Ligne, Col)
            If Contenu <> "" Then Exit For
        Next Col
        If Contenu = "" Then Rows(Ligne).EntireRow.Hidden = True
        
    Next Ligne
End Sub

VBA : Masquer lignes si entièrement vides

1 réponse

Discussions similaires

Newsletters