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

[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

[fgiambelluco]

Re
A l'attention de Dead78

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

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

Tu as essayé la méthode que je t'ai proposé (Données/Convertir) ?

[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

[DeaD78]

Re,

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

samz25, as-tu essayé

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

?

Normalement, en tout cas chez moi (Excel 2003), le point est remplacé par une virgule !

[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)

[DeaD78]

Bon, je viens de refaire le test chez moi :

Code :

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

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

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

[samz25]

re,

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

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

Code :

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

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

[Krovax]

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

Code :

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

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