Problème de séparateur

[Pierwak]

Bonjour à tous,
L'appli que j'ai développée contient un champ ou les nombres doivent etre décimaux. Ce champ doit etre renseigné dans un usf. J'ai utilisé la fonction

Private Sub Txtrat_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 44 Or KeyAscii = 46 Then
   KeyAscii = Asc(Application.International(xlDecimalSeparator))
End If
End Sub

suggérée par Thierry pour gérer les pb de séparateurs. Le problème est qu'ensuite, les données dans la feuille sont des nombres stockés au format texte, ce que je ne veux absolument pas étant donné que j'ai des calculs à faire dessus... Quelqun a t'il une idée pour contourner ce problème ??
D'avance merci a tous ceux qui prendront un moment pour me répondre.

 

[pierrejean]

Re : Problème de séparateur

bonjour Pierwak

il faut utiliser la fonction Cdbl() pour transferer de l'Usf sur la feuille
Quelque chose du genre

Range("A1")=Cdbl(Textbox1)

 

[Pierwak]

Re : Problème de séparateur

Salut Pierre Jean,
Effectivement ca marche mais lorsque je rouvre ma ligne avec un double click pour faire des modifs mon nombre apparait du coup avec un point et mon test de validation me jette pcq ce textbox doit etre numérique... C un peu une histoire de fou... a titre indicatif je joins le code de mon test de validation :

With .Txtrat
    If Not IsNumeric(.Value) And Not .Value = Empty Then
    MsgBox "CB2 Rate is a numeric field, please enter a number or leave empty", vbInformation
    controlnum = False
    Exit Function
    End If
    End With

Voila donc maintenant j'arrive a faire apparaitre un virgule meme si l'utilisateur rentre un point, a bien stocker cette valeur au format nombre mais en cas de réouverture, la fonction ci dessus me dit que le nombre n'est pas un nombre car il s'affiche alors avec un "." ds l'usf alors qu'il s'affiche comme un nombre et avec une "," directement sous Excel... J'y comprend plus gd chose...

 

[tototiti2008]

Re : Problème de séparateur

Bonjour à tous,

tout ce que je peux proposer, c'est :
Txtrat.Text = Replace(Range("a1").Value, ".", ",")

 

[pierrejean]

Re : Problème de séparateur

Re

Le textbox ne peut pas etre numerique par definition
La macro de verification doit donc aussi comprendre la fonction Cdbl() et en fait verifier que Cdbl(.Value) n'aboutit pas a une erreur
Il serait plus simple d'avoir un fichier exemple pour expliciter tout cela

 

[Pierwak]

Re : Problème de séparateur

Merci a tous, avec le Cdbl dans la fonction de validation ET dans la fonction d'écriture dans la base le pb est résolu... Encore merci à XLD... One more time...

edit : en fait le CDbl dans la fonction de validation fait bugger le programme mais il suffit d'ouvrir la ligne avec le replace proposé et ca marche...

 

[Pierwak]

Re : Problème de séparateur

Me revoila, en fait il y a un autre bug, provenant des paramètres régionaux... je m'explique : sur un PC configuré avec le "." comme séparateur, la fonction de Thierry que je donne dans mon premier post fait que le nombre s'écrit avec un "." dans la case du usf. Seulement lors du test pour vérifier que l'on a bien rentré un nombre dans la textbox, cela ne marche pas, la fonction IsNumeric semble ne pas reconnaitre "1.35" comme un nombre. Et un Cdbl(.value) ne marche pas, on obtient systématiquement une erreur... Comment faire ?? Si quelqun a une idée miracle, faites tourner...

 

[Pyrof]

Re : Problème de séparateur

Bonjour,


essais cells(x,y)=0 + val(textbox) ,j'ai parfois résolu comme ça

 

[tototiti2008]

Re : Problème de séparateur

Bonjour à tous,

Moi je suis passé en américain et isnumeric marche bien et cdbl aussi sur les nombres tapés avec un point.

 

[Pierwak]

Re : Problème de séparateur

merci du tip mais le problème que je rencontre actuellement n'est pas de stocker le nombre en nombre dans la feuille mais de vérifier que c'est un nombre lorsque je quite l'userform...

je joins un fichier qui montre sur un petit example le problème rencontré. Essayer de tester avec la "," ET le "." dans les paramètres (outils->options->international->separateur décimal) il faudrait que ca marche dans les deux cas...
Regarde la pièce jointe demosepPwak.xls

 

[tototiti2008]

Re : Problème de séparateur

Bon, on peut toujours chipoter mais :
Si dans Excel, on garde les séparateurs système et qu'on passe de français à américain dans le panneau de configuration, chez moi, ça marche dans les 2 cas.
Là où ça se corse, c'est quand on est en Français dans le système et en Américain dans Excel ou inversement...

 

[pierrejean]

Re : Problème de séparateur

Re

Vois si tu peux t'inspirer de ceci

Edit:

Salut pyrof
Salut tototiti

 

[Pierwak]

Re : Problème de séparateur

Salut tototiti je vais essayer en changeant dans le panneau de config mais le problème c'est que mon appli va etre utilisée dans plusieurs pays dont les US et que je peux difficilement prévoir quels seront leur settings. Ce matin mon manager qui est français ds le panneau de config et en US dans Excel a rencontré un problème et j'aimerais trouver une solution pour que ce genre de bug n'apparaisse plus...

Pierrejean merci mais je ne vois pas ou est la solution dans ton fichier... moi j'ai toujours la meme erreur que dans le mien en étant volontairement en , ds le panno de config et en . dans excel... So ??

 

[tototiti2008]

Re : Problème de séparateur

Une piste :
GESTION DES PARAMÈTRES RÉGIONNAUX paramètres, régionnaux, Source N°36929
pour obtenir le séparateur système
et
Application.DecimalSeparator
pour obtenir le séparateur Excel
Après ça, c'est du cas par cas...😱

 

[pierrejean]

Re : Problème de séparateur

Re

Que veux-tu dire par
Etant en . dans Excel ???
L'erreur intervient sur quelle ligne ???