[Résolu] Masquer ligne si cellule non vide

[libellule85]

Bonjour le forum,
J'aurais une nouvelle fois besoin de votre aide.
J'aimerais que quand une cellule de la colonne H est non vide cela masque la ligne.
Ci-joint un fichier.
D'avance merci beaucoup pour votre aide

 

[DoubleZero]

Bonjour, libellule85, le Forum,

Comme ceci ?

Option Explicit
Sub Ligne_masquer()
    Dim i As Long
    Application.ScreenUpdating = False
    For i = Cells(Rows.Count, "h").End(xlUp).Row To 5 Step -1
        If Range("h" & i) <> "" Then Rows(i).Hidden = True
    Next i
    Application.ScreenUpdating = True
End Sub

A bientôt

 

[libellule85]

Bonjour DoubleZero,

Un grand grand merci pour ton code c'est vraiment sympa, une fois de plus tu viens à mon secours !
Je viens de l'essayer sur mon très grand fichier et cela fonctionne à merveille !!
Bon après midi

 

[vgendron]

Hello le forum

autre solution avec ces deux lignes

fin = Range("E" & Rows.Count).End(xlUp).Row
Range("E5:H" & fin).Columns(4).SpecialCells(xlTextValues).EntireRow.Hidden = True

voire ceci..

Sub test()
fin = Range("E" & Rows.Count).End(xlUp).Row
Range("H5:H" & fin).SpecialCells(xlTextValues).EntireRow.Hidden = True
End Sub

 

[libellule85]

Bonjour vgendron,

Merci beaucoup pour ta réponse.
Bon après midi

 

[libellule85]

Re vgendron,

Après essai de ton code dans mon fichier, une constatation : il est beaucoup plus rapide que celui de DoubleZero !
En tous cas, merci à vous deux.