XL 2010 Un truc sympa pour les Combo

[Magic_Doctor]

Bonsoir,

J'avais trouvé cer artifice je ne sais plus où. Je l'ai adapté sans strictement rien comprendre avec les "KeyCode". Mais ce n'est pas grave, ça marche !

1 ComboBox avec 2 options.
On choisit la seconde. Un deuxième ComboBox apparaît avec sa liste déployée. C'est tout.

 

[patricktoulon]

re
j'ai même enlevé la condition pour que ça soit tout le temps et ça ne fonctionne pas

 

[Dudu2]

Bonjour à tous,

En effet on peut soit envoyer un CreateObject("wscript.shell").SendKeys "{F4}" soit, je le découvre avec @job75, déclencher la chose en asynchrone avec une Application.OnTime Now, Me.CodeName & ".Affiche".
Perso j'ai pris l'habitude d'envoyer le {F4} systématiquement pour faire un DropDown.

Les ComboBoxes ont des comportements particuliers:
- Sur le .DropDown quand on passe d'une ComboBox à une autre directement
- Lorsqu'on valorise la liste avec des valeurs numériques (il est préférable de toujours transformer en String)
(je crois que @Dranreb fait ça)
- Lorsqu'on .Clear la ComboBox avec une liste affichée, une liste "fantôme" reste présente.

 

[patricktoulon]

re
Bonjour @Dudu2
oui j'ai eu le soucis avec la liste fantôme moi aussi

 

[Dudu2]

@patricktoulon,
Ok ça me rassure .
Dans mon module de Saisie Assistée sur ComboBox j'avais noté:

ListePrésente = KeepCmb.ListCount > 0
If ListePrésente Then
    KeepCmb.Clear
               
    'Bug Excel ! La ComboBox laisse affichée une liste fantôme à faire disparaître !!!
    '4 solutions: envoyer {ENTER}, {ESCAPE}, {F10}{F10} ou un Clic Souris
    'La meilleure solution est le Clic Souris mais s'il existe une propriété ComboBox.CurX, ComboBox.CurY n'existe pas.
    'On ne peut donc pas positionner la souris dans la ComboBox pour y simuler un Clic Souris.
    'Pour éviter d'envoyer des touches plus susceptibles d'être interceptées par l'appelant via un ComboBox_KeyDown()
    'le plus neutre est d'envoyer 2 fois {F10}.
    CreateObject("wscript.shell").SendKeys "{F10}{F10}"
End If

 

[eriiic]

Bonjour à tous,

pour rappel, l'ajout du paramètre optionnel Wait (à True ou False) à SendKeys semble régler le pb du pavé numérique :

SendKeys "Bonjour", True

eric

 

[patricktoulon]

Bonjour @eriiic non pas chez moi W7 office 2013
et pour info ça n'est pas toute les touches qui déconnectent le pavé numérique

 

[eriiic]

Sur 2019 c'est bon pour moi (W7 aussi).
La ligne de code mise me faisait bien la bascule du pavé numérique sans le Wait

 

[Dudu2]

En fait c'est très variable.

Chez moi W7 et Excel 2016 (mais je crois que c'était pareil quand j'avais Office 2013), un SendKeys "Bonjour" éteint et rallume immédiatement le témoin de Num Lock.
Et si le témoin Num Lock est éteint avant, il reste éteint sans passer par le stade allumé.

Si je rajoute un Wait, SendKeys "Bonjour", True, cela éteint le témoin du Num Lock sans jamais le rallumer.

Par contre un Application.SendKeys "Bonjour" avec ou sans Wait, éteint toujours le témoin de Num Lock. Et comme ci-dessus, ne le rallume pas s'il est éteint au départ.

Par précaution, si on code pour autrui, il faut considérer que ces 2 versions de SendKeys ont un impact potentiel sur le Num Lock.

 

[patricktoulon]

re
un exemple simple et le plus courant (la touche snapshot )
tiens testez celle ci
wait ou pas wait ;ben on est chocolat

Sub test()
SendKeys "{prtsc}", True
End Sub

 

[Dudu2]

Exact !
Mais fais-la suivre de {ENTER} et tout change. Quel bazar !
Bon en fait j'y comprends plus rien, des fois ça change, d'autres fois pas. Y a rien de déterministe là-dedans.

 

[eriiic]

Effectivement, sur 2019 aussi.
Il serait temps qu'ils corrigent ce bug...

 

[Dudu2]

C'est pas demain la veille qu'ils corrigeront .
En fait il faut utiliser le CreateObject("wscript.shell").SendKeys sans se poser de questions.
Et si on veut un Wait, comme je l'ai expliqué dans ce post, il suffit de placer un Doevents juste après.

 

[eriiic]

C'est bien noté ;-)