[XL-2010] Vba mise en forme conditionnelle

Bonjour,

J'essai de combiner plusieurs MFC en vba hors cela ne fonctionne pas.
La couleur que je souhaite appliquer à ma 2ème condition est appliquée sur la 1ère. Lorsque je vais voir après exécution du code comment sont prises en compte les MFC dans la fenêtre MFC, les conditions 2 et 3 ne contiennent que la formule et le reste est vide.

ci-dessous le code, une idée sur ce qui ne fonctionne pas ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
        Sheets("Feuil1").Range("A:AF").Select
 
        Selection.FormatConditions.Delete
 
        'Appliquer couleur grise
        Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=SI(ET($R1<>"""";$R1<=AUJOURDHUI());VRAI;FAUX)"
        'Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
        Selection.FormatConditions(1).Borders(xlLeft).LineStyle = xlContinuous
        Selection.FormatConditions(1).Borders(xlRight).LineStyle = xlContinuous
        Selection.FormatConditions(1).Interior.Pattern = xlSolid
        Selection.FormatConditions(1).Interior.PatternColorIndex = xlAutomatic
        Selection.FormatConditions(1).Interior.ThemeColor = xlThemeColorDark1
        Selection.FormatConditions(1).Interior.TintAndShade = -0.249946592608417
        Selection.FormatConditions(1).Interior.PatternTintAndShade = 0
        'Selection.FormatConditions(1).StopIfTrue = False
 
        'Appliquer couleur jaune
        Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=SI(ET($R1<>"""";$R1<AUJOURDHUI()+365);VRAI;FAUX)"
        'Selection.FormatConditions(Selection.FormatConditions.Count).SetLastPriority
        Selection.FormatConditions(1).Borders(xlLeft).LineStyle = xlContinuous
        Selection.FormatConditions(1).Borders(xlRight).LineStyle = xlContinuous
        Selection.FormatConditions(1).Interior.Pattern = xlSolid
        Selection.FormatConditions(1).Interior.PatternColorIndex = xlAutomatic
        Selection.FormatConditions(1).Interior.Color = 13434879
        Selection.FormatConditions(1).Interior.TintAndShade = 0
        Selection.FormatConditions(1).Interior.PatternTintAndShade = 0
        'Selection.FormatConditions(1).StopIfTrue = False
 
        'Appliquer des bordures à droite et à gauche lorsqu'un n° de client est saisit
        Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$A1<>"""""
        'Selection.FormatConditions(Selection.FormatConditions.Count).SetLastPriority
        Selection.FormatConditions(1).Borders(xlLeft).LineStyle = xlContinuous
        Selection.FormatConditions(1).Borders(xlRight).LineStyle = xlContinuous
        'Selection.FormatConditions(1).StopIfTrue = False
 
 
    '[A1].Select

Merci d'avance.

PS : Une condition toute seule fonctionne mais pas les 3 combinées.