Masquer des lignes vides via macro

Bonjour à tous et toutes,

j'ai un pbl au niveau de la macro que j'ai adopté pour masquer les lignes vides.

aidez moi à détecter l'erreur dans la macro

Bonjour,

essaie ce code à la place du tien :

Sub FitreVides()
Dim Lg As Integer
Application.ScreenUpdating = False
    On Error Resume Next
    ActiveSheet.ShowAllData
    On Error GoTo 0
    Lg = Range("d100").End(xlUp).Row
    For i = Lg To 12 Step -1
    If WorksheetFunction.Sum(Range("E" & Lg & ":R" & Lg)) = 0 Then _
        Rows(i).EntireRow.Hidden = True
    Lg = Lg - 1
    Next
End Sub

Si ok, n'oublie pas de cliquer sur le v de couleur vert à coté du bouton Editer pour cloturer le fil

Amicalement

Bonjour,

Merci Dan pour la réponse,

mais lorsque j'ai adopté la macro sur mon classeur, j'ai rencontré un problème voilà une ligne (26) en vert qui se cache malgré qu'l'une de ces cellules comporten une écriture.

pour plus de détail,j'ai joint le fichier en question.

Pbl:La ligne (26)verte se cache.

Re,

Normal que cela ne fonctionne pas si tes deux fichiers sont différents.

le code adapté :

Sub FitreVides()
Dim Lg As Integer
Application.ScreenUpdating = False
On Error Resume Next
ActiveSheet.ShowAllData
On Error GoTo 0
Lg = Range("d100").End(xlUp).Row
For i = Lg To 12 Step -1
    If WorksheetFunction.Sum(Range("d" & Lg & ":p" & Lg)) = 0 Then _
        Rows(i).EntireRow.Hidden = True
    Lg = Lg - 1
    Next
End Sub

Veille à ce que ton code soit placé dans un module (menu / Insertion / Module et pas dans la feuille comme c'est le cas dans ton fichier.

Amicalement

Bonjour,

gros remerciement Mr Dan ++++++++++++++++++++++++++++sans limilte.