Discussion :

[Djohn]

Bonjour,

Je débute sur le vba et je suis face a un problème

Je souhaite transformer tous les séparateurs de décimale de ma feuille excel qui sont des points en virgule

J'ai commencé tout bétement par enregistrer une macro, ce qui m'a donné ceci :

Code :

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

1
2
Cells.Replace What:=".", Replacement:=",", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

Mais tres bizarement lorsque j'insere ceci dans ma macro elle ne fonctionne pas du tout.

Alors j'ai vu qu'il existait la fonction DecimalSeparator mais je dois mal l'utiliser car elle n'a aucun effet sur ma feuille excel

Code :

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

1
2
Cells.Select
Application.DecimalSeparator = ","

Si vous avez une solution merci de pouvoir me donner un ptit coup de main

[ouskel'n'or]

Non, DecimalSeparator s'utilise à l'ouverture du fichier.
S'il s'git d'un txt ou d'un .csv, tu as des indications ici, dernier post.
A+

[ruzakruzak]

Un petit tour par l'enregistreur me donne ça :

Code :

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

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

Je suppose que ta tentative ne fontionne pas parce que, dès que ta macro s'est exécutée, Excel corrige tout seul la syntaxe...

[Djohn]

merci pour vos réponses,

Je pensais a la mm chose que toi ruzakruzak.

N'y a t'il pas un moyen de contourner le problème sans changer les paramètres régionaux de Windows ?

[ouskel'n'or]

Si, en ouvrant ton txt ou csv avec les bons paramètres

[Djohn]

dsl, je n'ai pas compris ta réponse,

mon fichier est en .xls et qu'appelles tu les bons paramètres ?

[ouskel'n'or]

Autant pour moi, j'avais compris (en raison du format des décimales) que ton fichier était issu d'un .txt ou d'un .csv.
pour tonpb j'ai donné la solution il y a une quinzaine mais là je n'ai pas le temps de faire une recherche. C'est sur le forum VBA Excel, si tu veux jeter un oeil...
A+

Edit
Comme j'ai trouvé en moins de 15 secondes... Regarde la réponse 10, ici
A+ et bonne chasse aux points

[Djohn]

Merci pour ta paricipation ouskel'n'or

J'ai réussi par erreur et par hasard à trouver une solution simplifiée.

En remplaçant les points par des points... oui je sais que cela semble trés bizarre, mais ça fonctionne, au final mes points se sont bien transformés en virgule.

Code :

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

1
2
3
cells.select
Cells.Replace What:=".", Replacement:=".", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

[ouskel'n'or]

Non, ce n'est pas bizzare, il me semblait bien que j'avais utilisé ce type de code il y a plusieurs année mais je ne l'avais pas retrouvé quand j'ai proposé la solution de l'url que t'ai indiquée. Et pourtant j'en ai essayé des choses
Je vais mettre un lien sur ta réponse, elle le mérite.
Merci de ta réponse à ta question.
A+