Discussion :

[Widy20]

Bonjour,

Je bloque depuis 2 jours sur un problème de format numérique sur une macro.
Je vous explique :

J'effectue une extraction de données depuis SAP d'un texte avec tabulation en xls.
J'ai ensuite enregistré une macro qui consiste à modifier le format des cellules chiffres :
exemple : une donnée "162,500.50" que j'aimerai convertir en "162 501"

Le code ainsi enregistré est :

Code :

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

1
2
3
4
5
Windows("soldes.xls").Activate
 Range("K:Q").Select
 Selection.Replace What:=",", Replacement:=""
 Selection.Replace What:=".", Replacement:=","
 Selection.NumberFormat = "#,##0"

Or le résultat n'est pas celui attendu :bof: : en effet, cela fonctionne avec les montants supérieurs à 1000€, mais pas sur les montants inférieurs (soit les montants qui ne contiennent pas de "," initialement).

Est ce que quelqu'un aurait une solution???
Merci de votre aide

[BENNASR]

bonjour
vérifiez le format que tu affecte à la sélection
allez à l'enregistreur auto de macro / sélectionner une cellule et l'appliquer le format souhaité
arrêter l'enregistrement du macro et voir le format fourni sur plateau par le code
comme débutant VBA je travaille de cette façon et je crois que ça donne :

Code :

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

"#,##0.00"

[BENNASR]

peut être avec CDBL ça donne du résultat :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub test()
Dim plage As Range
Set plage = Range("A2:A10") ' à adapter
 plage.Replace What:=",", Replacement:=""
 plage.Replace What:=".", Replacement:=","
 plage.NumberFormat = "#,##0"
 Dim cel As Range
 For Each cel In plage
 cel.Value = CDbl(cel.Value)
 Next cel
End Sub

[Docmarti]

Bonjour.

Essaie ceci :

Code :

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

1
2
3
4
5
6
7
Sub ValeursNumeriques()
Set c = Range("K:Q")
c.NumberFormat = ""
c.FormulaLocal = c.Value
c.Value = c.Value
c.NumberFormat = "0"
End Sub