Verouillage pavé numérique et macro

[Jouxte]

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

 

[Papou-net]

Bonjour jouxte,

Essaie ceci:

SendKeys "%{capslock}"

pour rétablir le verrouillage à l'endroit approprié de la macro.

Cordialement.

 

[kiki29]

Salut, voir avec qqch du genre pour ton pb de déverrouillage du pavé num

Set Wsh = CreateObject("WScript.Shell")
With Wsh
.SendKeys "....", True
....
End With
Set Wsh = Nothing

​

 

[MJ13]

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]

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.

 

[MJ13]

Re,

Voici le fichier avec le code.

 

[Jouxte]

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.

 

[Papou-net]

Oups, j'ai confondu verrouillage numérique et verrouille majuscules (honte à moi).

Cordialement

 

[MJ13]

Re

Je ne vois pas trop le rapport avec Caps lock. 🙁

La prochaine fois explique ce que tu veux vraiment faire.

 

[Jouxte]

Bonjour
Merci pour vos réponses. En effet pas de rapport avec Capslock. Papou-net s'est trompé, c'est tout et ce n'est pas bien grave.
Merci encore à tous.

 

[MJ13]

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. 🙁

 

[Jouxte]

Re,
Effectivement aujourd'hui ton code fonctionne parfaitement.
Surement du à la réouverture d'Excel ce matin.
Merci pour ton aide.