XL 2010 Un truc sympa pour les Combo

patricktoulon

XLDnaute Barbatruc

• 5 Septembre 2021

• #16

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

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 5 Septembre 2021

• #17

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.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 5 Septembre 2021

• #18

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

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 5 Septembre 2021

• #19

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

VB:

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

 

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 5 Septembre 2021

• #20

Bonjour à tous,

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

VB:

SendKeys "Bonjour", True

eric

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 5 Septembre 2021

• #21

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

 

Dernière édition: 5 Septembre 2021

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 5 Septembre 2021

• #22

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

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 5 Septembre 2021

• #23

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.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 5 Septembre 2021

• #24

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

VB:

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

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 5 Septembre 2021

• #25

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.

 

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 5 Septembre 2021

• #26

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

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 5 Septembre 2021

• #27

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.

 

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 5 Septembre 2021

• #28

C'est bien noté ;-)

 

Vote positif 0 Vote négatif