Discussion :

[js8bleu]

Bonjour,

je souhaiterai avoir des chiffres avec séparateur de millier dans un textbox. C'est-à dire que lorsque je saisi 15000000 qu'il m'affiche 15 000 000. Voici le code qui est dans l'évènement Change de mon textbox :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
    txtmontantcheque.Text = Format(txtmontantcheque, "### ### ###")
    txtmontantcheque.SelStart = Len(txtmontantcheque)

Le code marche mais mon problème est que lorsque je supprime par exemple le 5 des 15 000 000, il me ramène le curseur au premier zéro alors que j'aimerai que le curseur reste là où le 5 a été supprimé.

NB : Je souhaiterai que l'utilisateur puissent constater les séparateurs de milliers en temps réel.

Merci d'avance.

Cordialement.

[DAUDET78]

regarde la propriété SelStart qui donne la position du curseur sur le texte

[js8bleu]

Bonjour et Merci DAUDET78 pour ton intérêt. Si tu regardes bien j'ai déjà essayé avec .SelStart

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
txtmontantcheque.SelStart = Len(txtmontantcheque)

mais ça ne marche malheureusement pas .

Merci d'avance pour ton aide.

Cordialement.

[DAUDET78]

C'est pas comme ça qu'il faut l'utiliser ..... je vais te pondre le programme, laisse moi du temps

[js8bleu]

Cool

[DAUDET78]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub txtmontantcheque_Change()
    I% = txtmontantcheque.SelStart
    txtmontantcheque.Text = Format(txtmontantcheque, "### ### ###")
    txtmontantcheque.SelStart = I%
End Sub

[js8bleu]

Merci pour la rapidité et l'efficacité. Le code semble marcher. Je dis semble parce que je ne sais pas pourquoi mais lorsque je saisi 1 par exemple le curseur se repositionne à avant le 1. Sais-tu pourquoi s'il te plaît?

Merci d'avance.