VBA SendKey Comportement incompréhensible

Question

Dans le classeur joint, j'ai le code suivant : Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$C$15195" Then SendKeys "%{DOWN}" End If End Sub Si je sélectionne C15195, il s''affiche une liste déroulante de quelques valeurs de la colonne. Quelqu'un a-t-il une explication autre que "sendkeys, c'est chelou" ? Daniel...

Dan · Accepted Answer

Si vous avez des valeurs texte (puisque contenant des espaces entre les chiffres), vous les retrouvez dans la liste. Si vous trouvez 228 35 16 dans la liste, c'est parce que vous avez entré 228 35 16 en C9932 au lieu de 2283516 Faites l'essai vous verrez que la valeur de la cellule ne sera plus reprise dans votre liste Vous avez quoi dans vos listes de validation ...

Jurassic Pork · Accepted Answer

Sinon au lieu d'utiliser un Sendkeys on peut utiliser l'api Windows keybd_event : #If VBA7 Then Private Declare PtrSafe Sub keybd_event Lib "user32" ( _ ByVal bVk As Byte, _ ByVal bScan As Byte, _ ByVal dwFlags As Long, _ ByVal dwExtraInfo As LongPtr) #Else Private Declare Sub keybd_event Lib "user32" ( _ ByVal bVk As Byte, _ ByVal bScan As Byte, _ ByVal dwFlags As Long, _ ByVal dwExtraInfo As Long) #End If Private Const VK_MENU As Byte = &H12 Private Const VK_DOWN As Byte = &H28 Private Const KEYEVENTF_KEYUP As Long = &H2 Private Sub SendAltDown() keybd_event VK_MENU, 0, 0, 0 keybd_event VK_DOWN, 0, 0, 0 keybd_event VK_DOWN, 0, KEYEVENTF_KEYUP, 0 keybd_event VK_MENU, 0, KEYEVENTF_KEYUP, 0 End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$C$15195" Then 'SendKeys "%{DOWN}" SendAltDown End If End Sub Ami calmant, J.P...

Dan · Answer

Désolé mais je n'ai pas compris votre question ou plutôt le problème.....

Dan · Answer

Re Cela vous renvoie toutes les valeurs texte que vous avez introduites dû au signe % que vous avez mis devant l'instruction Down Si par exemple vous ajoutez dans la colonne "AAAA", en cliquant sur la cellule C15195, vous verrez que la liste reprend le AAAA. Pour corriger, le 228 35 16 dans votre fichier, allez dans la cellule C9932, supprimez la donnée 228 35 16. Ensuite réintroduisez-la mais sans les espaces Comme la cellule est au format "personnalisé" ("000".....), vous ne devriez plus avoir la donnée 228 35 16 dans la liste déroulante mais uniquement Corrigé et x Edit : Si vous enlevez le %, vous n'aurez plus la liste mais une fois sur la cellule C15195, mais le code fera passer automatiquement à la cellule suivante dès que vous cliquerez sur cette cellule. Si c'est ce que vous cherchez à faire, ... ?...

Jurassic Pork · Answer

Tu veux faire koi avec ton SendKeys "%{DOWN}" ? descendre dans la cellule en dessous ? un sendkeys pendant un selectionChange c'est "Chelou" ...

Dan · Answer

Re

Avec la macro que vous avez donnée ici cela ne concerne que la cellule C15195 et aucune autre sur la feuille du fichier posté
Mais bon si cela fonctionne comme vous voulez, tant mieux

Cordialement

Nain porte koi · Answer

Ben si, "sendkeys, c'est chelou" ! : ça désactive le verrouillage numérique. Patricktoulon avait donné une solution pour ça https://excel-downloads.com/threads/astuce-pour-application-sendkeys.20043893/ Et pour ce qui est de l'explication, c'est uniquement les données "textes" précédentes qui sont proposées dans cette liste...

Dan · Answer

@Daniel : J'avais remarqué aussi ce que Nain Porte Quoi mentionne dans son post. La "solution" de P. Toulon élimine ce souci et peut vous servir aussi dans votre code. La question est de savoir s'il ne faudrait pas utiliser l'instruction Application dans certains de nos codes au même titre que Thisworkbook devant les instructions sheets(.... Cordialement...

Jurassic Pork · Answer

Si c'est la partie en rouge qui pose problème tu remplaces :

#If VBA7 Then
    Private Declare PtrSafe Sub keybd_event Lib "user32" ( _
        ByVal bVk As Byte, _
        ByVal bScan As Byte, _
        ByVal dwFlags As Long, _
        ByVal dwExtraInfo As LongPtr)
#Else
    Private Declare Sub keybd_event Lib "user32" ( _
        ByVal bVk As Byte, _
        ByVal bScan As Byte, _
        ByVal dwFlags As Long, _
        ByVal dwExtraInfo As Long)

#End If

par :

    Private Declare PtrSafe Sub keybd_event Lib "user32" ( _
        ByVal bVk As Byte, _
        ByVal bScan As Byte, _
        ByVal dwFlags As Long, _
        ByVal dwExtraInfo As LongPtr)

mais normalement avec le code complet cela passe. Moi c'est OK en excel 2021 64 bits, j'ai aussi la partie en rouge. Le rouge est dans le else qui n'est pas pris en compte pour du VBA7

patrickT · Answer

On va l'oublier encore longtemps le wscript.shell par la passerelle createobject de l'environnement vba ? Private Sub Worksheet_SelectionChange(ByVal Target As Range) CreateObject("wscript.shell").SendKeys ("%{DOWN}") End Sub ne déactive pas le pavé et j'ajouterais que sendkeys(uneou plusieures touche) sans le préfixe "Application" est hérité du vbs vb6 qui est tout simplement un patch pour l'envirronnement vba il est donc lancé sans possibilité de return getstate en interne donc les message window s'empile sans ce désempiler puisque le return du state(l'operation c'est effectuée ou pas)n'existe tout simplment pas resultat c'est comme si on restait appuyé imaginez le nombre de message("appuie sur tel ou tel touche)la pile de message window recois selon la vitesse de reponse de votre clavier résultat engorgement reinitialisation au clavier mini donc byebye le pavé donc pour répondre a la question de Dan oui la version sendkeys de l'application c'est toujours mieux que rien cela dit et c'est vrai j'en ai fait l'expérience mon astuce fonctionne à 100% avec un clavier/pc bien réglé si votre clavier est un peu lent (pc portable par exemple) ou l'on voit des fois que l'on tape plus vite que cela écrit il sera judicieux de séparer le "%" du DOWN en deux sendkeys mais je préfère de loin le wscript.shell qui est un object du com de wscript.exe librairie scrun.dll me semble t il ,et donc son UP est recu en tant que message windows patrick...