Macro VBA Excel
Résolu
juju
-
juju -
juju -
Bonjour à tous,
j'ai développé une macro sur Excel et je souhaiterai qu'elle se déclenche en appuyant sur une touche du clavier mais cette macro ne marche pas :
je ne voie pas comment l'écrire car elle n'affiche même pas la message box.
comment je peux la modifier :
Par avance je vous en remercie
j'ai développé une macro sur Excel et je souhaiterai qu'elle se déclenche en appuyant sur une touche du clavier mais cette macro ne marche pas :
Private Sub Activesheet_KeyDown(KeyCode As Integer, Shift As Integer)
MsgBox "OK"
Application.OnKey "{F2}", "APPLI"
KeyCode = 0
End Sub
je ne voie pas comment l'écrire car elle n'affiche même pas la message box.
comment je peux la modifier :
Par avance je vous en remercie
A voir également:
- Macro VBA Excel
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
5 réponses
Mettre la macro dans ThisWorkbook, voir ceci
https://silkyroad.developpez.com/VBA/EvenementsClasseur/#LII-12
et cela
https://silkyroad.developpez.com/VBA/EvenementsClasseur/#LII-16
@+ Le Pivert
https://silkyroad.developpez.com/VBA/EvenementsClasseur/#LII-12
et cela
https://silkyroad.developpez.com/VBA/EvenementsClasseur/#LII-16
@+ Le Pivert
Bonjour,
merci de ta réponse.
Les exemples dans le lien corresponde un peu à se que je recherche mais le problème c'est que j'aimerais que ces macros fonctionnent tous le temps sans que l'on est besoin d'exécuter la macro. ce que je veux dire c'est que la macro ce lance à l'ouverture d'Excel automatiquement
merci de ta réponse.
Les exemples dans le lien corresponde un peu à se que je recherche mais le problème c'est que j'aimerais que ces macros fonctionnent tous le temps sans que l'on est besoin d'exécuter la macro. ce que je veux dire c'est que la macro ce lance à l'ouverture d'Excel automatiquement
en faisant comme ça, le code ne marche pas
il marche juste en l'exécutant manuellement
Sub Worksheet_load()
Application.OnKey "q", "test"
End Sub
Sub Test()
MsgBox "ca marche"
End Sub
il marche juste en l'exécutant manuellement
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question