Discussion :

[Tonton Phil]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jfontaine]

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

[Tonton Phil]

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

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")

[jfontaine]

essai comme ca

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Tonton Phil]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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