Evenement touche clavier

[jacks39]

Bonjour à tous,

En tapant sur une lettre au clavier (par exemple "A") au niveau d'un textbox, j'aimerais savoir si il est possible de faire

afficher plusieurs fois la lettre "A" dans le texbox en appuyant une seule fois sur la touche A.

Avec le nombre de caractère prédéfini au préalable dans le code.

Quelqu'un aurais une idée svp ?

Jacks39

 

[pierrejean]

Re : Evenement touche clavier

Bonjour jacks

A tester:

 if textbox?="A" then textbox?="AAAAA"

 

[Pierrot93]

Re : Evenement touche clavier

Bonjour,
bonjour PierreJean

une autre approche :

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 65 Then TextBox1 = TextBox1 & String(3, "A")
End Sub

bonne journée
@+

 

[jacks39]

Re : Evenement touche clavier

bonjour PierreJean,

Dois je décliner ce code pour toutes les lettres de l'alphabet ou y'a t'il plus simple ?

Jacks39

 

[Pierrot93]

Re : Evenement touche clavier

Re,

je dois être transparent....

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
TextBox1 = TextBox1 & String(3, Chr(KeyAscii))
End Sub

bon après midi
@+