Discussion :

[fifo78370]

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.

[Quentin77170]

Salut à toi,

Lors de l'utilisation de tes accélérateurs, tu appuies bien sur ALT en même temps ?

[fifo78370]

Bonjour Quentin,

Justement non! Mais y a-t-il une possibilité de réaction au seul appuie des touches prévues?
De plus l'appuie sur ALT en même temps ne change rien pour la touche + !??...
Les touches du pavé numérique restent inopérantes!

[fifo78370]

En fait c'est TRES vicieux! Lors de la "construction" du UserForm comme indiqué http://www.netalya.com/fr/vb-2.asp
IL FAUT IMPERATIVEMENT POSER LA FRAME AVANT LES BOUTONS et ce SANS LES COPIER/COLLER on ne le dira jamais assez!
Voilou, ça marche avec ALT + accelerator même si le distinguo "+" pavé num. et "+/=" clavier n'est pas résolu.

Merci Quentin pour ta participation.

[Docmarti]

Bonjour

Mets le TabStop de chaque contrôle à Faux.

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
26
 
 
Private Sub UserForm_Initialize()
 
Dim cCont As Control
 
    For Each cCont In Me.Controls
 
        cCont.TabStop = False
 
    Next cCont
 
End Sub
 
Private Sub UserForm_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
 
    Select Case Chr(KeyAscii)
        Case "-":
            OB_Moins.Value = True
        Case "+":
            OB_Plus.Value = True
        Case "q"
            OB_Quitter.Value = True
    End Select
 
End Sub