Discussion :

[francois1979]

Bonjour à tous,

je suis à monter un petit programme excel qui sera utiliser sur un windows XP en français, avec Office 2003 en français. Par contre, il peut arriver que le poste de la personne soit configuré en français ou en anglais. Le séparateur de décimale n'est donc pas identique dans chacune des langues.

Dans ma fonction VBA, j'établis un montant ainsi : prime_enfant = 25.5. Si je roule la macro avec ma configuration en anglais, tout fonctionne correctement. si je roule la macro avec ma configuration en français, ça plante.

Ça plante car VBA ne reconnaît pas le chiffre (il sait que le 25.5 est un chiffre, puisqu'il le considère comme 25,5).

Dans ma macro, j'utilise les formules Excel. Voici où ça plante :

Code :

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

=max(0,round((RC37*RC33*" & benefice_spouse & "+" & prime_enfant & ")*rc[-1],2))

car il considère prime_enfant comme étant un caractère (j'ai fait le test et j'ai mis 25 dans prime_enfant et il n'y a pas de problème). J'ai une erreur 1004.

De plus, je tiens à ce que la macro inscrive des formules dans Excel (et non pas faire les calculs à même la macro).

Est-ce qu'il y a quelqu'un qui pourrait me dire s'il est possible de modifier les paramètres dès le début de la macro afin de changer les chiffres en anglais et revenir au français par la suite?

Merci!


François

[Gorfael]

Salut francois1979
Tu déclares tes variables ? en Double pour prime_enfant ?

Quand c'est une anomalie de fonctionnement, comment veux-tu qu'on trouve une solution, si tu ne donne pas ta macro ? Peu de personnes ont les 2 versions, et te proposer des solutions qu'on ne peut tester que dans une version demande qu'on connaisse tout le code, pas que la partie que tu soupçonnes de provoquer ton problème, pour essayer d'éliminer toutes les possibilités de conflit potentiel sur l'une ou l'autre version
A+

[Abed_H]

Bonsoir
voir du côté de:

Code :

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

Application.International (xlDecimalSeparator)

Bonne soirée

Abed_H

[fring]

Bonsoir tlm,

Peut-être comme ceci

Code :

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

"=max(0,round((RC37*RC33*" & Val(benefice_spouse) & "+" & Val(prime_enfant) & ")*rc[-1],2))"

[francois1979]

Merci pour votre aide, mais ça ne fonctionne pas encore.

Je comrpends que je pourrais utiliser Val ou encore Replace (je remplace la virgule par un point). Mais j'aimerais mieux une solution globale au début du code (ex : changer le système de français à anglais seulement lors de l'exécution de la macro).

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub calcul()
 
Dim benefice_spouse As Double     'Bénéfice payable au décès du conjoint
Dim prime_enfant As Double        'Prime payable pour l'assurance vie des enfants
 
benefice_spouse = 5000
prime_enfant = 25.5
 
Range("AM2").FormulaR1C1 = "=max(0,round((RC37*RC33*" + CStr(benefice_spouse) + "+" & prime_enfant & ")*rc[-1],2))"
 
End Sub

Merci encore pour votre aide!


François