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
 

Papou-net

XLDnaute Barbatruc
Bonjour jouxte,

Essaie ceci:

SendKeys "%{capslock}"

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

Cordialement.
 

kiki29

XLDnaute Accro
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

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.
 

Fichiers joints

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

Je ne vois pas trop le rapport avec Caps lock. :(

La prochaine fois explique ce que tu veux vraiment faire.
 

Jouxte

XLDnaute Occasionnel
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

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. :(
 

Jouxte

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

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas