Bonjour à toutes et tous,

J'ai écris un petit test:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Option Explicit
Public rep As Variant
 
Private Sub OB_Moins_Click()
    rep = MsgBox("Touche - appuyée", vbInformation)
End Sub
 
Private Sub OB_Plus_Click()
    rep = MsgBox("Touche + appuyée", vbInformation)
End Sub
 
Private Sub OB_Quitter_Click()
    UF_Test.Hide
End Sub
 
Private Sub UserForm_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Select Case LCase(KeyAscii)
        Case "-":
            OB_Moins.Value = True
        Case "+":
            OB_Plus.Value = True
        Case "q":
            OB_Quitter.Value = True
    End Select
End Sub
Les tabstop des boutons sont tous à faux, je le précise dès maintenant, les clicks de souris fonctionnent mais les raccourcis claviers associés sont eux inopérant?!
La userform UF_Test ne porte qu'une frame FR_Action qui inclue 3 boutons option OB_Moins, Ob_Plus et OB_Quitter! Les accélérateur sont bien sur + pour OB_Plus, - pour OB_Moins et q pour Ob_Quitter.

Si quelqu'un à une idée.
D'avance merci.