Touche entrée en VB Excel
Sly
-
eriiic Messages postés 24581 Date d'inscription Statut Contributeur Dernière intervention -
eriiic Messages postés 24581 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
je souhaite exécuter une macro après avoir appuyer sur la touche "Entrée" dans une feuille Excel.
Quelqu'un pourrait me décrire en détail les étapes à réaliser?
Merci
je souhaite exécuter une macro après avoir appuyer sur la touche "Entrée" dans une feuille Excel.
Quelqu'un pourrait me décrire en détail les étapes à réaliser?
Merci
Configuration: Windows XP Internet Explorer 6.0
A voir également:
- Touche entrée en VB Excel
- Touche rémanente - Guide
- Liste déroulante excel - Guide
- Mise en forme conditionnelle excel - Guide
- Word et excel gratuit - Guide
- Si ou excel - Guide
3 réponses
Simple, tu initialises le processus de detection de la touche voulue (ici "a") et y affecte une macro par
Public Sub MyMacro()
MsgBox "yes"
End Sub
Public Sub Intro()
ThisWorkbook.Application.OnKey "a", "ThisWorkbook.MyMacro"
End Sub
Pour desactiver, il suffit ensuite d'écrire
ThisWorkbook.Application.OnKey "a"
Irem
Public Sub MyMacro()
MsgBox "yes"
End Sub
Public Sub Intro()
ThisWorkbook.Application.OnKey "a", "ThisWorkbook.MyMacro"
End Sub
Pour desactiver, il suffit ensuite d'écrire
ThisWorkbook.Application.OnKey "a"
Irem
Salut,
j'ai déjà essayé ce code mais toujours pareil.
Peut être que je code au mauvais endroit!
Voici ce que j'écris dans un module du projet:
Private Declare Function SetCurrentDirectoryA Lib _
"kernel32" (ByVal lppathname As String) As Long
Public Sub Affectation( )
Application.OnKey "{ENTER}"
EntrerValeur
End Sub
Sub EntrerValeur( )
c'est la macro que j'utilise pour rentrer mes données
Je ne sais plus que faire.
Merci pour votre aide.
j'ai déjà essayé ce code mais toujours pareil.
Peut être que je code au mauvais endroit!
Voici ce que j'écris dans un module du projet:
Private Declare Function SetCurrentDirectoryA Lib _
"kernel32" (ByVal lppathname As String) As Long
Public Sub Affectation( )
Application.OnKey "{ENTER}"
EntrerValeur
End Sub
Sub EntrerValeur( )
c'est la macro que j'utilise pour rentrer mes données
Je ne sais plus que faire.
Merci pour votre aide.
Bonjour,
il faut que tu mettes ton code dans l'evenement 'change' de ta feuille
-Clic-droit sur le nom de l'onglet de ta feuille
-'visualiser le code'
-tu as 2 listes déroulantes en haut. Tu choisis 'worksheet' et 'change'. Ne réagit que si saisie manuelle dans une cellule (pas suite à un calcul) et la variable Target te donne les references de la cellule ayant changé.
eric
il faut que tu mettes ton code dans l'evenement 'change' de ta feuille
-Clic-droit sur le nom de l'onglet de ta feuille
-'visualiser le code'
-tu as 2 listes déroulantes en haut. Tu choisis 'worksheet' et 'change'. Ne réagit que si saisie manuelle dans une cellule (pas suite à un calcul) et la variable Target te donne les references de la cellule ayant changé.
eric
