Discussion :

[zaza45]

Bonjour à tous

Je souhaiterai pouvoir faire une macro qui tranformerai des valeurs d'une Base de donnée dans un format monétaire exploitable sous excel.

Il faut que j'enlève le séparateur de millier qui est défini par un point dans mon extraction.
3.922,50
86,31
70
500,5
Soit je fais edition remplacer"." par "blanc" ou données convertir avancé séparateur millier. Ces 2 méthodes fonctionnent très bien manuellement.

Mais le résultat est incorrect quand j'intégre ces méthode en macro.
Les milliers sont correctes mais les chiffres inférieurs sont sous le format suivant
3 922,50
86 31
70
500 5

Merci beaucoup pour votre coup de pouce

[AcRy07]

Bonjour,

tu peux nous communiquer le code ta macro ?


Cdt,
Benoit

[kiki29]

Salut,via le Menu Outils/Options Onglet International Gestion des nombres
utilise l'enregisteur de macros pour visualiser le code correspondant et rétablir les parametres initiaux après l'import

[zaza45]

Bonjour kiki29

J'ai un fait un test avec le code international comme tu me l'avais indiqué, la macro fonctionne sur les milliers mais les décimales des centaines ou dizaines se retrouvent avec un point ou donc inutilisable pour des sommes.
J'utilise l'enregistreur de macro. Quand je crée la macro tout est bon mais dès que je l'exécute le résultat est faux soit par ex
13 687,34
4 567,56
567.34
17.45
3.2
6


Voici le code de la macro

Code :

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

1
2
3
4
5
6
7
8
9
Sub Macro1()
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 1), ThousandsSeparator:=".", TrailingMinusNumbers:=True
    Range("A8").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-7]C:R[-1]C)"
    Range("A9").Select
End Sub

[Didier Gonard]

Bonjour,

vois ceci :

Influence des séparateurs décimal et listes FR/US sur l’enregistreur de macro peut-être..

cordialement,

Didier

[zaza45]

Bonjour Ormonth


Malgré de très nombreux essais les test restent non concluants, car lorsque j'utilise le code aucune conversion ne s'exécute

Code :

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

1
2
3
 Selection.TextToColumns Destination:=Range("G1"), 
        1), DecimalSeparator:=".", ThousandsSeparator:="  ", 
OU DecimalSeparator:=".", ThousandsSeparator:=".",

Aurait-tu une autre idée ?

[Vadorblanc]

Bonjour
Mon code tout simple fonctionne pour moi

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Macro2()
    Range("A1:A4").Select
    Selection.Replace What:=".", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=",", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.NumberFormat = "#,##0.00 $"
End Sub

voici le résultat
3 922,50 €
86,31 €
70,00 €
500,50 €

J'ai remplacé ta virgule par la virgule du clavier en plus

Essaie sur cel A1:A4

[christ_28360]

Salut,

avant de faire des usines à gaz, ne serait-il pas plus simple de formater le nombre lorsque tu le génère à partir de ta BDD ?

J'ignore laquelle tu utilises, mais toutes permettent d'afficher et de formater les données en sorties.
Tu pourrais utiliser le format attendu par excel, par ex. 0,00 tu aurais ainsi un résultat sous la forme 123456789,01 plus rapidement exploitable sous excel.

En espérant avoir pu t'apporter une aide quelconque.

Christian