Séparateur décimal dans une formule

J'ai un peu le même problème que smedini dans cette discussion.

Mes paramètres linguistiques sont en français, et donc le séparateur décimal est la virgule. Je veux faire une formule sous VBA Excel, or avec le champ formula, le séparateur de paramètre à l'intérieur de la formule est aussi la virgule !! et donc le gars Excel il se mélange les pinceaux...

exemple ou Excel fait une erreur à l'execution car unDeci est un nombre décimal

Code:

---

1 2 3 4 5 6

Sub mon_exemple() Dim unDeci As Double unDeci = 12345.12 Range("A2").Formula = "=IF(A1 > " & unDeci & ", ""plus"", ""moins"")" End Sub

---

Par contre si le contenu de la variable est entier, ça fonctionne

Code:

---

1 2 3 4 5 6

Sub mon_exemple() Dim unDeci As Double unDeci = 12345 Range("A2").Formula = "=IF(A1 > " & unDeci & ", ""plus"", ""moins"")" End Sub

---

Y'a-t-il un moyen de contournement (plutôt dans la macro que dans la configuration de windoz) ?

(A la base mon probleme vient de l'insertion de dates avec des heures dans une formules sous vba excel, mais j'ouvrirai un autre post).

Merci

Normalement ton code ne devrait pas planter a cause du symbole décimal car c'est bien le point qui est dans la valeur 12345.12
Sur quelle ligne se trouve l'erreur

L'erreur se trouve à l'exécution lors de l'assignation

Citation:

---

Range("A2").Formula = "=IF(A1 > " & unDeci & ", ""plus"", ""moins"")"

---

Parce que vba transforme unDeci en chaine de caractère et met alors une virgule, il y a alors un message d'erreur car cela fait 4 paramètres pour la fonction IF qui n'en n'attend que 3.

D'ailleurs si je remplace le "=IF(..." par "=AND(..." je n'ai plus de message d'erreur , par contre je n'ai pas la bonne formule dans la cellule :

=AND(A1>12345 ; 12 ; "plus" ; "moins")

alors que j'attendais

=AND(A1>12345,12 ; "plus" ; "moins")

essai comme ca

Code:

---

Range("A2").Formula = "=IF(A1 > " & replace(str(unDeci),",",".") & ", ""plus"", ""moins"")"

---

Merci, j'ai trouvé 2 solutions :

1 / Ta solution en substituant la virgule par un point (pour qu'en suite Excel resubistitue par une virgule dans l'affichage de la formule !).
2/ l'utilisation de .formulaLocal pour que les séparateurs dans une formule soient des ";" et non pas des ","

le code qui marche :

Code:

---

1 2 3 4 5 6 7 8

Sub mon_exemple() Dim unDeci As Double unDeci = 12345.12 'ca marche en utilisant les separateurs de formule liés à la langue (les points-virgules) Range("A2").FormulaLocal = "=IF(A1 > " & unDeci & "; ""plus""; ""moins"")" ' ou ca marche aussi Range("A3").Formula = "=IF(A1 > " & Replace(unDeci, ",", ".") & ", ""plus"", ""moins"")" End Sub

---