activer une macro par appui sur une touche du pavé numérique VBA

[René]

Bonjour,
Je souhaite récupérer une valeur tapée sur le pavé numérique, comme fait inkey$ en basic.
Merci
René

 

[jmps]

Bonjour René, le Forum,

Regarde du côté de Application.Onkey (J'ai découvert ça hier. Lol !).
Je n'ai pas trop le temps de te faire un exemple ce matin. Si tu n'as pas de réponse où que tu n'y arrive pas, je regarderai cet après-midi.

Bonne journée.

José

 

[@+Thierry]

Bonjour José, René, le Forum

Voici un exemple "Self Explanatory"...

Option Explicit

Sub Establish()'(Dans ThisWorkBook Open par Exemple)
With Application
.OnKey "{96}", "Message96"
.OnKey "{97}", "Message97"
.OnKey "{98}", "Message98"
.OnKey "{99}", "Message99"
End With
End Sub


Sub Message96()
MsgBox "Touche 0 Activée"
End Sub

Sub Message97()
MsgBox "Touche 1 Activée"
End Sub

Sub Message98()
MsgBox "Touche 2 Activée"
End Sub

Sub Message99()
MsgBox "Touche 3 Activée"
End Sub

Sub Restaure() '(Dans ThisWorkBook BeforeClose par Exemple)
Dim i As Byte
For i = 96 To 99
Application.OnKey "{" & i & "}"
Next
End Sub

(De 96 à 105 = de 0 à 9, 106 à 111 = les autres touche du pavé numérique)

Bonne Journée
@+Thierry

 

[René]

Bonjour,
Je tiens à vous remercier, car la procédure Establish fonctionne très bien. Elle me permet de récupérer les réponses à un jeu de calcul mental. On peut aussi la doubler d'une procédure contenant OnTime pour tenir compte de la rapidité de la réponse.

René