Discussion :

[Geraldvi]

Bonjour,

J'aurais un petit problème à vous soumettre. Je dispose d'une feuille de calcul où il y a des points à la place des virgules pour les decimaux.

Lorsque je fait Remplacer . par , manuellement, Excel fait bien les remplacements et les cellules sont ensuites correctement affichées comme des nombres.

Lorsque je le fait avec une macro, il y a bien remplacement, les cellules passent aussi en format nombre mais je suis ensuite obligé de repasser sur chaque cellules individuellement pour qu'elles soient réellement considérées comme des nombres, ce qui n'est pas très pratique pour mes deux milles cellules !...

Avez vous déjà eut ce problème ? et savez vous comment le résoudre ?

Merci pour votre réponse

[patbou]

bonjour,


Regarde la fonction REPLACE()

[AlainTech]

Essaye

Code :

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

Cells(1, 1).Value = Cells(1, 1).Text

Explication:
Pour VBA, le séparateur décimal est le point.
En prenant la valeur affichée dans la cellule (.Text), on prend le point comme séparateur, ce qui est correct pour VBA.
En assignant cette valeur au .Value de la cellule, la conversion se fait automatiquement.

[DidierLoche]

Bonjour,

J'ai eu le même soucis dans le passé pour ouvrir des fichiers texte en fonction du séparateur décimal système et Excel.
Pour cela, avant d'ouvrir un fichier texte, je force le séparateur décimale Excel à celui du fichier texte que je veux ouvrir, j'ouvre le fichier texte et ensuite je remets le séparateur décimal en ".".
Cela donne ceci :

Code :

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

1
2
3
4
Application.DecimalSeparator = ","
    Workbooks.OpenText Filename:= _
        "D:\Documents and Settings\Didier\Mes documents\VBA\table.txt", Origin:= xlMSDOS, DataType:=xlDelimited, Tab:=True, local:=True
Application.DecimalSeparator = "."

Je ne maitrise pas bien le "local:=true" mais j'ai remarqué que sans cela, mes collègues allemands ou anglais avaient des problèmes.

Voilà, si cela peut aider.

Didier

Autres précisions.
J'ai fait l'inverse de ce qui est demandé (j'ai changé les virgules en points) mais vous ariverez facilement à faire l'inverse
J'ai considéré que le délimiteur de mon fichier texte était la tabulation. Faire enregistrer macro et ouvir le fichier texte au format qui va bien pour avoir la syntaxe qui va bien. Par contre, ajouter le fameux "Local:True".

Didier