Pourquoi ça marche pas?

[Fabien]

Bonjour

Si quelqu'un voit l'erreur...


If Range("M1").Value = 7 Or Range("M1").Value = 8 _
Then Rows("10:10,16:16,22:22,28:28,34:34,40:40,46:46,52:52,58:58,64:65536").Hidden = True _
Else Rows("5:65536").Hidden = True


Merci

 

[C@thy]

j'ai testé ça :

If Range("M1").Value = 7 Or Range("M1").Value = 8 Then
Range("10:10,16:16,22:22,28:28,34:34,40:40,46:46,52:52,58:58,64:65536").EntireRow.Hidden = True
Else
Rows("5:65536").Hidden = True
ça marche

C@thy

 

[Pascal76]

Bonjour le fil

D'accord avec C@thy, il faut écrire avec Range(....).entirerow.hidden=true

et un end if à la fin si tu reviens à la ligne

Sinon juste un petit détail; là tu masques tes lignes mais tu ne donne pas d'instruction pour les rafficher

Ce qui veut dire que si M1 = 5 par exemple tes lignes 5 à 65536 se masquent; si ta valeur de M1 revient à 7 ou 8 tes lignes restent masquées car tu n'a pas fait un hidden = false avant

Bonne journée

Pascal

 

[C@thy]

Ah voui, j'ai pas recopié le end if à la fin.
Très juste Pascal, il faut tout réafficher avant ton test..
je vois que tu portes toujours bien tes 76 ans! Lol!!!

 

[Fabien]

Merci

Mais pourquoi ca, ca marche

If Range("M1").Value = 9 Or Range("M1").Value = 10 _
Then Rows("64:65536").Hidden = True _
Else Rows("5:65536").Hidden = True

??????

 

[Pascal76]

Re

Dans un cas tu as des lignes contigues dans l'autre cas non

Pascal

 

[Fabien]

Escusez-moi je viens de comprendre ma connerie.............;


A+