Masquer ligne avec cellule non-vide à cause de formule

MaddogK7 Messages postés 1 Date d'inscription   Statut Membre Dernière intervention   -  
Gyrus Messages postés 3334 Date d'inscription   Statut Membre Dernière intervention   -
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
A voir également:

1 réponse

Gyrus Messages postés 3334 Date d'inscription   Statut Membre Dernière intervention   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