[VB-E] Pb macro

Bonjour à tous

Voila j'exporte des données de SAP et j'ai crée une macro me ^permettant de remmettre en forme ma feuille excel...
Mais j'ai un problème

Dans la colonne E j'ai ceci :
4,000 EA
22,000 EA
20,000 EA
149,000 EA

J'applique ma macro

Code:

---

1 2 3 4 5

Sub remplacer() Range("E:E").Replace " EA", "" Range("E:E").Replace " M", "" Range("A:B").EntireColumn.Delete End Sub

---

Et ensuite j'obtiens ceci
4 000
22 000
20 000
149 000

J'ai la virgule qui disparait...comment cela ce fait il ?

Merci de votre aide

A+

Bonjour,

Le problème c'est que le code VBA est défini au normes américaines et la virgule correspond au séparateur des milliers et c'est le point qui correspond au séparateur décimal

Essaie ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub remplacer() For Each c In Range("E:E") If c.Value <> "" Then c.Value = Replace(c.Value, ",", ".") c.Value = Replace(c.Value, " EA", "") c.Value = Replace(c.Value, " M", "") End If Next c Range("A:B").EntireColumn.Delete End Sub

---

+

Théo

Nickel Théo

Ca fonctionne parfaitement quoi demander de plus

Encore Merci beauoup

A+

Plus simple (à moins qu'il risque d'y avoir qqch devant le nombre):

Code:

---

1 2 3 4 5 6 7 8

Sub remplacer() For Each c In Range("E:E") If c.Value <> "" Then c.Value = Val(Replace(c.Value, ",", ".")) End If Next c Range("A:B").EntireColumn.Delete End Sub

---