virgule et point

Version imprimable

virgule et point

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:

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

23/07/2009, 11h53
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:

Selection.TextToColumns Destination:=Range("E1"), DataType:=xlDelimited,DecimalSeparator:="."
23/07/2009, 11h58
samz25

salut fgiambelluco,

j'ai pas bien compris ta réponse
23/07/2009, 12h10
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
23/07/2009, 12h20
DeaD78
Salut,

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

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 :mouarf:

C'est beau non ? :ccool:
23/07/2009, 12h43
samz25

salut DeaD78,

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

je vais essayer...
23/07/2009, 13h35
DeaD78

Tu remplaces un point par un point et puis c'est tout :mouarf:
23/07/2009, 15h18
samz25

mais moi j'ai besoin d'une virgule, car je fais des calcul et des mise en forme(% et autres) qui nécessite les virgules...

Personne ne voit une autre solution à ce bug de VBA...

Merci d'acance
23/07/2009, 15h37
fgiambelluco

Re
A l'attention de Dead78

Citation:

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

J'avoue que je ne vois pas ou tu veux en venir . J'ai essayé ton code (Excel 2003) et devine....il a mis un . à la place des .

A l'attention de samz25

Citation:

Personne ne voit une autre solution à ce bug de VBA...

Tu as essayé la méthode que je t'ai proposé (Données/Convertir) ?
23/07/2009, 15h50
samz25

mais moi j'ai besoin d'une virgule, car je fais des calcul et des mise en forme(% et autres) qui nécessite les virgules...

Personne ne voit une autre solution à ce bug de VBA...

Merci d'avance
23/07/2009, 15h51
DeaD78
Re,

J'avoue que je n'ai pas été très clair !

samz25, as-tu essayé
Code:

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

Normalement, en tout cas chez moi (Excel 2003), le point est remplacé par une virgule !
23/07/2009, 15h52
Krovax

Donne nous un fichier exemple avec quelques données (vire les entête de colonne si on ne sais pas de quoi tu parle on peux avoir tes chiffres) et ta macro (et vérifie que ca pose bien un problème dans ce cas la)
23/07/2009, 16h00
DeaD78
Bon, je viens de refaire le test chez moi :
Code:

1 2 3 4 5 6 7 Sub test() Selection.Replace What:=".", Replacement:=".", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False End Sub
Je mets 282.3513 dans une case, je lance la macro après avoir sélectionné la case et j'obtiens une virgule à la place du point grâce à la beauté du VBA :mouarf:

Bref samz25, as-tu testé oui ou non ?

re,

j'ai teste et j'ai toujours un le point et comme type string.

Finalement, j'ai travaillé avec les cellules...
Code:

1 2 3 4 5 6 7 8 9 For i = 2 To 19 For j = 3 To NbMembre s = referentiel.Cells(j, i).Value g = Application.WorksheetFunction.Substitute(s, ".", ",") referentiel.Cells(j, i).Value = CDbl(g) j = j + 1 Next j Next i
voilà... merci pour votre aide

Dead Ton code marche au poil j'adore
samz25 le code avec les bonne ligne et colonne
Essaye c'est magique :ccool:
Code:

1 2 3 4 5 6 Sub test() Range("A3:S" &NbMembre ) .Replace What:=".", Replacement:=".", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False End Sub