VBA : Masquer lignes si entièrement vides

Pedro2730 -  
Normad Messages postés 112 Date d'inscription   Statut Membre Dernière intervention   -
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.

1 réponse

Normad Messages postés 112 Date d'inscription   Statut Membre Dernière intervention   40
 
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
0