Touche entrée en VB Excel
Fermé
Sly
-
8 oct. 2007 à 23:14
eriiic Messages postés 24600 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 21 octobre 2024 - 14 oct. 2007 à 15:58
eriiic Messages postés 24600 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 21 octobre 2024 - 14 oct. 2007 à 15:58
A voir également:
- Touche entrée en VB Excel
- Liste déroulante excel - Guide
- Touche rémanente - Guide
- Mise en forme conditionnelle excel - Guide
- Si et excel - Guide
- Touche insert - Guide
3 réponses
irem
Messages postés
164
Date d'inscription
mardi 22 mai 2007
Statut
Membre
Dernière intervention
9 octobre 2012
99
9 oct. 2007 à 09:32
9 oct. 2007 à 09:32
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.
eriiic
Messages postés
24600
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
21 octobre 2024
7 239
14 oct. 2007 à 15:58
14 oct. 2007 à 15:58
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