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
MichDenis
Pour extraire le séparateur décimale définit dans le panneau de configuration de Windows :
'------------------------- Sub Test()
Dim SepDec As String SepDec = Format(0, ".") 'Ceci était une suggestion d'Alain Cros.
'.il y a aussi cette ligne de code : SepDec = Application.International(xlDecimalSeparator)
End Sub '------------------------- .
"Daniel" a écrit dans le message de news: % Re. Avec VBA, comment récupérer le séparateur décimal quand on utilise les paramètres système ? Merci d'avance. Daniel
Pour extraire le séparateur décimale définit dans le panneau
de configuration de Windows :
'-------------------------
Sub Test()
Dim SepDec As String
SepDec = Format(0, ".")
'Ceci était une suggestion d'Alain Cros.
'.il y a aussi cette ligne de code :
SepDec = Application.International(xlDecimalSeparator)
End Sub
'-------------------------
.
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
%23fY08bp1HHA.1336@TK2MSFTNGP04.phx.gbl...
Re.
Avec VBA, comment récupérer le séparateur décimal quand on utilise les
paramètres système ?
Merci d'avance.
Daniel
Pour extraire le séparateur décimale définit dans le panneau de configuration de Windows :
'------------------------- Sub Test()
Dim SepDec As String SepDec = Format(0, ".") 'Ceci était une suggestion d'Alain Cros.
'.il y a aussi cette ligne de code : SepDec = Application.International(xlDecimalSeparator)
End Sub '------------------------- .
"Daniel" a écrit dans le message de news: % Re. Avec VBA, comment récupérer le séparateur décimal quand on utilise les paramètres système ? Merci d'avance. Daniel
Daniel
OK. Merci beaucoup. Daniel "MichDenis" a écrit dans le message de news:
Pour extraire le séparateur décimale définit dans le panneau de configuration de Windows :
'------------------------- Sub Test()
Dim SepDec As String SepDec = Format(0, ".") 'Ceci était une suggestion d'Alain Cros.
'.il y a aussi cette ligne de code : SepDec = Application.International(xlDecimalSeparator)
End Sub '------------------------- .
"Daniel" a écrit dans le message de news: % Re. Avec VBA, comment récupérer le séparateur décimal quand on utilise les paramètres système ? Merci d'avance. Daniel
OK. Merci beaucoup.
Daniel
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
uaEww1p1HHA.3640@TK2MSFTNGP06.phx.gbl...
Pour extraire le séparateur décimale définit dans le panneau
de configuration de Windows :
'-------------------------
Sub Test()
Dim SepDec As String
SepDec = Format(0, ".")
'Ceci était une suggestion d'Alain Cros.
'.il y a aussi cette ligne de code :
SepDec = Application.International(xlDecimalSeparator)
End Sub
'-------------------------
.
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
%23fY08bp1HHA.1336@TK2MSFTNGP04.phx.gbl...
Re.
Avec VBA, comment récupérer le séparateur décimal quand on utilise les
paramètres système ?
Merci d'avance.
Daniel
OK. Merci beaucoup. Daniel "MichDenis" a écrit dans le message de news:
Pour extraire le séparateur décimale définit dans le panneau de configuration de Windows :
'------------------------- Sub Test()
Dim SepDec As String SepDec = Format(0, ".") 'Ceci était une suggestion d'Alain Cros.
'.il y a aussi cette ligne de code : SepDec = Application.International(xlDecimalSeparator)
End Sub '------------------------- .
"Daniel" a écrit dans le message de news: % Re. Avec VBA, comment récupérer le séparateur décimal quand on utilise les paramètres système ? Merci d'avance. Daniel
Hervé
Bonjour Daniel, Un peu plus complexe mais qui marche très bien :
Declare Function GetSystemDefaultLCID _ Lib "kernel32" () As Long
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
Sub SeparateurDecimal() Dim Tampon As String Dim LG_Tampon As Long
If LG_Tampon > 0 Then MsgBox Left$(Tampon, LG_Tampon - 1) End If
End Sub
Hervé.
"Daniel" a écrit dans le message de news: #
Re. Avec VBA, comment récupérer le séparateur décimal quand on utilise les paramètres système ? Merci d'avance. Daniel
Bonjour Daniel,
Un peu plus complexe mais qui marche très bien :
Declare Function GetSystemDefaultLCID _
Lib "kernel32" () As Long
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
Sub SeparateurDecimal()
Dim Tampon As String
Dim LG_Tampon As Long
Bonjour Daniel, Un peu plus complexe mais qui marche très bien :
Declare Function GetSystemDefaultLCID _ Lib "kernel32" () As Long
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
Sub SeparateurDecimal() Dim Tampon As String Dim LG_Tampon As Long
If LG_Tampon > 0 Then MsgBox Left$(Tampon, LG_Tampon - 1) End If
End Sub
Hervé.
"Daniel" a écrit dans le message de news: #
Re. Avec VBA, comment récupérer le séparateur décimal quand on utilise les paramètres système ? Merci d'avance. Daniel
Daniel
Merci à toi aussi. Daniel "Hervé" a écrit dans le message de news: %236yD%23$
Bonjour Daniel, Un peu plus complexe mais qui marche très bien :
Declare Function GetSystemDefaultLCID _ Lib "kernel32" () As Long
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
Sub SeparateurDecimal() Dim Tampon As String Dim LG_Tampon As Long
If LG_Tampon > 0 Then MsgBox Left$(Tampon, LG_Tampon - 1) End If
End Sub
Hervé.
"Daniel" a écrit dans le message de news: #
Re. Avec VBA, comment récupérer le séparateur décimal quand on utilise les paramètres système ? Merci d'avance. Daniel
Merci à toi aussi.
Daniel
"Hervé" <hmsilve-sanspub@wanadoo.fr> a écrit dans le message de news:
%236yD%23$q1HHA.1336@TK2MSFTNGP04.phx.gbl...
Bonjour Daniel,
Un peu plus complexe mais qui marche très bien :
Declare Function GetSystemDefaultLCID _
Lib "kernel32" () As Long
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
Sub SeparateurDecimal()
Dim Tampon As String
Dim LG_Tampon As Long
Merci à toi aussi. Daniel "Hervé" a écrit dans le message de news: %236yD%23$
Bonjour Daniel, Un peu plus complexe mais qui marche très bien :
Declare Function GetSystemDefaultLCID _ Lib "kernel32" () As Long
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
Sub SeparateurDecimal() Dim Tampon As String Dim LG_Tampon As Long