Masquer ligne avec cellule non-vide à cause de formule

Fermé
MaddogK7 Messages postés 1 Date d'inscription vendredi 12 février 2016 Statut Membre Dernière intervention 12 février 2016 - 12 févr. 2016 à 18:53
Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 - 12 févr. 2016 à 23:54
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 samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 525
12 févr. 2016 à 23:54
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