Verouillage pavé numérique et macro

Jouxte

XLDnaute Occasionnel
Bonjour à toutes et tous,

J'utilise régulièrement une macro qui me liste et trie les items d'une colonne pour en sélectionner un.
Malheureusement cette macro me supprime le verrouillage numérique du clavier.

Y a-til possibilité de demander à la macro de revérrouiller le pavé numérique ?

Par avance merci pour vos réponses.

La macro excellente trouvée sur ce site.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If (Target.Column = 3 Or Target.Column = 6 Or Target.Column = 7) And Target.Count = 1 Then
If Target = "" Then SendKeys "%{down}"
'SendKeys "%{down}"
End If
End Sub
 

MJ13

XLDnaute Barbatruc
Bonjour à tous

J'ai ce code que j'utilise souvent (le sendkeys "a " est pour tester, tu peux le supprimer ensuite):

Sub Test_Sendkeys()
SendKeys "a~"
End Sub
Sub Réactive_Clavier_Numérique()
'voir aussi http://support.microsoft.com/kb/118468/fr pour DoEvents
'sendKeys "^{F1}"
SendKeys "a~"
With Application
'If .CommandBars.Item("Ribbon").Height > 81 Then
' Ruban = True
' .SendKeys "^{F1}" 'pour masquer le ruban sur la feuille impression
DoEvents
Application.SendKeys ("{NUMLOCK}"), True
Application.SendKeys ("{NUMLOCK}"), True
'End If
End With
End Sub
 

Jouxte

XLDnaute Occasionnel
Bonjour Papou-net, Kiki 29, Mj13 et tous les autres,

Merci pour vos retours.
Je n'ai malheureusement pas réussi à faire fonctionner vos propositions.
Je joins un tableau test pour savoir si le phénomène est identique chez vous.
 

Pièces jointes

  • testJC.xlsm
    19.5 KB · Affichages: 22

Jouxte

XLDnaute Occasionnel
Re,
Malheureusement ton code ne me donne pas le résultat escompté
Je viens d'essayer avec le code ci-dessous qui a l'air de fonctionner.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If (Target.Column = 3 Or Target.Column = 6 Or Target.Column = 7) And Target.Count = 1 Then
If Target = "" Then SendKeys "%{down}"
'SendKeys "%{down}"
SendKeys "%{capslock}"
End If
Application.SendKeys ("{NUMLOCK}"), True
End Sub

Merci encore à tous.
 

MJ13

XLDnaute Barbatruc
Re

Bon, après, c'est pas grave, l'important c'est de participer. Mais, mon code, en général fonctionne bien avec ce bug qui n'a jamais été corrigé. :)

Par contre hier, j'ai essayé avec caps lock et j'ai dû faire un code qui m'a inversé la touche majuscule. J'ai dû éteindre le PC pour revenir à la normale. :(
 

Discussions similaires

  • Résolu(e)
XL 2021 macro
Réponses
9
Affichages
428

Statistiques des forums

Discussions
311 720
Messages
2 081 915
Membres
101 837
dernier inscrit
Ugo