Discussion :

[dolin007]

Bonjour à tous,

J'aimerai avec une macro, mettre des données dans un format correct.

J'ai une liste brut de nombre du genre : " 7.698,800" avec plein d'espaces devant, un point séparateur de milliers, et une virgule. Je veux le transformer en "7698,8".

Je veux pouvoir enlever tous les points et les espaces de cette liste, et garder les virgules. Seulement voilà, avec ma macro, ça supprime les points, les espaces et les virgules.

Comment faire pour conserver les virgules ?

Code :

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

1
2
3
4
5
6
7
8
9
 
'Suppression des "." dans la plage
Sheets("Feuil1").Range("A1:A252").Replace What:=".", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
'Suppression des espaces dans la plage
Sheets("Feuil1").Range("A1:A252").Replace What:=" ", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

Merci d'avance

[NEC14]

Bonjour,

Pourquoi ne pas utiliser le "Remplacer par" dans Excel ?

[dolin007]

Car je veux faire cela automatiquement, cette macro faisant parti d'une plus grosse macro de mise à jour, qui va chercher une liste brut, la colle dans le fichier principal, et la met au bon format.

[NEC14]

Essaies ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Re,

essaies ceci :

	

	
Code  :
	
Sélectionner tout -
	Visualiser dans une fenêtre à part
	
12345678910
 
Sheets (....).select 'remplacer les points par le nom de la feuille
    Columns("A:A").Select
      Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("A1").Select

[dolin007]

Ca fait toujours pareil,

mon " 7.698,800" se transforme en "7698800" alors que je veux obtenir "7698,8".

Pour info, c'est en remplaçant les points par rein du tout que mes virgules sont supprimées. A croire que le programme ne fait pas la différence entre point et virgule...

Code :

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

1
2
3
Sheets("Feuil1").Range("A1:A252").Replace What:=".", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=True

[NEC14]

Comment est ton format décimal sous Excel ? "." ou ","

[dolin007]

Les décimales sont des virgules "," et la moindre cellule avec un "." se met au format texte (aligné à gauche)

[NEC14]

Je viens de faire un test avec juste ce morceau de code et ça marche chez moi. Seuls les points sont remplacés par rien

Code :

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

1
2
3
4
5
 
    Columns("A:A").Select
    Selection.Replace What:=".", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

[dolin007]

.... Non cette macro me supprime les points ET les virgules chez moi.

C'est sous Excel 2003 et les décimales sont des ",".

Y a-il un autre moyen de faire ça ?

Merci pour ta patience en tout cas.

J'ai joint le classeur en question avec la liste brut de données collée en colonne A. Ta macro marche-elle avec cette liste ? (chez moi non)

[mercatog]

Code :

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

1
2
Range("A1").Replace " ", ""
Range("A1").Replace ".", " "

[LeForestier]

Ca fait toujours pareil,

mon " 7.698,800" se transforme en "7698800" alors que je veux obtenir "7698,8".

Par exemple, pour la colonne G, doit être exécuter APRES avoir entrer les données.

Code :

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

    Columns("G:G").NumberFormat = "0.###"

A+

[jp014]

Bonjour

Avec une autre approche

Si les valeurs sont dans une colonne d'une feuille l'option "convertir" du menu données permet de faire l'opération sans problème.
A l'étape 3 de l'assistant le bouton avancé permet de définir les séparateurs.
Destination permet d'indiquer la nouvelle cellule.

JP014

[LeForestier]

J'ai tester sur ton classeur et ça va pas mais je pense avoir trouver une solution (du moins chez moi ça fonctionne).

Code :

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

1
2
3
4
5
6
7
8
Sub ChangerFormat()
Dim V As Double
Dim i As Long
    For i = 1 To 50
        V = Cells(i, 1)
        Cells(i, 1) = V
    Next i
End Sub

A+

[NEC14]

Bonjour LeForestier,

J'ai testé ce code dans son classeur mais cela ne fonctionne pas.
Incompatibilité de type '13'

J'ai testé plusieurs codes trouvés sur des forums mais sans résultat.

[LeForestier]

Bonjour LeForestier,

J'ai testé ce code dans son classeur mais cela ne fonctionne pas.
Incompatibilité de type '13'

J'ai testé plusieurs codes trouvés sur des forums mais sans résultat.

bonjour NEC14,
Tu a quel version d'excel ? parce que chez moi c'est nickel.
Et je n'ai pas en tête le libellé de l'erreur 13, c'est quoi ?
A+
PS: c'est sur son classeur que j'ai tester.
Peut-être en ajoutant..

Code :

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

    V = Val(Cells(i, 1))

[dolin007]

Avec

Code :

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

V = Val(Cells(i, 1))

ton code fonctionne, mais ça ne fait pas ce que je veux.

Ca remplace les points par des virgules, et supprime les anciennes décimales ainsi que les anciennes virgules.

Exemple :

" 6.030,800" ----------> "6,03"

Alors que je veux obtenir un "6 030,8"

[mercatog]

Si tu as essayé mon dernier post (que j'ai testé)

essayes ceci (aussi testé)

Code :

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

Cells(i, 1).Value = CDbl(Replace(Cells(i, 1).Value, ".", " "))

remplace le point avec un espace

[LeForestier]

Pourtant, avec TON classeur et MA macro...
A+
Edit : C'est pour l'image que j'ai mis en colonne B, mais ça fonctionne Idem sur la colonne A

[laetitia]

bonjour tous le forum une autre methode supprime les espaces indesirables plus change le point par un espace

Code :

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

1
2
3
4
5
6
7
Sub es()
Dim c As Variant
 Application.ScreenUpdating = False
  For Each c In Range("a1", Range("a65536").End(xlUp))
     If c Like "*.*" And c Like "*,*" Then c.Value = Trim(Replace(c.Value, ".", " "))
   Next c
End Sub

eventuellement par formule exemple en b1

Code :

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

=SUBSTITUE(SUBSTITUE(SUPPRESPACE(A1);(CAR(160));"");(".");" ")

Louis j'ai teste ton code avec val ou sans val j'ai erreur 13 j'ai essaye de changer la variable idem je comprends pas pourquoi??? comme nec14 a+ test sous excel2003

[LeForestier]

Bonjour Leti,
Je me demande si c'est pas une question de références.. j'ai

Code :

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

1
2
3
4
5
    Visual Basic for Application
    Microsoft Excel 9.0 object Librairy
    Ole Automation   'Rien à voir mais..
    Microsoft Office 9.0 object Librairy
    Microsoft Form 2.0 object Librairy

Sinon, c'est quand même bizarre.
A+
Edit:
C'est d'autant plus bizarre que j'ai testé sur 2000 et 2007 Résultats identiques.