Une parade à cela, envoyer à Excel NUMLOCKInconvénient bien connu sur les versions Excel récentes : l'envoi de touches désactive/réactive le pavé numérique...
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.SendKeys "/L{ESC 2}"
Application.SendKeys "{NUMLOCK}"
End Sub
Merci pour ton complément mais chez moi ça ne va pas.Une parade à cela, envoyer à Excel NUMLOCK
Bonjour Bruno
Merci pour ton complément mais chez moi ça ne va pas.
A+