Masquer des lignes sous condition

[Sorgoth]

Bonjour à tous pour mon premier message sur cet espace.

J'ai parcouru le fofo sans parvenir à trouver satisfaction.

Mon objectif :

Masquer la ligne "x" si la cellule A"x" renvoie 0.

J'ai des morceaux de code pour créer la macro, mais je piétine et n'arrive pas à finaliser... il me manque peu de choses, mais je suis débutant et c'est pas évident à manipuler.

Mon idée :

sub hide ()
Range ("A:A").Select
"SI on trouve un 0 dans la sélection" alors
"on masque la ligne entière"
end sub

Et pour permettre d'afficher tout :

sub affiche ()
Entirerow.hidden = false

Je peine sur la syntaxe, pour finaliser ce petit bout de code de rien du tout...

Merci de votre aide.

Ajout : j'ai avancé sur le code (en déboguant enfin le petit truc qu'il me manquait).

Voici ce que j'ai :

Sub Masquer_Si_A()
Range("A:A").Select
For Each o In Selection
If o.Value = "0" Then
o.EntireRow.Hidden = True
End If
Next

End Sub


Sub Afficher_Si_A()

Range("A:A").Select
Selection.EntireRow.Hidden = False
End Sub


Il parait assez simple. Si vous avez des commentaires ou suggestions, bienvenus... sinon ce sujet pourra être utile pour ceux qui cherchent à masquer sous condition 0.

[Spitnolan08]

Bonjour,

Sub EffaceLignes()
With Sheets("Synthèse")
    For i = 4 To .Range("A65536").End(xlUp).Row
        If Cells(i, 1) = 0 Then .Cells(i, 1).EntireRow.Hidden = true
    Next
End With
End Sub

Non testé

Cordialement

[Sorgoth]

Merci Spitnolan08 pour votre participation.

Le code final que j'ai retenu, qui était celui que ma logique comprenait le mieux (et donc que je vais pouvoir modifier si besoin etc.) est celui-ci :

Sub Masquer_Si_A()
Range("A:A").Select
For Each o In Selection
If o.Value = "0" Then
o.EntireRow.Hidden = True
End If
Next

End Sub

je passe le sujet en résolu, merci.