Discussion :

[Ylaff]

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 :

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

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



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

[Zedite]

Bonjour,

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

MaSelection.Value = CDec(MaSelection.Value)

[Ylaff]

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

[Zedite]

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

[Ylaff]

Zedite,
Oui tout à fait.
Je me retrouve avec

[joe.levrai]

Bonjour,

essaye ceci

Code :

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

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

[Ylaff]

Bonjour @Joe.levrai

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

[joe.levrai]

C'est étrange...

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

[Philippe Tulliez]

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

[deedolith]

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 :

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

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 :

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
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

[Lulah]

Bonjour chers membres de ce forum,

Code :

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

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 :

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

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 $"

[Ylaff]

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

Je suis bel et bien coincé sur des chiffres en mode "Texte"


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

[Lulah]

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

Je suis bel et bien coincé sur des chiffres en mode "Texte"


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 :

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

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,

[Flopai]

Bonjour Ylaff,

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

2- Excel comprend ce chiffre comme du texte



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

[Ylaff]

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.