Bonjour,

Petit souci du jour, j'ai une macro qui ajoute des MFC mon excel est en anglais celui de la personne qui doit l'utiliser en français, via l'enregistreur de macro et après retouche j'obtient le code suivant:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
    dl = Range("A" & Rows.Count).End(xlUp).Row
    Range("A2:I" & dl).Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
    "=NOT(COUNTBLANK($G2)=1)"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
    .PatternColorIndex = xlAutomatic
    .Color = 49407
    .TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
 
Range("A2:I" & dl).FormatConditions.Add Type:=xlExpression, Formula1:= _
    "=NOT(COUNTBLANK($H2)=1)"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
    .PatternColorIndex = xlAutomatic
    .Color = 255
    .TintAndShade = 0
End With
La partie qui me pose problème est celle-ci
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
FormatConditions.Add Type:=xlExpression, Formula1:= _
    "=NOT(COUNTBLANK($G2)=1)"
Cette formule qui marche quand Excel est en anglais, ne marche plus quand Excel est en français, contrairement a une formule mise dans une cellule où Excel fait la traduction tout seul, là il laisse le tout en anglais et la MFC ne fonctionne pas.
Ma question est donc y a-t-il moyen de lui faire traduire cette formule(si oui comment)? ou dois-je modifier le code pour prendre en compte la langue d'excel.

Merci d'avance.