Discussion :

[mouloudéen]

Bonjour,

J’ai un champ de texte nommé 'Champ1',

Je veux exécuter une procédure dés que l'utilisateur appuie sur la touche 'Entrée' dans ce champ de texte.

j'ai pensé à utiliser l'évenement 'KeyPress' (Procédure 'Champ1'_KeyPress) mais je n'arrive pas à trouver le code ascii de cette touche.

Est ce que quelq'un peut m'aider ?


Merci d'avance pour votre aide

[Boolean69]

13

[Faw]

Salut,
dans l'absolu tu places

Code :

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

msgbox KeyAscii

dans l'événement Keypress et tu as le code de la touche pressée.
Il y a aussi des tableaux de codes ascii sur le web.

[random]

d'une façon générale

Code :

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

1
2
3
4
 
Private Sub mazonedetexte_KeyDown(KeyCode As Integer, Shift As Integer)
MsgBox (KeyCode & " *" & Shift & "*")
End Sub

[mouloudéen]

Salut,
dans l'absolu tu places

Code :

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

msgbox KeyAscii

dans l'événement Keypress et tu as le code de la touche pressée.
Il y a aussi des tableaux de codes ascii sur le web.

Tous d'abord je vous remercie tous les deux.

Faw, votre astuce marche avec la plus part des touches mais pas avec la touche entrée.

Boolean69, j'ai essayé le code suivant :

Code :

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

1
2
3
  If KeyAscii = 13 Then
    Ma_Fonction()
  End If

mais le programme n'exécute pas ma fonction

[Boolean69]

Code :

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

1
2
3
4
5
6
 
Private Sub Champ1_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = 13 then
    Ma_Fonction()
  End If
End Sub

A priori, cela est bon

[mouloudéen]

J'ai essayé le code de Mr Boolean69 et le code de Mr random, ca n'a pas marché avec les deux codes

[Faw]

J'ai essayé le code de Mr Boolean69 et le code de Mr random, ca n'a pas marché avec les deux codes

si, keydown retourne un 13 comme keycode de {ENTER}.
keyascii retourne les valeurs de touches ANSI.
Faut choisir en fonction de ce que tu veux faire. Ici tu as besoin de Keycode donc de l'événement OnKeydown.

[mouloudéen]

si, keydown retourne un 13 comme keycode de {ENTER}.
keyascii retourne les valeurs de touches ANSI.
Faut choisir en fonction de ce que tu veux faire. Ici tu as besoin de Keycode donc de l'événement OnKeydown.

J'ai mis le code ci-dessous dans l'évenement OnKeyDown (Sur touche appuyée) , mais lorsque je clique sur une touche du clavier j'aurrai le message d'erreur suivant :

If KeyCode = 13 then
Ma_Fonction()
End If

[Trini]

Bonjour,

Dis donc on dirait que c'est plutôt sur ma_fonction() qu'il plante ! je me plante ?

Salut,

[Boolean69]

Je confirme ^^
"La déclaration de la procédure ne correspond pas à la description de l'évènement ou de la procédure du même nom"

Regarde à quoi correspond réellement Ma_Fonction() (qui été un exemple...)

[mouloudéen]

Voici le code de Ma_Fonction C'est un exemple (c'est plutot une procédure)

Public Sub Ma_Fonction()
Me.Texte2.Value = "Ca Marche"
End Sub

[Trini]

Eh bien retire juste les parenthèses comme ceci :

Code :

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

1
2
3
4
 
If KeyCode = 13 then
  Ma_Fonction
End If

Salut,

[mouloudéen]

Eh bien retire juste les parenthèses comme ceci :

Code :

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

1
2
3
4
 
If KeyCode = 13 then
  Ma_Fonction
End If

Salut,

J'ai toujours le même problème.

[Trini]

C'est la même erreur celle citée que plus haut ?

[mouloudéen]

C'est la même erreur celle citée que plus haut ?

Oui