Mise en forme cellule

Bonjour

J’ai essayé de reprendre une macro que j'avais dans un fichier pour l'adapter mais ça dépasse mes compétences en vba

si joint la macro et un fichier joint

Sub test1()

With Worksheets("Feuil1").Range("a7:a100")

.FormatConditions.Delete

.FormatConditions.Add Type:=xlExpression, Formula1:= _

"=SI(a7=""4MG2"";ET(c7>f7)"

or "=SI(a7=""4SR1"";ET(c7>e7)"

.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority

With .FormatConditions(1).Interior

.PatternColorIndex = xlAutomatic

.ThemeColor = xlThemeColorDark1

.TintAndShade = -0.14996795556505

End With

.FormatConditions(1).StopIfTrue = False

End With

End Sub

merci d'avance à tous pour votre aide

cordialement

philippe

Bonjour

Tu devrais expliquer ce que tu attends de cette macro...

Bye !

Bonjour

pour répondre à la demande à Gmb

je souhaite mettre la cellulle de la colonne B rouge

si colonne A = 4MG2

je teste la colonne C > la colonne F autrement je teste la colonne C > la colonne E ( si colonne A et = 4sr1)

j'espere avoir répondu

philippe

Un essau à tester. Te convient-il ?

lBye !

bonsoir gmb

à tester dans mon fichier au bureau, mais ça à l'air de donner ce que j'attends

je te tiens au courant demain

merci en attendent

Philippe

bonjour

pour information ça fonctionne bien dans mon ficher au bureau

merci encore pour votre aide

philippe