Masquer valeurs non comprise

[guigui76]

Bonjour, je n'arrive pas à masquer les valeurs non comprise dans un tableau.
Si j'applique le code suivant tous se masque
Je vous remercie pour l'aide que vous pouvez me procurer.

Sub Masquer()

Application.ScreenUpdating = False
MaxLigne = Range("h65536").End(xlUp).Row
For Tourne = 15 To MaxLigne
If Range("h9").Value < 0 Or _
Range("h10").Value > 0 Then Rows(Tourne).EntireRow.Hidden = True
Next Tourne
Application.ScreenUpdating = True
End Sub

 

[tototiti2008]

Re : Masquer valeurs non comprise

Bonjour guigui,

Comme tu testes les valeurs des cellules H9 et H10 à chaque tour, et que leur valeur ne change pas d'un tour à l'autre, il est normal que soit ça masque tout ou rien.

A priori je dirais qu'il faut utiliser la valeur de Tourne quelque part par là :

If Range("h9").Value < 0 Or _
Range("h10").Value > 0 Then

 

[guigui76]

Re : Masquer valeurs non comprise

Je te mets le fichier en piece jointe.
c'est bien logique de vérifier si les seuils non pas changé ? non?

 

[Cousinhub]

Re : Masquer valeurs non comprise

Bonjour,

Bonjour, toto 🙂

Si j'ai bien compris....

Sub Masquer()
Dim MaxLigne As Long, Tourne As Long
Application.ScreenUpdating = False
MaxLigne = Range("h65536").End(xlUp).Row
For Tourne = 16 To MaxLigne
    Rows(Tourne).EntireRow.Hidden = Not (Cells(Tourne, 8).Value > [H9] And _
        Cells(Tourne, 8).Value < [H10])
Next Tourne
Application.ScreenUpdating = True
End Sub

Peut-être......

Bon dimanche

 

[guigui76]

Re : Masquer valeurs non comprise

Super.
Je te remercie pour ton aide.
Bon dimanche