MFC supérieure à 3 conditions

[lynyrd]

Bonjour le forum
J'ai regardé sur le forum les exemples déjà existant,mais je n'ai pas trouvé les réponses qui conviennent pour mon exemple.

En VBA,comment ecrire :
Si dans la feuille "Feuil1" se trouvent les mots (brive,stade français,perpignan,toulouse,bourgoin),alors ils doivent être écris en rouge.
Merci pour votre aide.

 

[Brigitte]

Re : MFC supérieure à 3 conditions

Bonjour,

Dans ta MFC, par exemple :

- la formule est : =OU(A1="brive";A1="stade français";A1="perpignan")
etc... pour autant de mots que tu veux

- choisir la couleur "rouge" dans format.

A adapter en VBA (je ne sais pas faire)... mais peut être que ca peut t'aiguiller.

Attention, il faudra que le mot soit bien saisi tel que dans la MFC.

 

[pierrejean]

Re : MFC supérieure à 3 conditions

bonjour lynyrd

A tester

x = "brive,stade français,perpignan,toulouse,bourgoin,"
For Each cel In Sheets("Feuil1").UsedRange
  If InStr(x, cel.Value & ",") <> 0 Then
    cel.Font.ColorIndex = 3
  End If
Next cel

Edit : Bonjour Tites Couettes (et bisous)

 

[Brigitte]

Re : MFC supérieure à 3 conditions

Bonjour,

Gros bisou Pierre (et Dany)... Et voilà tu as tout : formule et macro (équivalente il me semble).

 

[lynyrd]

Re : MFC supérieure à 3 conditions

Merci Brigitte et pierrejean.