[VBA] Lancer une macro TextBox1_KeyDown

Bonjour,

Shift est à 1 qd la touche était enfoncé lors de l'appui sur la touche
KeyCode et à 0 si elle ne l'etait pas.

Sinon tu fais comme suit :

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal
Shift As Integer)
MonTraitement
End Sub

Private sub MonTraitement(KeyCode As MSForms.ReturnInteger)
'Ce que tu avais dans _KeyDown
End sub

et quand tu veux simuler l'appui sur une touche tu fais :

Call MonTraitement(13)

Bonne journée.

John


"HD" <hd@anti.spam.fr> a écrit dans le message de
news:diikmn$1jq2$1@biggoron.nerim.net...

Bonjour,

Je voudrais par VBA lancer la macro TextBox1_KeyDown pour simuler l'entrée
d'une touche...

Les arguments de TextBox1_KeyDown sont KeyCode et Shift... Je connais
KeyCode mais Shift ? A quoi sert il ?

Merci d'avance pour votre aide
--
@+
HD