Récupérer code touche appuyée
seylione Messages postés 8 Date d'inscription Statut Membre Dernière intervention -
Yoda - 10 avril 2013 à 16:59
Yoda - 10 avril 2013 à 16:59
A voir également:
- Récupérer code touche appuyée
- Code ascii - Guide
- Recuperer message whatsapp supprimé - Guide
- Touche remanente windows - Guide
- Code puk bloqué - Guide
- Code activation windows 10 - Guide
2 réponses
Bonjour,
On peut associer une macro à un raccourci clavier.
Pour rappel, un raccourci clavier est l'appui simultané de la touche Ctrl et d'une lettre. Par exemple:
Ctrl+A pour precedent
Ctrl+S pour suivant
Ctrl+Q pour fini
Pour cela aller dans Outils/Macro/Nouvelle macro et definir le raccourci clavier
Arreter tout de suite l'enregistrement de la macro ou en une commande, aller dans l'éditeur VB et modifier le code de la macro.
Revenir dans une feuille excel et appuyer sur le raccourci, normalement la macro doit s'executer.
A+.
On peut associer une macro à un raccourci clavier.
Pour rappel, un raccourci clavier est l'appui simultané de la touche Ctrl et d'une lettre. Par exemple:
Ctrl+A pour precedent
Ctrl+S pour suivant
Ctrl+Q pour fini
Pour cela aller dans Outils/Macro/Nouvelle macro et definir le raccourci clavier
Arreter tout de suite l'enregistrement de la macro ou en une commande, aller dans l'éditeur VB et modifier le code de la macro.
Revenir dans une feuille excel et appuyer sur le raccourci, normalement la macro doit s'executer.
A+.
Bonsoir Yoda,
Mais là je suis dans l'exécution du script, et à un moment donné, je voudrais saisir juste une touche pour orienter la suite des opérations.
Pour l'instant j'ai au sein d'une boucle do... loop until PL=0:
...
MSG = "+ pour jour suivant, - pour précédent, _ pour terminer"
QQ = InputBox(MSG)
If QQ = "+" Then
JN = JN + 1 ' JN: date à étudier
ElseIf QQ = "-" Then
JN = JN - 1
Else:
QQ = ""
PL = 0 ' PL: variable pour sortir d'on Do...Loop
End If
Un peu lourd. Je cherche plutôt
Récupérer TT = valeur de la touche appuyée (par ex. <, >, _)
If TT = code pour ">" Then
JN=JN+1
ElseIf TT= code pour "<" Then
JN=JN-1
Else
PL=0
EndIf
Voilà
Merci pour ces réponses
Système: XPSP3, FFox, EXCEL 2000
Mais là je suis dans l'exécution du script, et à un moment donné, je voudrais saisir juste une touche pour orienter la suite des opérations.
Pour l'instant j'ai au sein d'une boucle do... loop until PL=0:
...
MSG = "+ pour jour suivant, - pour précédent, _ pour terminer"
QQ = InputBox(MSG)
If QQ = "+" Then
JN = JN + 1 ' JN: date à étudier
ElseIf QQ = "-" Then
JN = JN - 1
Else:
QQ = ""
PL = 0 ' PL: variable pour sortir d'on Do...Loop
End If
Un peu lourd. Je cherche plutôt
Récupérer TT = valeur de la touche appuyée (par ex. <, >, _)
If TT = code pour ">" Then
JN=JN+1
ElseIf TT= code pour "<" Then
JN=JN-1
Else
PL=0
EndIf
Voilà
Merci pour ces réponses
Système: XPSP3, FFox, EXCEL 2000
Si le script est executé avec un Form, on peut utiliser l'evenement KeyPress
Pacer le pointeur sur l'USF et appuyer sur une touche, le message affiche de code asscii de la touche: pour le "+" c'est 43
ensuite on analyse le code retourné dans un Select Case ... End Select
Private Sub Form_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) MsgBox KeyAscii End Sub
Pacer le pointeur sur l'USF et appuyer sur une touche, le message affiche de code asscii de la touche: pour le "+" c'est 43
ensuite on analyse le code retourné dans un Select Case ... End Select
Private Sub Form_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 43 '+
'Instructions
Case 60 '<
'Instructions
Case 62 '>
'Instructions
End Select
End Sub