XL 2016 VBA SendKeys - Que se passe-t-il sur le verrouillage numérique des PC et Mac ?

[Dudu2]

Bonjour,

En VBA, je connnais 3 façons de faire un SendKeys.
Celui qui semble le plus sûr est un SendKeys via un Shell, mais il a aussi l'inconvénient de provoquer parfois des interruptions de code.
Les 2 autres ont un impact sur le verrouillage numérique (touche en haut à gauche du clavier numérique).

Sur mon PC, je peux constater l'impact des 2 autres, mais j'aimerais savoir pour d'autres PC ou MAC.

Merci par avance pour vos retours (si vous avez un voyant Num Lock pour juger de l'effet).

 

[Dudu2]

Merci @Yeahou pour ton retour.
Cela confirme que pour les versions 2 & 3, il faut gérer le reset éventuel du NUMLOCK s'il est activé.
C'est ce que fait le dernier fichier posté.

 

[sylvanu]

Bonjour tout le monde,
Sur mon vieux PC HP Pavillon P6000, c'est plus rigolo.
Cas 1 : Aucun impact
Cas 2 et 3 : A chaque lancement SenKeys NUMLOCK change d'état, ON puis OFF.

 

[Bernard_XLD]

Seule la 2ème ne provoque pas d'interruption du code.

toutes, chez moi, provoquent une interruption, aucune ne fonctionne

 

[Bernard_XLD]

@Dudu2 , à tout hasard, si le but est de simuler une interruption utilisateur en interne excel, tu as pensé à Err.Raise 18 qui la génère ?
couplé avec Application.EnableCancelKey = xlErrorHandler , cela te permettra de le récupérer dans une routine de gestion d'erreur.

 

[Dudu2]

Merci pour le retour @sylvanu.
Ça montre la disparité des comportements.

@Yeahou, non je n'ai pas pensé à ça. J'ai juste vu passer Application.EnableCancelKey dans mes recherches Web en me disant que je devais m'y intéresser mais ton message m'indique qu'il faut que j'aille plus loin.

toutes, chez moi, provoquent une interruption, aucune ne fonctionne

Là je déprime

 

[mapomme]

Re @Dudu2

Ça montre la disparité des comportements.

Oui et c'est gênant si on distribue son appli VBA à d'autres.

 

[Bernard_XLD]

@Dudu2

non je n'ai pas pensé à ça. J'ai juste vu passer Application.EnableCancelKey dans mes recherches Web en me disant que je devais m'y intéresser mais ton message m'indique qu'il faut que j'aille plus loin.

Application.EnableCancelKey = xlDisabled désactivera les possibilités d'interruption utilisateur par la touche escape, cela évite d'avoir à les gérer

 

[Dudu2]

@Yeahou, bon ben t'as trouvé la solution de mon problème d'envoi d'Escape qui n'a rien à voir avec la méthode SendKeys utilisée pour l'envoyer.
Merci bcp

Le "bonne méthode" étant donc (pour moi en tous cas)

Sub SendKeys1(Keys As String)
    Dim CancelKeyStatusAtCallTime As Integer
 
    CancelKeyStatusAtCallTime = Application.EnableCancelKey
    If InStr(UCase(Keys), "{ESC") > 0 Then Application.EnableCancelKey = xlDisabled
 
    CreateObject("wscript.shell").SendKeys (Keys)
 
    If Application.EnableCancelKey <> CancelKeyStatusAtCallTime Then Application.EnableCancelKey = CancelKeyStatusAtCallTime
End Sub

 

[Bernard_XLD]

Le "bonne méthode" étant donc (pour moi en tous cas)

Ok chez moi aussi

 

[Dudu2]

Le "bonne méthode" ne me venant pas toujours du 1er coup j'ai fait de petits ajustements .

 

[Bernard_XLD]

Le "bonne méthode" ne me venant pas toujours du 1er coup j'ai fait de petits ajustements .

lesquels ?

 

[Dudu2]

Dans le Post #38 juste la manière de gérer le Application.EnableCancelKey pour ne pas altérer son état originel.

 

[Bernard_XLD]

Dans le Post #38 juste la manière de gérer le Application.EnableCancelKey.

ah, ok, tu mémorises l'état !

 

[MJ13]

Re

Pour moi, le clavier numérique doit rester dans le même état qu'au départ de la macro. et c'est un problème très ancien sur Excel.

Vous pouvez utiliser tous ces codes pour voir dans quel cas, le clavier numérique ne se désactive pas. Après, il faut l'adapter à votre code et au nombre de Sendkeys envoyés.

Sub A()
SendKeys ("a~")
Réactive_Clavier_Num
End Sub
Sub Réactive_Clavier_Num()
Application.SendKeys ("{Numlock}")
End Sub
Sub AA()
SendKeys ("AA~")
SendKeys ("AA~")
Réactive_Clavier_Numérique
End Sub
Sub AB()
SendKeys ("AB~")
Réactive_Clavier_Numérique
End Sub
Sub ABC()
SendKeys ("A~")
SendKeys ("B~")
SendKeys ("C~")
Réactive_Clavier_Numérique
End Sub
Sub Réactive_Clavier_Numérique()
With Application
          DoEvents
          Application.SendKeys ("{NUMLOCK}"), True
          Application.SendKeys ("{NUMLOCK}"), True
    End With
End Sub
Sub Test3()
    For i = 1 To 3
        Application.SendKeys "(%{1068})", True 'avec"%"=fenetre active ;  sans le "%" =plein ecran
        Application.SendKeys ""
        DoEvents
        ActiveSheet.Paste
    Next
End Sub
Sub Test4()
    For i = 1 To 4
        Application.SendKeys "(%{1068})", True 'avec"%"=fenetre active ;  sans le "%" =plein ecran
        Application.SendKeys ""
        DoEvents
        ActiveSheet.Paste
    Next
End Sub

 

[Dudu2]

@MJ13,

Il y a effectivement des comportements très différents.
Chez @sylvanu par exemple, ça alterne ON & OFF.
Chez moi si c'est ON ça passe à OFF, si c'est OFF ça reste à OFF.

Dans le fichier du Post #38, il y a 3 méthodes qui marchent dans tous les cas.
- La 1ère ne nécessite rien de spécial et n'impacte JAMAIS le clavier numérique.
- Les 2 autres impactent le clavier numérique de manières différentes selon la configuration du PC mais gèrent l'état réel du NUMLOCK après le SendKeys pour le rétablir si besoin.
Évidemment, le plus sûr et simple c'est d'utiliser la 1ère dont @job75 serait le découvreur.