Aide sur code VBA - Modifier les séparateurs de milliers ainsi que les séparateurs de décimal

Bonjour chers membres de ce forum,

Contexte : Il m'arrive de télécharger des documents contenant des "devises" ayant une mise en forme à l'anglaise, mon logiciel excel n'est pas capable de comprendre que ce sont des chiffres et l'assimile à du texte. J'aimerais écrire une macro VBA capable d'agir sur ma sélection pour transformer ces chiffres en devises ayant une mise en forme française.

Ma requête : Modifier les chiffres de ma sélection d'une mise en forme anglaise (€123,666.42) à une mise en forme française (123 666,42€).

Figurez-vous que j'avais presque réussie, mais je me retrouve avec une erreur étrange.

1 - Ma macro pas folle mais qui fonctionnerait presque

Pour des cellules ayant un nombre comme €123,666.42

Code:

---

1 2 3 4 5 6 7 8 9

'Le but étant de changer la mise en forme anglaise d'un nombre par la mise en forme française   Set MaSelection = Selection   MaSelection.Replace What:="€", Replacement:="" 'Je vire le € par rien MaSelection.Replace What:=",", Replacement:="" 'Je vire la virgulre par rien MaSelection.Replace What:=".", Replacement:="," 'Je remplace le point par une virgule MaSelection.Style = "Currency" 'J'essaye péniblement d'indiquer à excel que c'est une devise (histoire de faire réaparraitre le "€" et avoir un espace comme séparateur de milliers).

---

Ca fonctionne presque, SEULEMENT:

2- Excel comprend ce chiffre comme du texte

Pièce jointe 632633

Tout est rangé comme je le souhaitais mais ce chiffre est compris comme du "texte" par Excel. Or, il est hors de question pour le petit employé un peu avancé sur excel que je suis de faire ce boulot à la souris "Conver to Number" sur tous les chiffres.

Avez-vous une solution à mon problème 2 ? Ou avez-vous une solution plus simple peut-être ?

En vous remerciant,
Ylaff

Bonjour,

vous pouvez ajouter la ligne suivante après la ligne "MaSelection.Style = "Currency"":

MaSelection.Value = CDec(MaSelection.Value)

Citation:

---

Envoyé par Zedite

Bonjour,

vous pouvez ajouter la ligne suivante après la ligne "MaSelection.Style = "Currency"":

MaSelection.Value = CDec(MaSelection.Value)

---

Désolé mais j'ai une erreur Run-time error "13":
Type Mismatch

:(

Les cellules de votre sélection contiennent toutes des valeurs numériques ?

Zedite,
Oui tout à fait.
Je me retrouve avec

Pièce jointe 632642

Bonjour,

essaye ceci

Code:

---

1 2	MaSelection.NumberFormat = "General" MaSelection.Value = MaSelection.Value

---

Bonjour @Joe.levrai

Malheureusement, ça ne change rien !
Mais pas d'erreur de mismatch 13 néanmoins

C'est étrange...

voir peut-être du côté de la méthode TextToColumns

Bonjour,
Si vous avez une version récente d'excel, je passerais par Power Query pour remplacer les . par , et éventuellement s'il le faut la conversion des dates

Salut,

Excel détermine automatiquement les types de donnée que contiennent les cellules, et manipuler les format et autre propriété n'y change rien.
Garde bien en tête que le format d'une cellule n'est que de l'affichage et ne représente en rien le type de la valeur sous-jacente.

La solution est d'écrire dans la cellule une donnée de type approprié, les fonctions de convertion y sont utile (attention, les paramètres régionaux influent sur ces dernières).

Je te propose 2 solutions, l'une avec des remplacements (ce que tu avais commencé):

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Dim Wb As Excel.Workbook Set Wb = ThisWorkbook   Dim Ws As Excel.Worksheet Set Ws = Wb.Worksheets("Feuil1")   Dim Rng As Excel.Range Set Rng = Ws.Range("A1") '// A1 contient €123,666.43   Dim Text As String Text = Rng.Value Text = Replace(Text, "€", vbNullString) Text = Replace(Text, ",", vbNullString) Text = Replace(Text, ".", ",") Rng.Value = CDbl(Text) '// A1 contient 123666,43

---

L'autre avec des regex:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Dim Wb As Excel.Workbook Set Wb = ThisWorkbook   Dim Ws As Excel.Worksheet Set Ws = Wb.Worksheets("Feuil1")   Dim Rng As Excel.Range Set Rng = Ws.Range("A1") '// '// A1 contient €123,666.43   Dim Text As String Text = Rng.Value   Dim Rx As Object '// VBScript_RegExp_55.RegExp Set Rx = CreateObject("VBScript.RegExp") Rx.Pattern = "€(\d{3}),(\d{3})\.(\d{2})" Text = Rx.Replace(Text, "$1$2,$3") Rng.Value = CDbl(Text) '// A1 contient 123666,43

---

Citation:

---

Envoyé par Ylaff

Bonjour chers membres de ce forum,

Code:

---

1 2 3 4 5 6 7 8 9

'Le but étant de changer la mise en forme anglaise d'un nombre par la mise en forme française   Set MaSelection = Selection   MaSelection.Replace What:="€", Replacement:="" 'Je vire le € par rien MaSelection.Replace What:=",", Replacement:="" 'Je vire la virgulre par rien MaSelection.Replace What:=".", Replacement:="," 'Je remplace le point par une virgule MaSelection.Style = "Currency" 'J'essaye péniblement d'indiquer à excel que c'est une devise (histoire de faire réaparraitre le "€" et avoir un espace comme séparateur de milliers).

---

Ylaff

---

Presque bon, mais Excel est capricieux avec les formats monétaires. Ta troisième ligne de remplacement est celle qui pose problème.

Essaye plutôt

Code:

---

1 2 3 4 5 6 7 8

'Le but étant de changer la mise en forme anglaise d'un nombre par la mise en forme française       Set MaSelection = Selection MaSelection.Replace What:=",", Replacement:="" MaSelection.NumberFormat = "0.00 $"

---

Bonjour à tous,
Malheureusement, aucune de vos solutions ne semble marcher.

Je suis bel et bien coincé sur des chiffres en mode "Texte"
Pièce jointe 633011

En revanche, merci à Lulah où ma troisième ligne qui remplace le "." par "," est bien celle qui pose problème.
Car quand je remplace le séparateur de décimal présent comme "." par "" (rien en gros), il devient possible de mettre en devise monétaire.

Donc, c'est cette maudite virgule qui maintient la cellule en texte au lieu de devise monétaire ! :(

Ylaff

Citation:

---

Envoyé par Ylaff

Bonjour à tous,
Malheureusement, aucune de vos solutions ne semble marcher.

Je suis bel et bien coincé sur des chiffres en mode "Texte"
Pièce jointe 633011

En revanche, merci à Lulah où ma troisième ligne qui remplace le "." par "," est bien celle qui pose problème.
Car quand je remplace le séparateur de décimal présent comme "." par "" (rien en gros), il devient possible de mettre en devise monétaire.

Donc, c'est cette maudite virgule qui maintient la cellule en texte au lieu de devise monétaire ! :(

Ylaff

---

Bonjour,

Je viens de retester avec le format que vous indiquez dans votre premier post la solution suivante fonctionne chez moi :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub cor_format()     With ThisWorkbook.Sheets(1).Range("I5:I9")   ' Sélection alétroire, remplacez par une range définie, etc..   .Replace What:=",", Replacement:="" .NumberFormat = "0.00 $"   End With   End Sub

---

Je pense que vous avez des plages ou des colonnes déjà formatées sur votre fichier, essayez avec une feuille vierge.

Cordialement,

Bonjour Ylaff,

Je vois que pas mal de solutions ont été proposées.
Je vais donc juste réagir sur un point

Citation:

---

Envoyé par Ylaff

2- Excel comprend ce chiffre comme du texte

Pièce jointe 632633

Tout est rangé comme je le souhaitais mais ce chiffre est compris comme du "texte" par Excel. Or, il est hors de question pour le petit employé un peu avancé sur excel que je suis de faire ce boulot à la souris "Conver to Number" sur tous les chiffres.

Ylaff

---

Il existe dans le bandeau [Données] d'Excel un bouton appelé "Convertir".
Si tu sélectionnes l'ensemble de ta colonne, que tu clic sur "Convertir" puis directement sur "Terminer", sans changer quoi que ce soit au paramétrage dans la fenêtre qui s'affiche, ça convertira tes nombres qui sont sous un format texte en format numérique.
Ca t'évite donc le fastidieux clic sur chaque cellule pour convertir en nombre que tu évoquais.
De mon expérience, les personnes qui se retrouvent confrontés à la même problématique que toi et qui n'ont pas connaissance de VBA procèdent ainsi :

1) Sélection de/des colonne(s) à traiter
2) CTRL + H (rechercher/remplacer) => remplacement du "." par une ","
3) Utilisation de la fonction "Convertir" évoquée supra (toujours en gardant les colonnes sélectionnées)

C'est pas automatique mais pas trop long à faire et ne nécessite pas de VBA.
Je me doute que ce n'est pas ce que tu cherches mais si jamais l'entreprise de création de requête se révélait veine ou ardu tu pourras toujours utiliser cette méthode.

En espérant avoir (un peu) aidé.
Bien à toi

Bonjour merci de votre aide à tous,
Malheureusement, les dernières solutions proposées par les gentilles personnes ci-dessous n'ont pas marché non plus :(
Par ailleurs, trouverez ci-dessous un petit GIF qui permet de visualiser le "problème" même si à la fin des fins on arrive à bout de ce que l'on voulait.

Pièce jointe 633364