Masquer ligne avec cellule non-vide à cause de formule

MaddogK7 Messages postés 1 Statut Membre -  
Gyrus Messages postés 3360 Statut Membre -
Bonjour forum,
Je cherche à masque des lignes vides, le problème c'est que toutes mes cellules sont non vides parce que j'utilise des formules du type =SI(ESTERR(RECHERCHEV pour aller chercher des valeurs et texte dans un autre onglet.
Pour masquer les lignes j'utilise:

Sub HideLignesVides()
Set f = Sheets("TEMPLATE (2)")
Application.ScreenUpdating = False
For i = f.[A65000].End(xlUp).Row To 2 Step -1
If Application.CountA(Range(f.Cells(i, "g"), f.Cells(i, "h"))) = 0 Then f.Rows(i).Hidden = True
Next i
Application.ScreenUpdating = True
End Sub

Quelqu'un a une idée pour masquer les lignes contenant des formules don't le résultats est " ".

Merci à tous

1 réponse

  1. Gyrus Messages postés 3360 Statut Membre 526
     
    Bonjour,

    Sub HideLignesVides()
    Set f = Sheets("TEMPLATE (2)")
    Application.ScreenUpdating = False
    For i = f.Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1
    If f.Cells(i, "g") = "" And f.Cells(i, "h") = "" Then f.Rows(i).Hidden = True
    Next i
    Application.ScreenUpdating = True
    End Sub

    A+
    0