Eviter ligne vide

[lienad]

Bonjour,

Je travaille sur un tableau de données et utilise Recherchev.
Je souhaiterai que les lignes vides n'apparaissent pas.
Ci joint un simple exemple
merci de votre contribution

 

[DoubleZero]

Re : Eviter ligne vide

Bonjour, lienad, le Forum,

Un essai avec ce code, à loger dans un module.

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

A bientôt

 

[DoubleZero]

Re : Eviter ligne vide

Re-bonjour,

Une autre façon d'agir... uniquement sur les cellules contenant des formules :

Option Explicit
Sub Ligne_masquer_si_résultat_formule_égale_zéro()
    Dim i As Long
    Application.ScreenUpdating = False
    For i = Cells(Rows.Count, "a").End(xlUp).Row To 1 Step -1
        If Range("a" & i).HasFormula And Range("a" & i) = "" Then Rows(i).EntireRow.Hidden = True
    Next i
    Application.ScreenUpdating = True
End Sub

A bientôt

 

[Patrice33740]

Re : Eviter ligne vide

Bonjour,

Exemple joint, sans macro