Masquer lignes quand certaines cellules sont vides

[Rémi FLANDRIN]

Bonjour,

J'ai un tableau avec environ 300 lignes dont toutes les cases contiennent des formules (le tableau joint est une version vierge de mon tableau, il n'y a pas de formules dedans).

Dans le tableau en pièce jointe (classeur1.xlsm) je souhaiterai pouvoir masquer des lignes quand la valeur de certaines cellules sont =0.

Dans le fichier image joint (Tableau.jpg) j'ai encadré en rouge les 4 cellules qui doivent être =0 pour nécessiter que la ligne soit masqué. Il faut en plus de cela masquer les 2 lignes du dessus.

Cordialement,

Rémi

[phlaurent55]

Bonsoir Remi,

avec ce code;

Sub Macro1()
Application.ScreenUpdating = False
For i = 7 To 289 Step 3
If Range("X" & i).Value + Range("Y" & i).Value + Range("Z" & i).Value + Range("ZA" & i).Value = 0 Then
Rows(i - 2).Hidden = True
Rows(i - 1).Hidden = True
Rows(i).Hidden = True
End If
Next i
Application.ScreenUpdating = True
End Sub

à+
Philippe

[phlaurent55]

Re,
j'oubliais le code pour réafficher toutes les lignes

Sub Macro2()
    Rows("1:300").Select
    Selection.EntireRow.Hidden = False
    Range("A1").Select
End Sub

Ne t'étonne pas que la macro qui réalise le masquage est assez lente( +/- 3secondes)
à+

[Rémi FLANDRIN]

Oki merci,

Je test tout de suite et j'essaie d'adapter / simplifier car mon tableau a un peu changer mais je devrait m'en sortir maintenant et ça me fera apprendre.

Re grand merci

Au pire je repasse ici c'est génial comme forum.

Cordialement

Rémi

[Pierrot93]

Bonjour Rémi, phlaurent

pour accélérer un peu le code :

Dim i As Integer
Application.ScreenUpdating = False
For i = 7 To 289 Step 3
If Application.Sum(Range("X" & i).Resize(1, 4)) = 0 Then _
    Rows(i - 2 & ":" & i).Hidden = True
Next i
Application.ScreenUpdating = True

bonne journée
@+