XL 2019 pavi numeric

MOHAMED31 · 14 Octobre 2022

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 · 14 Octobre 2022

Bonjour @MOHAMED31

Je te propose cet essai :

Code:

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

Phil69970 · 14 Octobre 2022

Bonjour @MOHAMED31

Je te propose cet essai :

Code:

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 · 14 Octobre 2022

Bonjour

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

MOHAMED31 · 14 Octobre 2022

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 · 14 Octobre 2022

Rebonjour

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

XL 2019 pavi numeric

MOHAMED31

XLDnaute Nouveau

Phil69970

Phil69970

XLDnaute Barbatruc

chris

XLDnaute Barbatruc

MOHAMED31

XLDnaute Nouveau

MOHAMED31

XLDnaute Nouveau

Discussions similaires

XL 2019 pavi numeric

MOHAMED31

XLDnaute Nouveau

Phil69970

XLDnaute Barbatruc

chris

XLDnaute Barbatruc

MOHAMED31

XLDnaute Nouveau

MOHAMED31

XLDnaute Nouveau

Discussions similaires

Privacy & Transparency

Privacy & Transparency