[Résolu] Masquer ligne si cellule non vide

DoubleZero

XLDnaute Barbatruc

• 21 Avril 2017

• #2

Bonjour, libellule85, le Forum,

Comme ceci ?

VB:

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 🙂

 

Vote positif 0 Vote négatif

libellule85

XLDnaute Accro

• 21 Avril 2017

• #3

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

 

Dernière édition: 21 Avril 2017

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 21 Avril 2017

• #4

Hello le forum

autre solution avec ces deux lignes

VB:

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

voire ceci..

VB:

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

 

Vote positif 0 Vote négatif

libellule85

XLDnaute Accro

• 21 Avril 2017

• #5

Bonjour vgendron,

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

 

Vote positif 0 Vote négatif

libellule85

XLDnaute Accro

• 21 Avril 2017

• #6

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.

 

Vote positif 0 Vote négatif