Verouillage pavé numérique et macro

Papou-net

XLDnaute Barbatruc

• 5 Décembre 2017

• #2

Bonjour jouxte,

Essaie ceci:

SendKeys "%{capslock}"

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

Cordialement.

 

Vote positif 0 Vote négatif

kiki29

XLDnaute Barbatruc

• 5 Décembre 2017

• #3

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

​

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 5 Décembre 2017

• #4

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

 

Vote positif 0 Vote négatif

Jouxte

XLDnaute Occasionnel

• 5 Décembre 2017

• #5

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

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 5 Décembre 2017

• #6

Re,

Voici le fichier avec le code.

 

Pièces jointes

• testJCV1.xlsm

  14.6 KB · Affichages: 39

Vote positif 0 Vote négatif

Jouxte

XLDnaute Occasionnel

• 5 Décembre 2017

• #7

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.

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 5 Décembre 2017

• #8

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

Cordialement

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 6 Décembre 2017

• #9

Re

Je ne vois pas trop le rapport avec Caps lock.

La prochaine fois explique ce que tu veux vraiment faire.

 

Vote positif 0 Vote négatif

Jouxte

XLDnaute Occasionnel

• 7 Décembre 2017

• #10

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.

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 7 Décembre 2017

• #11

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.

 

Vote positif 0 Vote négatif

Jouxte

XLDnaute Occasionnel

• 7 Décembre 2017

• #12

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

 

Vote positif 0 Vote négatif