Evenement touche clavier

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

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

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