XL 2010 Alt F11

Bonsoir, voir comme ceci, si problème revenir !?

exemple à adapter, ici dans le code c'est Userform1 et la macro à lancer c'est Essai !


dans ton module "Essai" à adapter !?

Sub Essai()
UserForm1.Show
End Sub


dans le thisworkbook le nom "Essai" à adapter !?

'active
Private Sub Workbook_Open()
Application.OnKey "%{F11}", "Essai"
End Sub

Private Sub Workbook_Activate()
Application.OnKey "%{F11}", "Essai"
End Sub

'désactive
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnKey "%{F11}"
End Sub

Private Sub Workbook_Deactivate()
Application.OnKey "%{F11}"
End Sub

Merci Roland,

Ton code fonctionne à merveille