textbox

[claude40]

Bonjour a tous
dans l'userform du fichier suivant,je et il possible dans les textbox de pouvoir préinstaller la virgule.

je m'explique je voudrais si c'est possible quand je tape la donné la textbox de l'userform que la virgule y soit deja pour éviter l'erreur avec le point.
je voudrais dans 2,3,4éme textbox que la virgule se place aprés le premier chiffre.
quelqu'un a t'il la solution?

merci d'avance
Regarde la pièce jointe rinçage1.xls

 

[JNP]

Re : textbox

Bonjour Claude40 🙂,
Si tu utilises une procédure Change sur le TextBox, tu peux vérifier si il n'y a qu'un seul caractère et rajouter la "," en automatique. Mais il ne faut pas que la valeur soit supérieure à "9,99999", ni que la personne saisisse une deuxième virgule, ou alors, il va falloir ajouter un test pour vérifier que le 3 ème caractère soit un chiffre... Ce qui n'est pas un problème en soi..

Private Sub Qeaurinçage_Change()
If Len(Qeaurinçage) = 1 Then Qeaurinçage = Qeaurinçage & ","
End Sub

Bonne journée 😎

 

[claude40]

Re : textbox

rebonjour
et merci JPN
peut tu m'indiquer la formule pour le test,et comment faire si par exemple la virgule devait se placer apres le deuxiéme chiffres.
merci beaucoup

 

[JNP]

Re : textbox

Re 🙂,
Pour le test, il te suffit de faire un Select Case type

Select Case Len(Qeaurinçage)
Case 1
Qeaurinçage = Qeaurinçage & ","
Case > 2
Select Case Right(Qeaurinçage,1)
Case 0,1,2,3,4,5,6,7,8,9,
Case Else
Qeaurinçage = Left(Qeaurinçage, Len(Qeaurinçage) - 1)
End Select
End Select

Je pense que je ne me suis pas trompé, je n'ai pas testé...
Si tu veux plus qu'un chiffre avant la virgule, c'est possible si tu es sûr qu'il y aura systématiquement 2 chiffres par exemple, il suffit de décaler le code. Sinon, le plus simple peut-être tout simplement de regarder le dernier caractère saisi, et si c'est un ".", le transformer en ",".
Bonne journée 😎

 

[claude40]

Re : textbox

merci JPN

tres bonne idée de transformer le "." en "," tu peut me dire comment je peut faire,si sa ne te dérange pas.

merci

 

[JNP]

Re : textbox

Re 🙂,

Private Sub Qeaurinçage_Change()
If Right(Qeaurinçage, 1) = "." Then Qeaurinçage = Left(Qeaurinçage, Len(Qeaurinçage) - 1) & ","
End Sub

à faire pour tous les ListBox dont tu as besoin, sachant bien sûr que ce n'est pas un masque parfait.
Bon WE
PS: Tu oublie souvent de clôturer tes posts, fait un petit effort svp.

 

[claude40]

Re : textbox

Merci pour tout JPN

a bientot

 

[myDearFriend!]

Re : textbox

Bonsoir claude40, JNP, le Forum,

En complément de la solution de notre ami JNP.
Pour forcer l'utilisateur à saisir une virgule au lieu du point, je pense que le mieux est encore d'utiliser l'évènement KeyPress :

[COLOR=GRAY][B][I]DANS LE MODULE DE CODE DU USERFORM[/I][/B][/COLOR]

[COLOR=NAVY]Private Sub[/COLOR] Qeaurinçage_KeyPress([COLOR=NAVY]ByVal[/COLOR] KeyAscii [COLOR=NAVY]As[/COLOR] MSForms.ReturnInteger)
    [COLOR=NAVY]If[/COLOR] KeyAscii = 46 [COLOR=NAVY]Then[/COLOR] KeyAscii = 44
[COLOR=NAVY]End Sub[/COLOR]

Et finalement, si l'utilisateur est invité à ne rentrer QUE des valeurs numériques :

[COLOR=GRAY][B][I]DANS LE MODULE DE CODE DU USERFORM[/I][/B][/COLOR]

[COLOR=NAVY]Private Sub[/COLOR] Qeaurinçage_KeyPress([COLOR=NAVY]ByVal[/COLOR] KeyAscii [COLOR=NAVY]As[/COLOR] MSForms.ReturnInteger)
    [COLOR=NAVY]Select Case[/COLOR] KeyAscii
    [COLOR=NAVY]Case[/COLOR] 46                 [COLOR=GREEN]'Change le point en virgule[/COLOR]
        KeyAscii = 44
    [COLOR=NAVY]Case[/COLOR] 44, 48 [COLOR=NAVY]To[/COLOR] 57       [COLOR=GREEN]'Autorise les touches 0 à 9[/COLOR]
    [COLOR=NAVY]Case Else[/COLOR]
        KeyAscii = 0
    [COLOR=NAVY]End Select
End Sub[/COLOR]

Cordialement,