Discussion :

[samz25]

Bonjour à tous,

J'ai cherché une réponse à mon problème sans succés.
Ma macro fonctionne mais partiellement. Je m'explique,

J'ai un fichier csv que j'ouvre via une macro dans une nouvelle feuille. dans ce fichier, la virgule est representé par un point et j'ai besoin d'une virgule.

j'applique cette macro :

Code :

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

1
2
3
4
5
6
 
Sub remplacement()
Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub

le problème est qu'il me remplace bien certaine colonnes mais sur d'autres colonnes, 282.3513 devient 2823513 au lien de 282,3513...

Merci pour votre aide

[fgiambelluco]

Bonjour
Pour changer les . en , il vaut peut être mieux utiliser le Données/Convertir
Un exemple de conversion de la colonne E:

Code :

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

    Selection.TextToColumns Destination:=Range("E1"), DataType:=xlDelimited,DecimalSeparator:="."

[samz25]

salut fgiambelluco,

j'ai pas bien compris ta réponse

[fgiambelluco]

Re
En fait l'idée, ce n'est pas d'utiliser le Remplacer , mais le Convertir.

Pour test ça (en manuel sans VBA):
-ouvre ton fichier CSV
-Sélectionne les colonnes qui contiennent des chiffres
-Va dans Données/convertir
-laisse délimité, suivant
-laisse (ou met) tabulation, suivant
-Clic sur Avancé
-Met le . dans séparateur décimal (ici il faut lui dire comment la donnée arrive et non ce que tu veux)
-Ok, terminé
Si ça c'est bien passé, recommence en enrgistrant une macro pour récupérer la syntaxe

[DeaD78]

Salut,

Y'a bien plus simple pour corriger ce petit bug VBA

Code :

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

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

Et oui, remplace un point par un point et tu verras

C'est beau non ?

[samz25]

salut DeaD78,

je remplace un point par un point et après un point par une virgule?

je vais essayer...

[DeaD78]

Tu remplaces un point par un point et puis c'est tout