Regional Setting

8 réponses

Michel HOLDERITH

01/09/2004 à 10:15

Bonjour a tout le monde,

Je voulais savoir s'il etait possible via macro de changer dans les regional
settings le separateur decimal "," en "." et separateur millier "." en ","
Puis apres les remettrent comme ils etaient.

Merci d'avance.

@+
Michel.

8 réponses

Nicolas B.

01/09/2004 à 10:47

Salut Michel,

Le séparateur décimal est stocké dans la base de registres. Il suffit de
modifier la clé correspondante pour le changer.
Mais il faut ensuite rouvrir Excel pour que les paramètres soient pris
en compte.

Dim Sep As String

Sub ChangerSepDecimal()
Dim WSH As Object
Set WSH = CreateObject("WScript.Shell")
Sep = WSH.RegRead("HKCUControl PanelInternationalsDecimal")
WSH.RegWrite "HKCUControl PanelInternationalsDecimal", "."
End Sub

Sub RetablirSepDecimal()
Dim WSH As Object
Set WSH = CreateObject("WScript.Shell")
WSH.RegWrite "HKCUControl PanelInternationalsDecimal", Sep
End Sub

A+
Nicolas B.

Michel HOLDERITH wrote:

Bonjour a tout le monde,

Je voulais savoir s'il etait possible via macro de changer dans les regional
settings le separateur decimal "," en "." et separateur millier "." en ","
Puis apres les remettrent comme ils etaient.

Merci d'avance.

@+
Michel.

Michel Pierron

01/09/2004 à 10:50

Bonjour Michel;
Ici:
http://longre.free.fr/pages/telecharge/index.html#FunCustomize
MP

"Michel HOLDERITH" <#nospam# a écrit dans le message de
news:u$2xDv$

Bonjour a tout le monde,

Je voulais savoir s'il etait possible via macro de changer dans les regional
settings le separateur decimal "," en "." et separateur millier "." en ","
Puis apres les remettrent comme ils etaient.

Merci d'avance.

@+
Michel.

Michel Pierron

01/09/2004 à 10:54

Re Michel, c'est plutôt là:
http://longre.free.fr/downloads/ParamReg.zip
MP

"Michel HOLDERITH" <#nospam# a écrit dans le message de
news:u$2xDv$

Bonjour a tout le monde,

Je voulais savoir s'il etait possible via macro de changer dans les regional
settings le separateur decimal "," en "." et separateur millier "." en ","
Puis apres les remettrent comme ils etaient.

Merci d'avance.

@+
Michel.

JpPradier

01/09/2004 à 11:10

Bonjour Michel

Si tu utilise Excel 2002 ou plus, tu peux utiliser :

Application.DecimalSeparator = "."
Application.UseSystemSeparators = False

j-p

Michel HOLDERITH

01/09/2004 à 11:12

Salut merci beaucoup pour cette reponse tout marche impecc...
et pour les millers ca marche pareil ?
@+
Michel.

"Nicolas B." wrote in message
news:

Salut Michel,

Le séparateur décimal est stocké dans la base de registres. Il suffit de
modifier la clé correspondante pour le changer.
Mais il faut ensuite rouvrir Excel pour que les paramètres soient pris
en compte.

Dim Sep As String

Sub ChangerSepDecimal()
Dim WSH As Object
Set WSH = CreateObject("WScript.Shell")
Sep = WSH.RegRead("HKCUControl PanelInternationalsDecimal")
WSH.RegWrite "HKCUControl PanelInternationalsDecimal", "."
End Sub

Sub RetablirSepDecimal()
Dim WSH As Object
Set WSH = CreateObject("WScript.Shell")
WSH.RegWrite "HKCUControl PanelInternationalsDecimal", Sep
End Sub

A+
Nicolas B.

Michel HOLDERITH wrote:
Bonjour a tout le monde,

Je voulais savoir s'il etait possible via macro de changer dans les
regional

settings le separateur decimal "," en "." et separateur millier "." en
","

Puis apres les remettrent comme ils etaient.

Merci d'avance.

@+
Michel.

Nicolas B.

01/09/2004 à 11:18

Pour les milliers, l'entrée à modifier est sThousand.

A+
Nicolas B.

Michel HOLDERITH wrote:

Salut merci beaucoup pour cette reponse tout marche impecc...
et pour les millers ca marche pareil ?
@+
Michel.

"Nicolas B." wrote in message
news:

Salut Michel,

Le séparateur décimal est stocké dans la base de registres. Il suffit de
modifier la clé correspondante pour le changer.
Mais il faut ensuite rouvrir Excel pour que les paramètres soient pris
en compte.

Dim Sep As String

Sub ChangerSepDecimal()
Dim WSH As Object
Set WSH = CreateObject("WScript.Shell")
Sep = WSH.RegRead("HKCUControl PanelInternationalsDecimal")
WSH.RegWrite "HKCUControl PanelInternationalsDecimal", "."
End Sub

Sub RetablirSepDecimal()
Dim WSH As Object
Set WSH = CreateObject("WScript.Shell")
WSH.RegWrite "HKCUControl PanelInternationalsDecimal", Sep
End Sub

A+
Nicolas B.

Michel HOLDERITH

01/09/2004 à 11:32

merci

"Nicolas B." wrote in message
news:

Pour les milliers, l'entrée à modifier est sThousand.

A+
Nicolas B.

Michel HOLDERITH wrote:
Salut merci beaucoup pour cette reponse tout marche impecc...
et pour les millers ca marche pareil ?
@+
Michel.

"Nicolas B." wrote in message
news:

Salut Michel,

Le séparateur décimal est stocké dans la base de registres. Il suffit de
modifier la clé correspondante pour le changer.
Mais il faut ensuite rouvrir Excel pour que les paramètres soient pris
en compte.

Dim Sep As String

Sub ChangerSepDecimal()
Dim WSH As Object
Set WSH = CreateObject("WScript.Shell")
Sep = WSH.RegRead("HKCUControl PanelInternationalsDecimal")
WSH.RegWrite "HKCUControl PanelInternationalsDecimal", "."
End Sub

Sub RetablirSepDecimal()
Dim WSH As Object
Set WSH = CreateObject("WScript.Shell")
WSH.RegWrite "HKCUControl PanelInternationalsDecimal", Sep
End Sub

A+
Nicolas B.

Michel HOLDERITH

01/09/2004 à 11:34

Merci, mais j'utilise excel 2000
en attendant la nouvelle version.....
@+
Michel.

"JpPradier" wrote in message
news:ON%

Bonjour Michel

Si tu utilise Excel 2002 ou plus, tu peux utiliser :

Application.DecimalSeparator = "."
Application.UseSystemSeparators = False

j-p

Regional Setting

8 réponses

Veuillez sélectionner un problème