Macro pour masquer ligne si en colonne A trouve "oui"...

[Christian0258]

Bonsoir à tout le forum,

Je souhaiterais votre aide pour m'expliquer pourquoi cette macro ne fonctionne pas si le
"oui" trouvé est le résultat d'une formule ?

Sub CacherLigne()
Dim Cellule As Range
Dim Zone As Variant
'geler l'écran
Application.ScreenUpdating = False
'Définir zone (ici colonne A jusqu'à 168)
Set Zone = Range("A10", Range("A168").End(xlUp))
'on commence la boucle sur les Cellules de Zone
For Each Cellule In Zone
'si cellule différente de oui malgré formule alors masquer
If Cellule.Value = "oui" Then Cellule.EntireRow.Hidden = True
'on continue la boucle
Next Cellule
'rétablir écran
Application.ScreenUpdating = True

End Sub

Merci pour votre aide, si précieuse.

Bien à vous,
Christian

 

[Christian0258]

Re : Macro pour masquer ligne si en colonne A trouve "oui"...

Re, le forum,
Problème résolu,
J'ai déclaré la zone Range("A169"), soit une ligne en plus que la zone concernée et c'est OK.

Bonne soirée,
Christian

 

[Christian0258]

Re : Macro pour masquer ligne si en colonne A trouve "oui"...

Re, le forum,Jean Marcel,

Merci, Jean Marcel, pour ton aide.

Bien à vous,
Christian

 

[Papou-net]

Re : Macro pour masquer ligne si en colonne A trouve "oui"...

Bonsoir Christian0258,

Apparemment, le problème vient de la définition de la zone de cellules.

Essaies en modifiant ton code comme ceci :

Sub CacherLigne()
Dim Cellule As Range
[COLOR="red"]Dim Zone As String[/COLOR]
'geler l'écran
Application.ScreenUpdating = False
'Définir zone (ici colonne A jusqu'à 168)
[COLOR="red"]Zone = Range("A10:A" & Range("A168").End(xlUp))[/COLOR]
'on commence la boucle sur les Cellules de Zone
[COLOR="red"]For Each Cellule In range(Zone)[/COLOR]
'si cellule différente de oui malgré formule alors masquer
[COLOR="red"]If Ucase(Cellule.Value) = "OUI" Then Cellule.EntireRow.Hidden = True[/COLOR]
'on continue la boucle
Next Cellule
'rétablir écran
Application.ScreenUpdating = True

End Sub

Espérant avoir répondu.

Cordialement.

Edit : désolé, pas vu les réponses précédentes.