J jacks39 XLDnaute Junior 16 Avril 2015 #1 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
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 XLDnaute Barbatruc 16 Avril 2015 #2 Re : Evenement touche clavier Bonjour jacks A tester: Code: if textbox?="A" then textbox?="AAAAA" Vote positif 0 Vote négatif
Pierrot93 XLDnaute Barbatruc 16 Avril 2015 #3 Re : Evenement touche clavier Bonjour, bonjour PierreJean une autre approche : Code: Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If KeyAscii = 65 Then TextBox1 = TextBox1 & String(3, "A") End Sub bonne journée @+ Vote positif 0 Vote négatif
Re : Evenement touche clavier Bonjour, bonjour PierreJean une autre approche : Code: Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If KeyAscii = 65 Then TextBox1 = TextBox1 & String(3, "A") End Sub bonne journée @+
J jacks39 XLDnaute Junior 16 Avril 2015 #4 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 Vote positif 0 Vote négatif
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 XLDnaute Barbatruc 16 Avril 2015 #5 Re : Evenement touche clavier Re, je dois être transparent.... Code: Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) TextBox1 = TextBox1 & String(3, Chr(KeyAscii)) End Sub bon après midi @+ Vote positif 0 Vote négatif
Re : Evenement touche clavier Re, je dois être transparent.... Code: Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) TextBox1 = TextBox1 & String(3, Chr(KeyAscii)) End Sub bon après midi @+