Discussion :

[primax]

Bonjour à tous,

Voici mon souci:
J'ai écris un petit programme qui marche bien depuis un excel "américain", comprenez avec le séparateur décimal en "."

Quand je le lance sur d'autres pc avec des paramètres régionaux européens, j'ai toujours une erreur qui survient. Il faut alors que je change les paramètres régonaux dans le panneaux de configuration pour régler le séparateur décimal de "," à "."...

Y a t'il un moyen de forcer ce paramètrage au lancement ou au moins de le vérifier et le cas échéant indiquer un message d'erreur personnalisé.

Merci d'avance!

[primax]

Personne n'a jamais rencontré ce problème de séparateur décimal??

[ouskel'n'or]

Personne n'a jamais rencontré ce problème de séparateur décimal??

Oh si !
Regarde là, AlainTech propose quelque chose. Ne t'occupe pas des espace, concentre toi sur le format qu'il propose.
Et si ça ne fonctionne pas, tu nous dis, il existe d'autres méthodes.
A+

[primax]

Concretement, ça veut dire que je dois faire quoi lors du code de chargement de ma worksheet?

Un truc comme ça?

NumberFormat = "### ### ##0.0##"

[ouskel'n'or]

Oui, tu formates ta/tes colonne(s) selon ce format. Exemple :

Code :

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

Columns("C:C").NumberFormat = "### ### ##0.0##"

Comme je t'ai dit, tu testes...

[primax]

J'ai essayé pas mal de chose... Mais c'est un peu du bidouillage...
Ce que je veux faire concerne tout le document et je voudrais éviter de faire de cas par cas par cellules.

N'y a t'il donc aucun moyen de paramètrer au lancement du fichier le format des nombre une fois pour toute??

Merci de votre aide quoi qu'il en soit

[primax]

Rebonjour,

En fait j'ai essayé ceci:

Code :

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

1
2
3
4
With Application
  .DecimalSeparator = "."
  .UseSystemSeparators = False
End With

Toute les cellules s'affiche maintenant bien avec des "." mais il y a toujours le même problème de fond:

Dans mon code vba, j'écris parfois directement des formules contenant des nombres. Par exemple:

Code :

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

.FormulaR1C1 = "=5.3 + 2.9 ...."

Ces formules génèrent toujours une erreur... Il semblerait finalement que les paramètres régionaux du PC jouent un rôle....

[ouskel'n'or]

Essaie avec Formula

Code :

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

.Formula = "=5.3 + 2.9 ...."

ou avec formulalocal

Code :

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

.FormulaLocal = "=5.3 + 2.9 ...."

A tout hasard

[Invité]

Bonjour,

Comme souvent, le même problème (ou l'absence de problème ?)

J'ai Excel 2000. Dans les paramètres régionaux j'ai bien la "," comme séparateur décimal.

Je tape :

Code :

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

1
2
3
Sub essai()
Cells(1, 1).Formula = "=5.3 + 2.9"
End Sub

Dans la barre de formule, il s'affiche :

=5,3 + 2,9

et en "A1" : 8,2

Là encore une différence de version ?

[ouskel'n'or]

Non, j'ai bien la même chose que toi, Excel 97 ou 2003.

[primax]

Et bien je ne comprends pas...
Votre excel est-il configuré pour prendre les paramètres du système?

J'utilise partout "FormulaR1C1" car j'ai besoin de nommer et de faire référence aux colonnes et aux lignes avec un indice chiffré...

Pour le moment, j'ai simplement fait un test qui informe l'utilisateur et qui le programme si le séparateur décimal du system est ",'

En attendant mieux...

[Invité]

Bonjour Primax,

Quel test avez-vous fait ?

Car à partir du moment où il est défini que l'utilisateur a pour séparateur décimal la "," vous pourriez essayer :

Code :

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

1
2
3
formul = Replace("=5.3 + 2.9", ".", ",")
 
FormulaR1C1 = formul

[primax]

Bonjour.

Le programme est si gros que je n'envsage même pas de faire des corrections au cas par cas comme ceci...

J'ai fait un test au démarrage du fichier... On va dire que c'est résolu...

Merci à tous

[Krispé]

[QUOTE=primax;2505707]Bonjour à tous,

"Y a t'il un moyen de forcer ce paramètrage au lancement ?"

Bonjour,
Confronté au même problème j'ai trouvé cette solution :

Sub DecModifTmp()
'modifie le séparateur décimal le temps du traitement
Dim vSep As String
vSep = Application.DecimalSeparator
Application.DecimalSeparator = "."
Application.UseSystemSeparators = False

Call Traitement

Application.DecimalSeparator = vSep
End Sub

Ca fonctionne bien pour moi.
Bonne utilisation