1. Ce site utilise des "témoins de connexion" (cookies) conformes aux textes de l'Union Européenne. Continuer à naviguer sur nos pages vaut acceptation de notre règlement en la matière. En savoir plus.

Verouillage pavé numérique et macro

Discussion dans 'Forum Excel' démarrée par Jouxte, 4 Décembre 2017.

  1. Jouxte

    Jouxte XLDnaute Occasionnel

    Inscrit depuis le :
    6 Juin 2005
    Messages :
    217
    "J'aime" reçus :
    0
    Habite à:
    Colombes
    Utilise:
    Excel 2010 (PC)
    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
     
  2. Papou-net

    Papou-net XLDnaute Barbatruc

    Inscrit depuis le :
    8 Mai 2007
    Messages :
    4854
    "J'aime" reçus :
    295
    Utilise:
    Excel 2010 (PC)
    Bonjour jouxte,

    Essaie ceci:

    SendKeys "%{capslock}"

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

    Cordialement.
     
  3. kiki29

    kiki29 XLDnaute Accro

    Inscrit depuis le :
    15 Mai 2006
    Messages :
    1888
    "J'aime" reçus :
    54
    Sexe :
    Masculin
    Habite à:
    Saint-Thois
    Utilise:
    Excel 2003 (PC)
    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

     
  4. MJ13

    MJ13 XLDnaute Barbatruc

    Inscrit depuis le :
    23 Mars 2005
    Messages :
    8482
    "J'aime" reçus :
    501
    Utilise:
    Excel 2016 (PC)
    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
     
  5. Jouxte

    Jouxte XLDnaute Occasionnel

    Inscrit depuis le :
    6 Juin 2005
    Messages :
    217
    "J'aime" reçus :
    0
    Habite à:
    Colombes
    Utilise:
    Excel 2010 (PC)
    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:

  6. MJ13

    MJ13 XLDnaute Barbatruc

    Inscrit depuis le :
    23 Mars 2005
    Messages :
    8482
    "J'aime" reçus :
    501
    Utilise:
    Excel 2016 (PC)
    Re,

    Voici le fichier avec le code.
     

    Pièces jointes:

  7. Jouxte

    Jouxte XLDnaute Occasionnel

    Inscrit depuis le :
    6 Juin 2005
    Messages :
    217
    "J'aime" reçus :
    0
    Habite à:
    Colombes
    Utilise:
    Excel 2010 (PC)
    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.
     
  8. Papou-net

    Papou-net XLDnaute Barbatruc

    Inscrit depuis le :
    8 Mai 2007
    Messages :
    4854
    "J'aime" reçus :
    295
    Utilise:
    Excel 2010 (PC)
    Oups, j'ai confondu verrouillage numérique et verrouille majuscules (honte à moi).

    Cordialement
     
  9. MJ13

    MJ13 XLDnaute Barbatruc

    Inscrit depuis le :
    23 Mars 2005
    Messages :
    8482
    "J'aime" reçus :
    501
    Utilise:
    Excel 2016 (PC)
    Re

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

    La prochaine fois explique ce que tu veux vraiment faire.
     
  10. Jouxte

    Jouxte XLDnaute Occasionnel

    Inscrit depuis le :
    6 Juin 2005
    Messages :
    217
    "J'aime" reçus :
    0
    Habite à:
    Colombes
    Utilise:
    Excel 2010 (PC)
    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.
     
  11. MJ13

    MJ13 XLDnaute Barbatruc

    Inscrit depuis le :
    23 Mars 2005
    Messages :
    8482
    "J'aime" reçus :
    501
    Utilise:
    Excel 2016 (PC)
    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. :(
     
  12. Jouxte

    Jouxte XLDnaute Occasionnel

    Inscrit depuis le :
    6 Juin 2005
    Messages :
    217
    "J'aime" reçus :
    0
    Habite à:
    Colombes
    Utilise:
    Excel 2010 (PC)
    Re,
    Effectivement aujourd'hui ton code fonctionne parfaitement.
    Surement du à la réouverture d'Excel ce matin.
    Merci pour ton aide.
     

Partager cette page