Question sur une chaine de caractères

Bonjour

j'ai tenté une petite recherche perso mais sans succès , je vous soumet donc ma question , en colonne A de ma feuille de calcul

j'ecris tout les entiers allant de 123 à 321 , ensuite je souhaite donner une couleur rouge à toutes les cellules qui contiendrait

1 , 2 et 3 pas forcement dans cet ordre ,

j'ai donc essayé une instruction du type :

For Each cell In Range(Cells(1, 1), Cells(198, 1))

If cell Like "*1*" & "*2*" & "*3*" Then

cell.Interior.ColorIndex = 3

soucis est que rien ne se colorie , je pense que la manière d'ecrire cette instruction n'est pas exacte

Auriez vous une proposition ?

Merci à vous.

Bonjour Rocket4

Le test ne s'écrit effectivement pas comme ça , mais :

Sub Test()
  Dim Cel As Range
  For Each Cel In Range(Cells(1, 1), Cells(198, 1))
    If Cel Like "*1*" And Cel Like "*2*" And Cel Like "*3*" Then
      Cel.Interior.ColorIndex = 3
    End If
  Next Cel
End Sub

A+

edit : une bonne réponse déjà

Bonjour

Modifie ainsi et essaie :

 If Cell Like "*1*" Or Cell Like "*2*" Or Cell Like "*3" Then

Bye !

Merci à tous pour vos réponses ! ca marche !! ..vous souhaitant un bon week end!

Gmb,

Il est dit

les cellules qui contiendrait 1, 2 et 3 pas forcement dans cet ordre

Donc pour moi, les 3 chiffres ensemble

A+

Bonjour Bruno

Tu as raison. Ta formule est sûrement la bonne !

Bye !