XL 2010 Alt F11

[Citaro]

Bonjour au forum

Avez vous une solution pour afficher un userform quand on fait un Alt F11.

Merci d'avance
Citaro

 

[Roland_M]

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

 

[Citaro]

Merci Roland,

Ton code fonctionne à merveille