Discussion :

[YannCie72]

Bonjour,

Je souhaite exporter sous format excel des données d'un logiciel (RP) pour les importer dans un classeur et les exploiter. Or, lors de l'exportation depuis RP, certaines données monétaires apparaissent au format "€0.000,00" (considéré comme texte) tandis que d'autres sont au format "0,00" (considéré comme numérique).

Aussi je souhaite sélectionner la totalité de la plage contenant les données, et effectuer la suppression des points séparateurs de milliers.

Code :

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

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

Le problème est que dés lors ma macro supprime bel et bien les points des données de type "0.000,00" pour donner un résultat de type "0000,00", toutefois il me supprime également les virgules pour les autres données (soit "0,00" devient "000").

Merci pour votre aide.

[BARMAKI]

Salut
Tu peux essayer avec l enregistrement d une macro en pratiquant ce que tu veux manuelement

[YannCie72]

C'est bien ça le problème. J'ai enregistré ma macro en utilisant la fonction "Rechercher et Remplacer". De cette manière il n'y a bien que les points qui sont supprimés, mais ce n'est pas le cas lorsque j'utilise la macro ?! :/

[BlueMonkey]

Bonsoir,

Pour remplacer tous les caractères '.' et '€' sur la feuille active (sans sélectionner la plage), tu dois pouvoir utiliser ce code.

Code :

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

1
2
3
4
    With ActiveSheet.UsedRange
       .Replace What:=".", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows
       .Replace What:="€", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows
    End With

toutefois il me supprime également les virgules pour les autres données (soit "0,00" devient "000").

Je ne pense pas que la fonction Replace remplace la virgule.
Par contre, il est possible que le format numérique standard supprime les chiffres non significatif après le séparateur décimal.
Si tu veux 2 chiffres après la virgule sur tout le document, tu peux l'imposer avec un .NumberFormat = "0,00".

A+

[Invité]

Bonjour,
Si tes cellules sont formatées "€0.000,00" le fait de supprimer les Points ne changera rien.
Vérifié le format de cellules clic droit.

[YannCie72]

Bonjour,

Une absence imprévue me fait revenir que maintenant.

En PJ, vous trouverez un exemple qui montre la différence entre l'utilisation de la fonction "Remplacer" manuellement, et son utilisation dans une macro.

ONFR1.xls

Merci pour votre aide

[Marc-L]

Bonjour.

Ce serait plus facile en travaillant directement sur le fichier source à importer …

[mayekeul]

bonjour,

simplement faire

Code :

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

.Replace What:="€", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows

ça devrait le faire non?