Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel format anglais pour les chiffres... comment faire???

format anglais pour les chiffres... comment faire???

8 réponses
Avatar
fred
Bonjour,
Possédant Excel 2000 en français, je voudrais utiliser le "format anglais"
pour les chiffres c'est à dire des points comme indicateurs de décimales, et
des virgules comme séparateurs entre les centaines et les milliers. (sans
changer ma version d'excel)
Comment procéder???
Merci de votre aide
Signaler un problème avec ce contenu

8 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
michdenis
Bonjour Fred,

Si tu as excel 2002 ou plus récent,

Barre des menus / outils / option / International /

et tu définis le séparateur décimal et des milliers.

Sinon, je ne crois pas que la chose est possible en dehors des paramètres régionaux de Windows.


Salutations!




"fred" a écrit dans le message de news:41461db5$0$7592$
Bonjour,
Possédant Excel 2000 en français, je voudrais utiliser le "format anglais"
pour les chiffres c'est à dire des points comme indicateurs de décimales, et
des virgules comme séparateurs entre les centaines et les milliers. (sans
changer ma version d'excel)
Comment procéder???
Merci de votre aide
Avatar
fred
J'ai téléchargé une macro qu'a réalisé Laurent Longre qui se nomme
Paramreg.xla qui permet de modifier à la fois dans excel ou dans windows les
paramètre régionnaux.
Mais au démarrage d'excel après avoir installé cette macro j'ai un problème
avec Visual Basic à l'ouverture...dommage car elle fonctionne correctement

"michdenis" a écrit dans le message de news:
#
| Bonjour Fred,
|
| Si tu as excel 2002 ou plus récent,
|
| Barre des menus / outils / option / International /
|
| et tu définis le séparateur décimal et des milliers.
|
| Sinon, je ne crois pas que la chose est possible en dehors des paramètres
régionaux de Windows.
|
|
| Salutations!
|
|
|
|
| "fred" a écrit dans le message de
news:41461db5$0$7592$
| Bonjour,
| Possédant Excel 2000 en français, je voudrais utiliser le "format anglais"
| pour les chiffres c'est à dire des points comme indicateurs de décimales,
et
| des virgules comme séparateurs entre les centaines et les milliers. (sans
| changer ma version d'excel)
| Comment procéder???
| Merci de votre aide
|
|
Avatar
michdenis
Bonjour Fred,

Dans un module standard tout neuf, copie ce qui suit :

Tu as tout ce qui faut pour modifier tous les "Options locales" que tu désires.


'------------------------------------------------------
'These declarations are designed
'for use in a .bas module
'since the constants are public


Declare Function GetLocaleInfo Lib "kernel32" Alias _
"GetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, _
ByVal lpLCData As String, ByVal cchData As Long) As Long

Declare Function SetLocaleInfo Lib "kernel32" Alias _
"SetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, _
ByVal lpLCData As String) As Boolean

Declare Function GetUserDefaultLCID% Lib "kernel32" ()

Public Const LOCALE_ICENTURY = &H24
Public Const LOCALE_ICOUNTRY = &H5
Public Const LOCALE_ICURRDIGITS = &H19
Public Const LOCALE_ICURRENCY = &H1B
Public Const LOCALE_IDATE = &H21
Public Const LOCALE_IDAYLZERO = &H26
Public Const LOCALE_IDEFAULTCODEPAGE = &HB
Public Const LOCALE_IDEFAULTCOUNTRY = &HA
Public Const LOCALE_IDEFAULTLANGUAGE = &H9
Public Const LOCALE_IDIGITS = &H11
Public Const LOCALE_IINTLCURRDIGITS = &H1A
Public Const LOCALE_ILANGUAGE = &H1
Public Const LOCALE_ILDATE = &H22
Public Const LOCALE_ILZERO = &H12
Public Const LOCALE_IMEASURE = &HD
Public Const LOCALE_IMONLZERO = &H27
Public Const LOCALE_INEGCURR = &H1C
Public Const LOCALE_INEGSEPBYSPACE = &H57
Public Const LOCALE_INEGSIGNPOSN = &H53
Public Const LOCALE_INEGSYMPRECEDES = &H56
Public Const LOCALE_IPOSSEPBYSPACE = &H55
Public Const LOCALE_IPOSSIGNPOSN = &H52
Public Const LOCALE_IPOSSYMPRECEDES = &H54
Public Const LOCALE_ITIME = &H23
Public Const LOCALE_ITLZERO = &H25
Public Const LOCALE_NOUSEROVERRIDE = &H80000000
Public Const LOCALE_S1159 = &H28
Public Const LOCALE_S2359 = &H29
Public Const LOCALE_SABBREVCTRYNAME = &H7
Public Const LOCALE_SABBREVDAYNAME1 = &H31
Public Const LOCALE_SABBREVDAYNAME2 = &H32
Public Const LOCALE_SABBREVDAYNAME3 = &H33
Public Const LOCALE_SABBREVDAYNAME4 = &H34
Public Const LOCALE_SABBREVDAYNAME5 = &H35
Public Const LOCALE_SABBREVDAYNAME6 = &H36
Public Const LOCALE_SABBREVDAYNAME7 = &H37
Public Const LOCALE_SABBREVLANGNAME = &H3
Public Const LOCALE_SABBREVMONTHNAME1 = &H44
Public Const LOCALE_SCOUNTRY = &H6
Public Const LOCALE_SCURRENCY = &H14
Public Const LOCALE_SDATE = &H1D
Public Const LOCALE_SDAYNAME1 = &H2A
Public Const LOCALE_SDAYNAME2 = &H2B
Public Const LOCALE_SDAYNAME3 = &H2C
Public Const LOCALE_SDAYNAME4 = &H2D
Public Const LOCALE_SDAYNAME5 = &H2E
Public Const LOCALE_SDAYNAME6 = &H2F
Public Const LOCALE_SDAYNAME7 = &H30
Public Const LOCALE_SDECIMAL = &HE
Public Const LOCALE_SENGCOUNTRY = &H1002
Public Const LOCALE_SENGLANGUAGE = &H1001
Public Const LOCALE_SGROUPING = &H10
Public Const LOCALE_SINTLSYMBOL = &H15
Public Const LOCALE_SLANGUAGE = &H2
Public Const LOCALE_SLIST = &HC
Public Const LOCALE_SLONGDATE = &H20
Public Const LOCALE_SMONDECIMALSEP = &H16
Public Const LOCALE_SMONGROUPING = &H18
Public Const LOCALE_SMONTHNAME1 = &H38
Public Const LOCALE_SMONTHNAME10 = &H41
Public Const LOCALE_SMONTHNAME11 = &H42
Public Const LOCALE_SMONTHNAME12 = &H43
Public Const LOCALE_SMONTHNAME2 = &H39
Public Const LOCALE_SMONTHNAME3 = &H3A
Public Const LOCALE_SMONTHNAME4 = &H3B
Public Const LOCALE_SMONTHNAME5 = &H3C
Public Const LOCALE_SMONTHNAME6 = &H3D
Public Const LOCALE_SMONTHNAME7 = &H3E
Public Const LOCALE_SMONTHNAME8 = &H3F
Public Const LOCALE_SMONTHNAME9 = &H40
Public Const LOCALE_SMONTHOUSANDSEP = &H17
Public Const LOCALE_SNATIVECTRYNAME = &H8
Public Const LOCALE_SNATIVEDIGITS = &H13
Public Const LOCALE_SNATIVELANGNAME = &H4
Public Const LOCALE_SNEGATIVESIGN = &H51
Public Const LOCALE_SPOSITIVESIGN = &H50
Public Const LOCALE_SSHORTDATE = &H1F
Public Const LOCALE_STHOUSAND = &HF
Public Const LOCALE_STIME = &H1E
Public Const LOCALE_STIMEFORMAT = &H1003


'------------------------------------------------------
Public Sub Get_locale() ' Retrieve the regional setting

Dim Symbol As String
Dim iRet1 As Long
Dim iRet2 As Long
Dim lpLCDataVar As String
Dim Pos As Integer
Dim Locale As Long

Locale = GetUserDefaultLCID()

'LOCALE_SDATE is the constant for the date separator
'as stated in declarations
'for any other locale setting just change the constant

'Function can also be re-written to take the
'locale symbol being requested as a parameter

iRet1 = GetLocaleInfo(Locale, LOCALE_SDATE, _
lpLCDataVar, 0)
Symbol = String$(iRet1, 0)

iRet2 = GetLocaleInfo(Locale, LOCALE_SDATE, Symbol, iRet1)
Pos = InStr(Symbol, Chr$(0))
If Pos > 0 Then
Symbol = Left$(Symbol, Pos - 1)
MsgBox "Regional Setting = " + Symbol
End If

End Sub
'------------------------------------------------------

Public Sub Set_locale() 'Change the regional setting

Dim Symbol As String
Dim iRet As Long
Dim Locale As Long

'LOCALE_SDATE is the constant for the date separator
'as stated in declarations
'for any other locale setting just change the constant

'Function can also be re-written to take the
'locale information being set as a parameter

Locale = GetUserDefaultLCID() 'Get user Locale ID
Symbol = "/" 'New character for the locale
iRet = SetLocaleInfo(Locale, LOCALE_SDATE, Symbol)

End Sub
'------------------------------------------------------



Salutations!







"fred" a écrit dans le message de news:41462ac9$0$7602$
J'ai téléchargé une macro qu'a réalisé Laurent Longre qui se nomme
Paramreg.xla qui permet de modifier à la fois dans excel ou dans windows les
paramètre régionnaux.
Mais au démarrage d'excel après avoir installé cette macro j'ai un problème
avec Visual Basic à l'ouverture...dommage car elle fonctionne correctement

"michdenis" a écrit dans le message de news:
#
| Bonjour Fred,
|
| Si tu as excel 2002 ou plus récent,
|
| Barre des menus / outils / option / International /
|
| et tu définis le séparateur décimal et des milliers.
|
| Sinon, je ne crois pas que la chose est possible en dehors des paramètres
régionaux de Windows.
|
|
| Salutations!
|
|
|
|
| "fred" a écrit dans le message de
news:41461db5$0$7592$
| Bonjour,
| Possédant Excel 2000 en français, je voudrais utiliser le "format anglais"
| pour les chiffres c'est à dire des points comme indicateurs de décimales,
et
| des virgules comme séparateurs entre les centaines et les milliers. (sans
| changer ma version d'excel)
| Comment procéder???
| Merci de votre aide
|
|
Avatar
fred
Excuse Michel...je suis newbies...et je ne comprends pas ta réponse...je
vais dans le visual basic editor et j'insère un module...je fais un copier
coller...
Comment l'utiliser ensuite???
Merci pour ton aide!!!


"michdenis" a écrit dans le message de news:

| Bonjour Fred,
|
| Dans un module standard tout neuf, copie ce qui suit :
|
| Tu as tout ce qui faut pour modifier tous les "Options locales" que tu
désires.
|
|
| '------------------------------------------------------
| 'These declarations are designed
| 'for use in a .bas module
| 'since the constants are public
|
|
| Declare Function GetLocaleInfo Lib "kernel32" Alias _
| "GetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, _
| ByVal lpLCData As String, ByVal cchData As Long) As Long
|
| Declare Function SetLocaleInfo Lib "kernel32" Alias _
| "SetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, _
| ByVal lpLCData As String) As Boolean
|
| Declare Function GetUserDefaultLCID% Lib "kernel32" ()
|
| Public Const LOCALE_ICENTURY = &H24
| Public Const LOCALE_ICOUNTRY = &H5
| Public Const LOCALE_ICURRDIGITS = &H19
| Public Const LOCALE_ICURRENCY = &H1B
| Public Const LOCALE_IDATE = &H21
| Public Const LOCALE_IDAYLZERO = &H26
| Public Const LOCALE_IDEFAULTCODEPAGE = &HB
| Public Const LOCALE_IDEFAULTCOUNTRY = &HA
| Public Const LOCALE_IDEFAULTLANGUAGE = &H9
| Public Const LOCALE_IDIGITS = &H11
| Public Const LOCALE_IINTLCURRDIGITS = &H1A
| Public Const LOCALE_ILANGUAGE = &H1
| Public Const LOCALE_ILDATE = &H22
| Public Const LOCALE_ILZERO = &H12
| Public Const LOCALE_IMEASURE = &HD
| Public Const LOCALE_IMONLZERO = &H27
| Public Const LOCALE_INEGCURR = &H1C
| Public Const LOCALE_INEGSEPBYSPACE = &H57
| Public Const LOCALE_INEGSIGNPOSN = &H53
| Public Const LOCALE_INEGSYMPRECEDES = &H56
| Public Const LOCALE_IPOSSEPBYSPACE = &H55
| Public Const LOCALE_IPOSSIGNPOSN = &H52
| Public Const LOCALE_IPOSSYMPRECEDES = &H54
| Public Const LOCALE_ITIME = &H23
| Public Const LOCALE_ITLZERO = &H25
| Public Const LOCALE_NOUSEROVERRIDE = &H80000000
| Public Const LOCALE_S1159 = &H28
| Public Const LOCALE_S2359 = &H29
| Public Const LOCALE_SABBREVCTRYNAME = &H7
| Public Const LOCALE_SABBREVDAYNAME1 = &H31
| Public Const LOCALE_SABBREVDAYNAME2 = &H32
| Public Const LOCALE_SABBREVDAYNAME3 = &H33
| Public Const LOCALE_SABBREVDAYNAME4 = &H34
| Public Const LOCALE_SABBREVDAYNAME5 = &H35
| Public Const LOCALE_SABBREVDAYNAME6 = &H36
| Public Const LOCALE_SABBREVDAYNAME7 = &H37
| Public Const LOCALE_SABBREVLANGNAME = &H3
| Public Const LOCALE_SABBREVMONTHNAME1 = &H44
| Public Const LOCALE_SCOUNTRY = &H6
| Public Const LOCALE_SCURRENCY = &H14
| Public Const LOCALE_SDATE = &H1D
| Public Const LOCALE_SDAYNAME1 = &H2A
| Public Const LOCALE_SDAYNAME2 = &H2B
| Public Const LOCALE_SDAYNAME3 = &H2C
| Public Const LOCALE_SDAYNAME4 = &H2D
| Public Const LOCALE_SDAYNAME5 = &H2E
| Public Const LOCALE_SDAYNAME6 = &H2F
| Public Const LOCALE_SDAYNAME7 = &H30
| Public Const LOCALE_SDECIMAL = &HE
| Public Const LOCALE_SENGCOUNTRY = &H1002
| Public Const LOCALE_SENGLANGUAGE = &H1001
| Public Const LOCALE_SGROUPING = &H10
| Public Const LOCALE_SINTLSYMBOL = &H15
| Public Const LOCALE_SLANGUAGE = &H2
| Public Const LOCALE_SLIST = &HC
| Public Const LOCALE_SLONGDATE = &H20
| Public Const LOCALE_SMONDECIMALSEP = &H16
| Public Const LOCALE_SMONGROUPING = &H18
| Public Const LOCALE_SMONTHNAME1 = &H38
| Public Const LOCALE_SMONTHNAME10 = &H41
| Public Const LOCALE_SMONTHNAME11 = &H42
| Public Const LOCALE_SMONTHNAME12 = &H43
| Public Const LOCALE_SMONTHNAME2 = &H39
| Public Const LOCALE_SMONTHNAME3 = &H3A
| Public Const LOCALE_SMONTHNAME4 = &H3B
| Public Const LOCALE_SMONTHNAME5 = &H3C
| Public Const LOCALE_SMONTHNAME6 = &H3D
| Public Const LOCALE_SMONTHNAME7 = &H3E
| Public Const LOCALE_SMONTHNAME8 = &H3F
| Public Const LOCALE_SMONTHNAME9 = &H40
| Public Const LOCALE_SMONTHOUSANDSEP = &H17
| Public Const LOCALE_SNATIVECTRYNAME = &H8
| Public Const LOCALE_SNATIVEDIGITS = &H13
| Public Const LOCALE_SNATIVELANGNAME = &H4
| Public Const LOCALE_SNEGATIVESIGN = &H51
| Public Const LOCALE_SPOSITIVESIGN = &H50
| Public Const LOCALE_SSHORTDATE = &H1F
| Public Const LOCALE_STHOUSAND = &HF
| Public Const LOCALE_STIME = &H1E
| Public Const LOCALE_STIMEFORMAT = &H1003
|
|
| '------------------------------------------------------
| Public Sub Get_locale() ' Retrieve the regional setting
|
| Dim Symbol As String
| Dim iRet1 As Long
| Dim iRet2 As Long
| Dim lpLCDataVar As String
| Dim Pos As Integer
| Dim Locale As Long
|
| Locale = GetUserDefaultLCID()
|
| 'LOCALE_SDATE is the constant for the date separator
| 'as stated in declarations
| 'for any other locale setting just change the constant
|
| 'Function can also be re-written to take the
| 'locale symbol being requested as a parameter
|
| iRet1 = GetLocaleInfo(Locale, LOCALE_SDATE, _
| lpLCDataVar, 0)
| Symbol = String$(iRet1, 0)
|
| iRet2 = GetLocaleInfo(Locale, LOCALE_SDATE, Symbol, iRet1)
| Pos = InStr(Symbol, Chr$(0))
| If Pos > 0 Then
| Symbol = Left$(Symbol, Pos - 1)
| MsgBox "Regional Setting = " + Symbol
| End If
|
| End Sub
| '------------------------------------------------------
|
| Public Sub Set_locale() 'Change the regional setting
|
| Dim Symbol As String
| Dim iRet As Long
| Dim Locale As Long
|
| 'LOCALE_SDATE is the constant for the date separator
| 'as stated in declarations
| 'for any other locale setting just change the constant
|
| 'Function can also be re-written to take the
| 'locale information being set as a parameter
|
| Locale = GetUserDefaultLCID() 'Get user Locale ID
| Symbol = "/" 'New character for the locale
| iRet = SetLocaleInfo(Locale, LOCALE_SDATE, Symbol)
|
| End Sub
| '------------------------------------------------------
|
|
|
| Salutations!
|
|
|
|
|
|
|
| "fred" a écrit dans le message de
news:41462ac9$0$7602$
| J'ai téléchargé une macro qu'a réalisé Laurent Longre qui se nomme
| Paramreg.xla qui permet de modifier à la fois dans excel ou dans windows
les
| paramètre régionnaux.
| Mais au démarrage d'excel après avoir installé cette macro j'ai un
problème
| avec Visual Basic à l'ouverture...dommage car elle fonctionne correctement
|
| "michdenis" a écrit dans le message de news:
| #
| | Bonjour Fred,
| |
| | Si tu as excel 2002 ou plus récent,
| |
| | Barre des menus / outils / option / International /
| |
| | et tu définis le séparateur décimal et des milliers.
| |
| | Sinon, je ne crois pas que la chose est possible en dehors des
paramètres
| régionaux de Windows.
| |
| |
| | Salutations!
| |
| |
| |
| |
| | "fred" a écrit dans le message de
| news:41461db5$0$7592$
| | Bonjour,
| | Possédant Excel 2000 en français, je voudrais utiliser le "format
anglais"
| | pour les chiffres c'est à dire des points comme indicateurs de
décimales,
| et
| | des virgules comme séparateurs entre les centaines et les milliers.
(sans
| | changer ma version d'excel)
| | Comment procéder???
| | Merci de votre aide
| |
| |
|
|
Avatar
isabelle
bonjour fred,

une fois le tout coller dans un module standard revient sur la feuille
de calcul et regarde au menu, Outils, Macro, Macros..., selectionne
"Get_locale" ou Set_locale" et appuis sur le bouton "Exécuter"

isabelle


Excuse Michel...je suis newbies...et je ne comprends pas ta réponse...je
vais dans le visual basic editor et j'insère un module...je fais un copier
coller...
Comment l'utiliser ensuite???
Merci pour ton aide!!!

"michdenis" a écrit dans le message de news:

| Bonjour Fred,
|
| Dans un module standard tout neuf, copie ce qui suit :
|
| Tu as tout ce qui faut pour modifier tous les "Options locales" que tu
désires.
|
|
| '------------------------------------------------------
| 'These declarations are designed
| 'for use in a .bas module
| 'since the constants are public
|
|
| Declare Function GetLocaleInfo Lib "kernel32" Alias _
| "GetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, _
| ByVal lpLCData As String, ByVal cchData As Long) As Long
|
| Declare Function SetLocaleInfo Lib "kernel32" Alias _
| "SetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, _
| ByVal lpLCData As String) As Boolean
|
| Declare Function GetUserDefaultLCID% Lib "kernel32" ()
|
| Public Const LOCALE_ICENTURY = &H24
| Public Const LOCALE_ICOUNTRY = &H5
| Public Const LOCALE_ICURRDIGITS = &H19
| Public Const LOCALE_ICURRENCY = &H1B
| Public Const LOCALE_IDATE = &H21
| Public Const LOCALE_IDAYLZERO = &H26
| Public Const LOCALE_IDEFAULTCODEPAGE = &HB
| Public Const LOCALE_IDEFAULTCOUNTRY = &HA
| Public Const LOCALE_IDEFAULTLANGUAGE = &H9
| Public Const LOCALE_IDIGITS = &H11
| Public Const LOCALE_IINTLCURRDIGITS = &H1A
| Public Const LOCALE_ILANGUAGE = &H1
| Public Const LOCALE_ILDATE = &H22
| Public Const LOCALE_ILZERO = &H12
| Public Const LOCALE_IMEASURE = &HD
| Public Const LOCALE_IMONLZERO = &H27
| Public Const LOCALE_INEGCURR = &H1C
| Public Const LOCALE_INEGSEPBYSPACE = &H57
| Public Const LOCALE_INEGSIGNPOSN = &H53
| Public Const LOCALE_INEGSYMPRECEDES = &H56
| Public Const LOCALE_IPOSSEPBYSPACE = &H55
| Public Const LOCALE_IPOSSIGNPOSN = &H52
| Public Const LOCALE_IPOSSYMPRECEDES = &H54
| Public Const LOCALE_ITIME = &H23
| Public Const LOCALE_ITLZERO = &H25
| Public Const LOCALE_NOUSEROVERRIDE = &H80000000
| Public Const LOCALE_S1159 = &H28
| Public Const LOCALE_S2359 = &H29
| Public Const LOCALE_SABBREVCTRYNAME = &H7
| Public Const LOCALE_SABBREVDAYNAME1 = &H31
| Public Const LOCALE_SABBREVDAYNAME2 = &H32
| Public Const LOCALE_SABBREVDAYNAME3 = &H33
| Public Const LOCALE_SABBREVDAYNAME4 = &H34
| Public Const LOCALE_SABBREVDAYNAME5 = &H35
| Public Const LOCALE_SABBREVDAYNAME6 = &H36
| Public Const LOCALE_SABBREVDAYNAME7 = &H37
| Public Const LOCALE_SABBREVLANGNAME = &H3
| Public Const LOCALE_SABBREVMONTHNAME1 = &H44
| Public Const LOCALE_SCOUNTRY = &H6
| Public Const LOCALE_SCURRENCY = &H14
| Public Const LOCALE_SDATE = &H1D
| Public Const LOCALE_SDAYNAME1 = &H2A
| Public Const LOCALE_SDAYNAME2 = &H2B
| Public Const LOCALE_SDAYNAME3 = &H2C
| Public Const LOCALE_SDAYNAME4 = &H2D
| Public Const LOCALE_SDAYNAME5 = &H2E
| Public Const LOCALE_SDAYNAME6 = &H2F
| Public Const LOCALE_SDAYNAME7 = &H30
| Public Const LOCALE_SDECIMAL = &HE
| Public Const LOCALE_SENGCOUNTRY = &H1002
| Public Const LOCALE_SENGLANGUAGE = &H1001
| Public Const LOCALE_SGROUPING = &H10
| Public Const LOCALE_SINTLSYMBOL = &H15
| Public Const LOCALE_SLANGUAGE = &H2
| Public Const LOCALE_SLIST = &HC
| Public Const LOCALE_SLONGDATE = &H20
| Public Const LOCALE_SMONDECIMALSEP = &H16
| Public Const LOCALE_SMONGROUPING = &H18
| Public Const LOCALE_SMONTHNAME1 = &H38
| Public Const LOCALE_SMONTHNAME10 = &H41
| Public Const LOCALE_SMONTHNAME11 = &H42
| Public Const LOCALE_SMONTHNAME12 = &H43
| Public Const LOCALE_SMONTHNAME2 = &H39
| Public Const LOCALE_SMONTHNAME3 = &H3A
| Public Const LOCALE_SMONTHNAME4 = &H3B
| Public Const LOCALE_SMONTHNAME5 = &H3C
| Public Const LOCALE_SMONTHNAME6 = &H3D
| Public Const LOCALE_SMONTHNAME7 = &H3E
| Public Const LOCALE_SMONTHNAME8 = &H3F
| Public Const LOCALE_SMONTHNAME9 = &H40
| Public Const LOCALE_SMONTHOUSANDSEP = &H17
| Public Const LOCALE_SNATIVECTRYNAME = &H8
| Public Const LOCALE_SNATIVEDIGITS = &H13
| Public Const LOCALE_SNATIVELANGNAME = &H4
| Public Const LOCALE_SNEGATIVESIGN = &H51
| Public Const LOCALE_SPOSITIVESIGN = &H50
| Public Const LOCALE_SSHORTDATE = &H1F
| Public Const LOCALE_STHOUSAND = &HF
| Public Const LOCALE_STIME = &H1E
| Public Const LOCALE_STIMEFORMAT = &H1003
|
|
| '------------------------------------------------------
| Public Sub Get_locale() ' Retrieve the regional setting
|
| Dim Symbol As String
| Dim iRet1 As Long
| Dim iRet2 As Long
| Dim lpLCDataVar As String
| Dim Pos As Integer
| Dim Locale As Long
|
| Locale = GetUserDefaultLCID()
|
| 'LOCALE_SDATE is the constant for the date separator
| 'as stated in declarations
| 'for any other locale setting just change the constant
|
| 'Function can also be re-written to take the
| 'locale symbol being requested as a parameter
|
| iRet1 = GetLocaleInfo(Locale, LOCALE_SDATE, _
| lpLCDataVar, 0)
| Symbol = String$(iRet1, 0)
|
| iRet2 = GetLocaleInfo(Locale, LOCALE_SDATE, Symbol, iRet1)
| Pos = InStr(Symbol, Chr$(0))
| If Pos > 0 Then
| Symbol = Left$(Symbol, Pos - 1)
| MsgBox "Regional Setting = " + Symbol
| End If
|
| End Sub
| '------------------------------------------------------
|
| Public Sub Set_locale() 'Change the regional setting
|
| Dim Symbol As String
| Dim iRet As Long
| Dim Locale As Long
|
| 'LOCALE_SDATE is the constant for the date separator
| 'as stated in declarations
| 'for any other locale setting just change the constant
|
| 'Function can also be re-written to take the
| 'locale information being set as a parameter
|
| Locale = GetUserDefaultLCID() 'Get user Locale ID
| Symbol = "/" 'New character for the locale
| iRet = SetLocaleInfo(Locale, LOCALE_SDATE, Symbol)
|
| End Sub
| '------------------------------------------------------
|
|
|
| Salutations!
|
|
|
|
|
|
|
| "fred" a écrit dans le message de
news:41462ac9$0$7602$
| J'ai téléchargé une macro qu'a réalisé Laurent Longre qui se nomme
| Paramreg.xla qui permet de modifier à la fois dans excel ou dans windows
les
| paramètre régionnaux.
| Mais au démarrage d'excel après avoir installé cette macro j'ai un
problème
| avec Visual Basic à l'ouverture...dommage car elle fonctionne correctement
|
| "michdenis" a écrit dans le message de news:
| #
| | Bonjour Fred,
| |
| | Si tu as excel 2002 ou plus récent,
| |
| | Barre des menus / outils / option / International /
| |
| | et tu définis le séparateur décimal et des milliers.
| |
| | Sinon, je ne crois pas que la chose est possible en dehors des
paramètres
| régionaux de Windows.
| |
| |
| | Salutations!
| |
| |
| |
| |
| | "fred" a écrit dans le message de
| news:41461db5$0$7592$
| | Bonjour,
| | Possédant Excel 2000 en français, je voudrais utiliser le "format
anglais"
| | pour les chiffres c'est à dire des points comme indicateurs de
décimales,
| et
| | des virgules comme séparateurs entre les centaines et les milliers.
(sans
| | changer ma version d'excel)
| | Comment procéder???
| | Merci de votre aide
| |
| |
|
|


Avatar
sabatier
ferait mieux de potasser davantage son VBA, le ptifred, plutôt que de
s'inquiéter de l'heure du petit coucher de mon ange dans son lit
micro-ondes...
jps

"isabelle" a écrit dans le message de
news:
bonjour fred,

une fois le tout coller dans un module standard revient sur la feuille
de calcul et regarde au menu, Outils, Macro, Macros..., selectionne
"Get_locale" ou Set_locale" et appuis sur le bouton "Exécuter"

isabelle


Excuse Michel...je suis newbies...et je ne comprends pas ta réponse




Avatar
fred
En fait c'est ce que j'avais fait!!!
Mais je ne comprends pas l'utilisation!!!!
Si je lance la macro "Get_locale" j'ai une petite fenêtre avec regional
Setting = /...Que dois-je effectuée ensuite???
jps t'as raison...va falloir que je bosse le vba...j'ai trop fumé la
moquette!!!



"sabatier" a écrit dans le message
de news:
| ferait mieux de potasser davantage son VBA, le ptifred, plutôt que de
| s'inquiéter de l'heure du petit coucher de mon ange dans son lit
| micro-ondes...
| jps
|
| "isabelle" a écrit dans le message de
| news:
| > bonjour fred,
| >
| > une fois le tout coller dans un module standard revient sur la feuille
| > de calcul et regarde au menu, Outils, Macro, Macros..., selectionne
| > "Get_locale" ou Set_locale" et appuis sur le bouton "Exécuter"| >
| > isabelle
| >
| > >
| > > Excuse Michel...je suis newbies...et je ne comprends pas ta réponse
|
|
Avatar
michdenis
Bonjour Fred,


Tu as 2 procédures :

A ) Pour modifier un paramètre local dans le panneau de configuration :

" Public Sub Set_locale() 'Change the regional setting "

Dans cette procédure, il s'agit que tu remplaces la constante " LOCALE_SDATE " qui elle modifie le séparateur des
arguments des dates par la constante que tu désires et qui est définie dans la liste au dessus des procédures.

Pour le séparateur décimal la constante est : LOCALE_SDECIMAL

De plus, tu ne dois pas oublier de renseigner la variable par la valeur appropriée :
Symbol = "," ' OU "." selon tes désirs 'New character for the locale

ATTENTION : De ne pas indiquer dans ton panneau de configuration, un séparateur décimal qui soit le même que le
séparateur de milliers.



B ) Pour obtenir la valeur d'un paramètre local dans le panneau de configuration :

" Public Sub Get_locale() ' Retrieve the regional setting "

Cette procédure requiert aussi que tu remplace le nom de la constante LOCALE_SDATE par une constante de la liste dont
tu désires connaître la valeur.



Salutations!







"fred" a écrit dans le message de news:4148168d$0$12999$
En fait c'est ce que j'avais fait!!!
Mais je ne comprends pas l'utilisation!!!!
Si je lance la macro "Get_locale" j'ai une petite fenêtre avec regional
Setting = /...Que dois-je effectuée ensuite???
jps t'as raison...va falloir que je bosse le vba...j'ai trop fumé la
moquette!!!



"sabatier" a écrit dans le message
de news:
| ferait mieux de potasser davantage son VBA, le ptifred, plutôt que de
| s'inquiéter de l'heure du petit coucher de mon ange dans son lit
| micro-ondes...
| jps
|
| "isabelle" a écrit dans le message de
| news:
| > bonjour fred,
| >
| > une fois le tout coller dans un module standard revient sur la feuille
| > de calcul et regarde au menu, Outils, Macro, Macros..., selectionne
| > "Get_locale" ou Set_locale" et appuis sur le bouton "Exécuter"| >
| > isabelle
| >
| > >
| > > Excuse Michel...je suis newbies...et je ne comprends pas ta réponse
|
|