ecriture par la droite

WocaM · 31 Janvier 2012

Bonjour le Forum

je cherche à réaliser la saisie d'un nombre dans un textbox mais par la droite
par exemple si la personne doit rentrer le nombre 536, voilà ce que j'aimerais que ça donne
à la base le textbox indiquera 0000 puis en fonction des touches tapées

0000
0005
0053
0536

et que le chiffre reste à 4 caractères (en gros je peux avoir des chiffres de 0001 à 9999)
dans le fichier joint,j'ai mis un userform avec juste un textbox pour tester cette saisie
je l’implémenterais dans mon fichier après

merci de votre aide

Cordialement
WocaM

Guest · 31 Janvier 2012

Re : ecriture par la droite

Bonjour,

Pas de fichier. Coincé dans les tuyaux?

Mettre la propriété TextAlign du textbox sur Right

Code:

Private Sub TextBox1_Change()
'Fromater le texte
If IsNumeric(TextBox1) Then TextBox1 = Format(Val(TextBox1), "0000")
'Limiter sa longuer à 4 caractères (MaxLength=4 empêcherait de le modifier quand '0000')
If Len(Trim(TextBox1)) > 4 Then TextBox1 = Left(TextBox1, 4)
End Sub

Private Sub TextBox1_Enter()
'Quant on entre dans le textbox si celui-ci est vide, le mettre à zéro (L'évènement change le formatera)
If Trim(TextBox1) = "" Then TextBox1 = "0"
End Sub

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'N'autorise que la saisie des chiffres dans le textbox
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
End Sub

job75 · 31 Janvier 2012

Re : ecriture par la droite

Bonjour WocaM, salut Hasco 🙂

Ceci devrait suffire :

Code:

Private Sub TextBox1_Change()
TextBox1 = Left(Format(Val(TextBox1), "0000"), 4)
End Sub

A+

WocaM · 31 Janvier 2012

Re : ecriture par la droite

Bonjour à vous Hasco, job75

Hasco, => oui je sais je suis un gros boulet 😡😡
( j'ai du repartir en urgence au boulot et j'ai cliqué sur envoyer sans mettre la PJ)

sinon pour vos codes, j'ai testé les 2 solutions, le fonctionnement est identique

Je donne quand même mon avantage au code job75, car celui-ci est plus simple.
Il gère directement la différence entre les chiffres et les lettres.
Et ça sera plus facile à comprendre pour celui qui voudrais décrypter mon fichier plus tard

En tout cas encore un grand merci à toi, Hasco, mes collègues ont été bluffés du résultat

Il n'y a plus qu'a utiliser le fichier pour découvrir des bugs qui pourraient rester
mais là ça devrais juste être des bugs liés à mes bases de listes, pas au code directement

cordialement
WocaM

ecriture par la droite

WocaM

XLDnaute Junior

Guest

Guest

job75

XLDnaute Barbatruc

WocaM

XLDnaute Junior

Discussions similaires

ecriture par la droite

WocaM

XLDnaute Junior

Guest

Guest

job75

XLDnaute Barbatruc

WocaM

XLDnaute Junior

Discussions similaires

Privacy & Transparency

Privacy & Transparency