For If Then

[Fox]

Bonjour tous le monde en ce beau samedi

Voilà ma macro qui m'a été donné dans un post précédent et que j'ai un peu modifié.

Private Sub Workbook_Open()
For x = 1 To 30
For y = 3 To 26 'colonnes
If Cells(x, y).Value = "Hol" Then
Range(Cells(x, 2), Cells(x, 26)).Interior.ColorIndex = 6
Exit For
End If
Next y
Next x
For x = 1 To 30
For y = 3 To 26 'colonnes
If Cells(x, y).Value = "Sp1" Then
Range(Cells(x, 2), Cells(x, 26)).Interior.ColorIndex = 8
Exit For
End If
Next y
Next x

End Sub


Ma question

A cette ligne

If Cells(x, y).Value = "Sp1" Then

si je veux lui dire If Cells(x, y).Value = "Sp1" sp2 sp3 sp4

c'est possible ou je dois à chaque fois rouvrir une boucle pour Sp2 Sp3 etc..?

car si je marque If Cells(x, y).Value = "Sp1" "sp2" "sp3" "sp4"
j'ai une erreur.

Merci

 

[Yo]

Salut,
Il faut que tu mettes :

If Cells(x, y).Value = "Sp1" or Cells(x, y).Value = "sp2" or Cells(x, y).Value = "sp3" or Cells(x, y).Value = "sp4" then

 

[Fox]

Grand merci

 

[Jean-Marie]

Bonjour,

et If Right(Cells(x,y),1)<5 then

Bonne journée

@+Jean-Marie