FORCER LE "." POINT COMME PARAMÈTRE DÉCIMAL DANS LES PARAMÈTRES RÉGIONNAUX ( MA SOLUTION)

Commentaire de BruNews le 08/09/2005 09:52:48 administrateur CS

Si ton prog a besoin du point décimal:
- Ecrire "." dans BDR
- PostMessage(HWND_BROADCAST, WM_SETTINGCHANGE, 0, 0)
- Faire tes traitements
- Remettre ancien séparateur décimal
- PostMessage(HWND_BROADCAST, WM_SETTINGCHANGE, 0, 0)

Evitera intervention utilisateur puisque devait se faire obligatoirement.

Commentaire de bouv le 08/09/2005 16:50:53

Slt, je ne regarde pas le code mais je trouve ta manière de procédé plutôt mauvaise.
Imagine que moi je décide de faire tout mes progs en utilisant la virgule comme séparateur décimal, et que comme toi je force l'inscription dans le registre. Imagine ensuite qu'une même personne utilise nos 2 applis. Que va-t-il se passer ?
Ta solution :
   1 - Est égoïste
   2 - N'en est pas une (puisque je viens de te montrer une faille)
   3 - N'est pas pro (s'est au développeur de s'adapter et nom à l'OS).

A mon sens il faut stocker le séparateur décimal du PC dans une variable au lancement de l'appli et utiliser ensuite. Ainsi tu ne touche pas au parametres du PC et ton appli reste compatible avec tout les PC.

Commentaire de BruNews le 08/09/2005 18:19:45 administrateur CS

Alors pour changer, pas besoin d'aller dans le registre, API fera mieux et plus vite:
SetLocaleInfo(1024, 0x0E, ".");
Votre code ici.
SetLocaleInfo(1024, 0x0E, ",");
et voila remis en ordre.

Commentaire de cuq le 08/09/2005 18:48:05

Autant pour moi :

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/intl/nls_8d0z.asp

En regradant un peu j'ai vu GetNumberFormat a voir c'est peut être la solution

Commentaire de cuq le 08/09/2005 19:06:26

Private Type NUMBERFMT
        NombreDecimal As Long               '  nombre de décimal
        ZeroTete As Long                    '  Afficher les zéro en en tête (Marche pas  ?)
        Groupe As Long                      '  Groupement des digit ( 3 pour les milliers)
        SeparateurDecimal As String         '  Separateur des Decimals
        SeparateurMillier As String         '  Separateur des miliers ( Voir Groupe )
        PositionSigneNegatif As Long          '  Position du signe négatif
End Type
Private Declare Function GetNumberFormat Lib "kernel32" Alias "GetNumberFormatA" (ByVal Locale As Long, ByVal dwFlags As Long, ByVal lpValue As String, lpFormat As NUMBERFMT, ByVal lpNumberStr As String, ByVal cchNumber As Long) As Long
Private Sub Form_Load()
    Dim Buffer As String, NF As NUMBERFMT
    
    Buffer = String(255, 0)
    With NF
        .NombreDecimal = 3
        .ZeroTete = 1
        .Groupe = 3
        .SeparateurDecimal = "."
        .SeparateurMillier = " "
        .PositionSigneNegatif = 1
    End With
    
    GetNumberFormat ByVal 0&, 0, "-0015545.242315654", NF, Buffer, Len(Buffer)
    MsgBox Buffer
End Sub

Enfin ca reste lourd à mon avis si tu doit l'employer toute les 2 lignes de code et j'ai pas testé au niveau performance

Tu as un exemple pour SetThreadLocale
Cuq

Commentaire de BruNews le 08/09/2005 19:37:29 administrateur CS

J'ai testé SetThreadLocale dans Excel mais pas moyen d'arriver à sortir un "." en séparateur.
Le plus simple reste SetLocaleInfo() comme dit plus haut.

Commentaire de cuq le 09/09/2005 08:22:23

Salut,
Je comprend pas vraiment ce que tu veux dire par "norme US".
Et au contraire de toi je pense que dans mon cas VB s'adapte très mal aux régional settings . Non plus exactement c'est ce Séparateur décimal qui est la cause de tout.

Pour les fichiers texte tu n'as pas à te discipliner .
SI tu prends des formats Texte existant des standard du marché comme par exemple:
DXF pour les données CAO géométriques 2D
IGES pour les données CAO géométriques 3D
GPS , WRML, STEP , STL qui sont des formats standards et beaucoup d'autres.
Dans ces fichiers le séparateur est le point. Pour nous (Français et européen en général le séparateur est la virgule) .
Donc en VB si tu veux lire, convertir ces données texte en valeur type double par exemple la conversion par val retournera une mauvaise valeur. Sauf si tu utilise Replace ) mais dans ce cas tu complique et ralenti ton code ) de plus très souvent le séparateur de champ dans ces fichiers est ... la virgule. Donc tu ne peut pas faire un seul replace sur une ligne relue mais X relpace après avoir isolé chaque valeur . Ou alors deux replace un pour le séparateur de champ un pour la décimal. Enfin je m'égare mais voila le type de problème. Même chose à l'écriture.

Enfin faut être confronté au problème pour bien comprendre. 5 ou alors c'est moi qui me fait chier depuis pas mal de temps mais à ce point là je doute )

Commentaire de Patrice99 le 09/09/2005 08:39:15

La plupart du temps, il suffit de lire les nombres réels en tant que string, de remplacer le séparateur décimal par le bon, puis d'utiliser les fonctions classiques de VB6 ou VBA, même dans une requête Access cela fonctionne. Cependant, il existe quand même des cas où l'on est obligé de changer à la volée le séparateur décimal dans le registre : par exemple j'utilise OWC 9 et je charge des enregistrements en une seule instruction dans le tableur OWC : hé bien je suis obligé d'utiliser le . comme séparateur décimal.

Commentaire de pit1 le 09/09/2005 20:16:15

Je suis du même avis que MarcA. Il suffit d'écrire une fonction qui fait la conversion (éventuellement avec un variable statique pour la "," et une pour le ".", cela évite de tester à chaque fois la base de régistre ou avec csng quel est le séparateur des décimales).

Pas question de tripoter dans les settings locale. Que ce passe t'il avec les autres application en mémoire, que ce passe t'il si l'appli plante avant de restaurer les settings ???

Commentaire de bouv le 10/09/2005 09:13:18

On peut même faire plus propre avec :

Public Function Valider_Nombre(Valeur_A_Valider)
    Select Case sDecimal
        Case "."
            Valider_Nombre = Replace(Valeur_A_Valider, ",", sDecimal)
        Case ","
            Valider_Nombre = Replace(Valeur_A_Valider, ".", sDecimal)
    End Select
End Function

Commentaire de marcA le 12/09/2005 08:32:35

Bonjour,

Le problème en imposant le symbole décimal, c'est quand l'application plante.
Un collègue a eu un problème avec une application il y a deux semaines car l'application qui modifie les paramètres régionaux avait planté et n'avait donc pas restauré les paramètres. A moins qu'il n'y ait un système pour voir quand une application plante, c'est une technique à éviter à tout prix pour moi.

Marc Allard

Commentaire de Renfield le 12/09/2005 09:07:56 administrateur CS

Utilise en ce cas la fonction Replace ^^

Commentaire de cuq le 12/09/2005 09:58:50

Bonjour A Tous,

On l'avait dit c'est un sujet brulant. Et je pense que vous n'avez pas bien mes différents commentaires . Le problème de replace ou autres méthodes consitant à changer la "," en "." c'est dans le cas de grand traitement "milliers" de lignes à lire vous augmentez le  temps de traitement ( j'ai pas vraiment de % de temps en plus à fournir mais le test serait intéressant pour variament être plus explicit). et ces Replaces ou autres à la lecture seront aussi nécessaires à l'écriture pour "Corriger" la sortie de FORMAT. Donc encore une fois au risque de me répéter je ne présente ici que MA solution qui n'st pas LA solution mais qui dans ce cas de figure me semble la plus appropriée. LA solution avec un L et un A majuscule serait de pouvoir spécifié les paramètres juste au niveau de l'appli. J'ai testé SetLocalInfo mais sans grand succès (manque de connaisssnace) Si quequ'un peut en dire plus sur cette fonction . C'est une piste

Commentaire de cuq le 12/09/2005 11:12:22

Pardon BrNews je voulai parlé de SetThreadLocal et pas de SetLocalInfo ( la ca va je maitrise)Duex petits lien en Anglais de Microsoft  sur le problème ) Ca c'est pour celui qui ne connaitrait pas vraiment le problème . Ca donne un peu plus d'infos mais pas la solution :

Considération a prendre en compte lors de l'écriture d'un programme qui se veut international

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vbcon98/html/vbconspecialcondsiderationswhenwritinginternationalcode.asp

et

Idem mais pour la lecture et l'écriture dans les fichiers.

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vbcon98/dt_vbconSpecialCondsiderationsWhenWritingInternationalCodeC.asp

Commentaire de jipef le 13/09/2005 08:55:09

en debut de ton code :
  If InStr(1, CStr(CDbl(TimeValue("09:01:01"))), ",") > 0 Then
        SeparateurDecimal = "Virgule"
    Else
        SeparateurDecimal = "POINT"
    End If
ensuite dans ton code tu utilise cdouble("123,45")
'===================================
Public Function Cdouble(Chaine As String) As Double
'===================================
    Dim Pos%
If Chaine = "" Then
    Cdouble = 0
    Exit Function
End If

    If UCase(SeparateurDecimal) = UCase("virgule") Or UCase(SeparateurDecimal) = "," Then
        Pos = InStr(1, Chaine, ",")
        If Pos <> 0 Then
            ' rien faire c'est virgule pour virgule !!!
            Cdouble = CDbl(Chaine)
            Exit Function
        Else
            Pos = InStr(1, Chaine, ".")
            If Pos <> 0 Then
                Mid(Chaine, Pos, 1) = ","
            End If
        End If
    Else    ' point décimal
        Pos = InStr(1, Chaine, ",")
        If Pos <> 0 Then    ' VIRGULE 0 CHANGER PAR POINT
            Mid(Chaine, Pos, 1) = "."
        Else
        ' ne rien faire POINT pour POINT
            Cdouble = CDbl(Chaine)
            Exit Function
        End If
    End If
    ' maintenant on peut convertir !! si > 0
    If Val(Chaine) > 0 Then
        On Error GoTo SORTIE
        Cdouble = CDbl(Chaine)
    Else
        Cdouble = 0
    End If
    Exit Function
SORTIE:
    Cdouble = 0
End Function

Pour la saisie tu testes et tu remplace la touche "." par ","

CQFD
signe Jipef

Commentaire de tawass le 20/04/2006 18:48:46

Ma solution reste simple et doit pouvoir passer partout: je
scan ma chaine de caractères (caractère par caractère) et je remplace chaque virgule par un point à la reconstruction de la nouvelle chaine.

For i = 1 To Len(chaine_de_caracteres)
    test = Mid(chaine_de_caracteres, i, 1)

    If test = "," Then
        test = "."
    End If

    chaine_de_caracteres = chaine_de_caracteres + test
Next

Commentaire de tawass le 25/04/2006 09:53:53

En effet Renfield, c'est plutôt:
"chaine_de_caracteres2 = chaine_de_caracteres2 + test"

A ce moment là on est bon!

Commentaire de azerty58220 le 12/02/2007 10:57:16

Application.International(xlDecimalSeparator)

est aussi bien efficace...

Commentaire de peug le 16/07/2009 10:22:38

Salut,
Tenez, comme ca marche très bien et c'est rapide:

Public Function fctVal(ByVal Chaine As String) As Double

    If Trim(Chaine) = "" Then
        fctVal = 0
        Exit Function
    End If

    Dim i As Long
    Dim j As Long
    i = InStrRev(Chaine, ".")
    j = InStrRev(Chaine, ",")
    If j > i Then
        i = j
    End If

    Dim lD As Long
    lD = Val(Mid(Chaine, i + 1))
    
    Chaine = Mid$(Chaine, 1, i - 1)
    
    Dim strTmp As String
    Dim charTmp As String

    For i = 1 To Len(Chaine)
        charTmp = Mid(Chaine, i, 1)
        If Asc(charTmp) >= 48 And Asc(charTmp) <= 57 Then
            strTmp = strTmp & charTmp
        ElseIf charTmp = "+" Or charTmp = "-" Then
            ' Le signe...
            strTmp = strTmp & charTmp
        ElseIf charTmp = " " Or charTmp = "." Or charTmp = "," Then
        End If
    Next i

    fctVal = Val(strTmp) & "." & lD

End Function

Commentaire de peug le 16/07/2009 11:03:43

Salut Renfiedl,
mais si le séparateur de millier est le point, ca marche pas dans ton cas. Ex : "123.456,7" renvoi  123.456

D'où dans ma fonction les "InStrRev"

Commentaire de peug le 16/07/2009 11:16:18

oui ok pour IsNumeric c'est juste mais j'ai lu ton article mais j'ai été confronté à un problème similaire où un client a envoyé son fichier data d'un vieux logiciel où le stockage n'était pas correcte (comme tu le relate d'ailleurs) et boom patatrac, en France,  "123.456,7" renvoyait  123.456
D'où comme tu le soulignes, d'enregistrer de manière internationale !