Déclenchement code sur touche de fonction

**SeaWolf601** · 19/08/2006, 12h42

Hello,

alors voila, j'ai un code sous un formulaire qui est déclenché par un clic sur un bouton ou un double clik sur une zone de texte.

J'aimerai que le déclenchement de ce code soit actionné par la pression d'une touche de fonction : F10 (par exemple).

je ne veux pas passer par la macro "AUTOKEYS" vu que sur d'autre formulaire la même touche pourras servir à un autre code.

**ft035580** · 19/08/2006, 13h03

Salut,

Essaie:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
        Case F10
=>Déclenchement de ton code        
End Select
End Sub

Pense à mettre "Aperçu des touches" à oui

**zEndymion** · 19/08/2006, 13h05

Bonjour,

Peut-être mettre ton code sur l'evenement : "Sur touche relâchée" de ton formulaire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
    If KeyCode = 121 Then MsgBox "Press F10"
End Sub

@+

**SeaWolf601** · 19/08/2006, 13h38

ça à pas l'air de marcher.

**Maxence HUBICHE** · 19/08/2006, 13h39

une propriété du formulaire.

**SeaWolf601** · 19/08/2006, 14h00

voila donc mon code qui sert a de la saisit automatique pour eviter de devoir retaper l'enregistrament précédent.

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
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
 
Select Case KeyCode
Case f10
 
Me.PRODUIT.Value = Me.PRODUIT2.Value
Me.REFPRODUIT.Value = Me.REFPRODUIT2.Value
Me.PRIX.Value = Me.PRIX2.Value
Me.DATE.Value = Me.DATE2.Value
Me.NOM.Value = Me.NOM2.Value
 
(Etc... y a une vingtaine de zone de texte)
 
End Select
 
End Sub