Simplifier une macro

[bambi]

[Résolu] Simplifier une macro

Bonjour à tous
J'ai une macro qui me permet de cacher des lignes d'un tableau selon 2 conditions, présence d'un mot dans une cellule.
Vu que j'ai 2 mots (Cancel et Reject) pour lesquels je masque la ligne entière, j'ai 2 fois la même commande (rouge puis bleue)
Ne serait-il pas possible de simplifier la macro et de grouper les 2 mots sur la même ligne de code ?
Merci d'avance

Sub cacherligne()

Application.ScreenUpdating = False

Dim i As Long

For i = Range("E65536").End(xlUp).Row To 2 Step -1
Cells(i, 5) = Trim(Cells(i, 5))
If Cells(i, 5).Value = "Cancel" Then
Cells(i, 5).EntireRow.Hidden = True
End If
Next i

For i = Range("E65536").End(xlUp).Row To 2 Step -1
Cells(i, 5) = Trim(Cells(i, 5))
If Cells(i, 5).Value = "Reject" Then
Cells(i, 5).EntireRow.Hidden = True
End If
Next i

Application.ScreenUpdating = True

End Sub

 

[Pierrot93]

Re : Simplifier une macro

Bonjour,

essaie ainsi :

For i = Range("E65536").End(xlUp).Row To 2 Step -1
Cells(i, 5) = Trim(Cells(i, 5))
If Cells(i, 5).Value = "Cancel" Or Cells(i, 5).Value = "Reject" Then
Cells(i, 5).EntireRow.Hidden = True
End If
Next i

bonne journée
@+

 

[bambi]

Re : Simplifier une macro

Merci beaucoup Pierrot
J'avais essayé le "or" et le "and" mais je ne reprenais pas tout à fait les bons termes (le if en trop )
Très Bonne journée