Discussion :

[Musetic]

Bonjour,

Je pense que le sujet n'a pas été abordé sur ce forum. Si c'est le cas, j'ai mal recherché et je m'en excuse.

Pour expliquer mon problème, voici un exemple de code:

Code :

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

1
2
3
4
5
6
7
8
Dim Var_int As Integer
Dim Var_double As Double
 
Var_int = 1
Var_double = 1.5
 
Cells(1, 1).Formula = "= feuil!C1 + " & Var_int
Cells(1, 2) .Formula = "= feuil!C1 + " & Var_double

Dans le cas de la variable integer, aucun soucis, mais avec la variable double, je me retrouve avec une erreur 1004.
Quelqu'un aurait-il une idée de pourquoi ? et comment y remédier ?

En vous remerciant,

Musetic

[SuperKiwi]

Essaye avec 1,5 et non 1.5

[Musetic]

En fait le code était un peu trop simplifié. Disons plutôt:

Code :

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

1
2
3
4
5
6
7
8
Dim Var_int As Integer
Dim Var_double As Double
 
Var_int = cells(2,1) 'avec Cells (2,1) a pour valeur numérique 1.5
Var_double = cells(2,1) 'La même cellule que précédemment
 
Cells(1, 1).Formula = "= feuil!C1 + " & Var_int
Cells(1, 2).Formula = "= feuil!C1 + " & Var_double

J'ai l'impression qu'on ne peut pas utiliser de double avec 'Formula', mais j'espère me tromper !

[Marc-L]

Bonjour !

J'ai l'impression qu'on ne peut pas utiliser de double avec 'Formula', mais j'espère me tromper !

Non, c'est juste à cause du séparateur décimal …

Deux solutions pour le cas d'une version française d'Excel :

• Cells(1, 2).FormulaLocal = "=feuil!C1+" & Var_double

• Cells(1, 2).Formula = "=feuil!C1+" & Replace(Var_double, ",", ".") …

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[Musetic]

Merci Marc L, ça fonctionne effectivement.

S'en suit un problème : la macro sera utilisée par des Français (ça, pas d soucis), mais aussi par des Allemands, des Suisses... Comment faire pour que ce soit "international" ? Je pensais justement que "FormulaLocal" posait problème si des étrangers utiliser la macro...

En tout cas merci, j'ai fait un bon pas !

Musetic

[Marc-L]

Essaye avec 1,5 et non 1.5

Non ! Le séparateur décimal en VBA est toujours le point !