Résultat macro différent de l'enregistrement

[Petuxi]

Bonjour,

J'ai enregistré 2 petites macros qui me donnent le résultat demandé.
Quand j'exécute chacune de ces macros, les résultats sont différents et ne correspondent pas à ce que j'attends. D'où vient le pb ?
Une macro remplace le signe "+" dans "576+000" par une virgule pour obtenir le nombre "576,000". L'exécution de la macro donne le nombre "576 000,000".
L'autre macro remplace le "." dans "1.87" par une virgule pour obtenir le nombre "1,87". L'exécution de la macro donne en texte "1,87".
Merci de m'éclairer.

Petuxi

 

[Guest]

Re : Résultat macro différent de l'enregistrement

bonjour Petuxi,

Voici les macros modifiées

Sub FormatPk()
'
' FormaterPk Macro
' Macro enregistrée le 29/01/2009 par BÉNAND
'
'
    Columns("A:A").Select
    Selection.Replace What:="+", Replacement:="[SIZE=3][COLOR=red]."[/COLOR][/SIZE], LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.NumberFormat = "#,##0.000"
    Range("A1").Select
End Sub
Sub FormatNL()
'
' FormaterNL Macro
' Macro enregistrée le 29/01/2009 par BÉNAND
'
'
    Columns("B:B").Select
    Selection.Replace What:=".", Replacement:="[SIZE=3][COLOR=red].[/COLOR][/SIZE]", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.NumberFormat = "0.00"
    Range("B1").Select
End Sub

A+

 

[Petuxi]

Re : Résultat macro différent de l'enregistrement

Merci pour cette résolution rapide.
Effectivement j'avais oublié que dans les options régionales de Windows, la virgule de décimale remplaçait le point.
Salutations

Petuxi