simplification code

[eduraiss]

Bonjour le forum
le code ci-dessous me permet de masquer des lignes

Y a t-il un moyen pour le simplifier?

Sub Masquer()
Application.ScreenUpdating = False
For Each cell In Range("c3:c638")
If cell.Value = "4 M2 RM" Then cell.EntireRow.Hidden = True
If cell.Value = "3 Z3" Then cell.EntireRow.Hidden = True
If cell.Value = "2 Z2 L3" Then cell.EntireRow.Hidden = True
Next
Application.ScreenUpdating = True
End Sub

Cordialement

 

[Paritec]

Re : simplification code

Bonjour Eduraiss le forum
pourquoi la boucle dure au moins 0,1 seconde ??? !!!!! et tu voudrais aller plus vite??
a+
papou😱

 

[Hulk]

Re : simplification code

Hello Eduraiss,

Ben là il est pourtant bien simplifié...

Qu'est-ce que tu entends par "simplifier" 😎, tu veux dire raccourcir ? Parce qu'il est bien raccourci aussi ! (c'est mon avis...)

 

[tototiti2008]

Re : simplification code

Bonjour edurais, Bonjour Paritec 🙂

Plus court en caractères, mais peut-être pas en temps :

Sub Masquer()
Application.ScreenUpdating = False
For Each cell In Range("c3:c638")
If cell.Value = "4 M2 RM" or cell.Value = "3 Z3" or cell.Value = "2 Z2 L3" Then cell.EntireRow.Hidden = True
Next
Application.ScreenUpdating = True
End Sub

Edit : Bing, Bonjour Hulk 🙂

 

[DoubleZero]

Re : simplification code

Bonjour, eduraiss, le Forum,

Comme ceci, peut-être :

Sub Masquer()
Application.ScreenUpdating = False
For Each cell In Range("c3:c638")
If cell.Value = "4 M2 RM" Or cell.Value = "3 Z3" Or cell.Value = "2 Z2 L3" Then cell.EntireRow.Hidden = True
Next
Application.ScreenUpdating = True
End Sub

A bientôt 🙂

Bonjour, Papou 🙂, Hulk 🙂, tototiti 🙂 !

 

[eduraiss]

Re : simplification code

Bonjour,

Merci a vous, désolé de n'avoir pas été assez clair, c'était plus tôt raccourci
Comme j'ai pas mal de ligne a masquer avant de faire l'impression cela était pour éviter de répéter
If cell.Value = "4 M2 RM" Then cell.EntireRow.Hidden = True
je ne sais combien de fois
c'est çà que me convient :If cell.Value = "4 M2 RM" Or cell.Value = "3 Z3" Or cell.Value = "2 Z2 L3" Then

Merci de votre aide