XL 2019 pavi numeric

[MOHAMED31]

bonsoir
j essai d utiliser on key pour empêcher la saisie du clavier numérique mais ne fonctionne pas
pouvez svp m aider merci

VOILA LE CODE

Private Sub Workbook_activate()
Application.OnKey "{96}", "b"
End Sub

Sub b()
MsgBox "Pavé numérique 0"
End Sub

 

[Phil69970]

Bonjour @MOHAMED31

Je te propose cet essai :

Sub Worksheet_Change(ByVal Target As Range)
For Each cell In Target
    If IsNumeric(cell) Then Application.Undo
Next
End Sub

Merci de ton retour

@Phil69970

 

[chris]

Bonjour

C'est un non sens de désactiver la pavé numérique dans Excel

 

[MOHAMED31]

Merci pour l aide
j ai un autre souci
je dois empecher le pavi numerique sur la feile mais je doit la remplir par un tform
si j utilise ton code je suis bloqué en modification
merci

 

[MOHAMED31]

Rebonjour

merci j ai pu resoudre le pb en utilisant un variable public
merci pour l aide