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.

 

[fanch55]

Salut, c'est amusant ....
Mais le sendkeys désactive le VerrNum ,

XL 2019 - Perte du NumLock

Bonsoir à Tous, Cela fait des années que je recherche à résoudre la perte du "NumLock" ou "VerrNum" sur le Clavier. Quand je clique sur une cellule qui a une Validation de Données type Liste, j'envoie un SendKeys "%{down}%", True sans attendre que l'utilisateur clique sur la flèche de...

www.excel-downloads.com

 

[Usine à gaz]

Bonjour Magic_Doctor, fanch55, le Forum,

et comme ça ? (fichier joint)

de Job75
CreateObject("wscript.shell").SendKeys "^(F4)"

Bon WE,
lionel 🙂

 

[patricktoulon]

Bonjour @Magic_Doctor
oublie le sendkeys VB et le application.sendkeys

passe plutôt par le wscript.shell ça t"évitera de perdre le pavé numérique( et encore!!! ça n'est plus garanti!!!)

Private Sub ComboPPB1_Change()
     CreateObject("wscript.shell").SendKeys "^(F4)"
End Sub

ou!!!!!

Private Sub ComboPPB1_Change()
 CreateObject("wscript.shell").SendKeys "^0"
End Sub

 

[Dudu2]

Bonjour,
Ah les SendKeys !
@fanch55 a raison d'indiquer son sujet dans lequel ce post explique tout. Enfin, je suppose 😎.

 

[patricktoulon]

Bonjour @Dudu2

🤣 🤣

 

[Dudu2]

Bonjour @patricktoulon, comment va ?
On peut même envoyer des SendKeys à une autre application qu'on aura préalablement activée.
Je viens de faire ça pour un utilisateur: scan de codes barre qui vont à la fois dans Excel et dans une autre application.
Sans compter que j'ai aussi dû générer des codes barre (code 128 et EAN13) ce qu'il m'a fallu apprendre à faire. Je suis épuisé

 

[patricktoulon]

ah oui quand même
la joyeuseté de travailler sur X app que du bonheur
intéresse toi a UIAUTOMATIONCLIENT

 

[Dudu2]

J'ai parcouru rapidement le début du Programmer's Guide et j'ai pas compris grand chose !
Faut se le faire en C ?

 

[patricktoulon]

re
non accessible en vba

 

[job75]

Bonjour à tous,

Ici il vaut mieux se passer de SendKeys et utiliser Application.OnTime :

Private Sub ComboPPA1_Change()
    If ComboPPA1.ListIndex = 1 Then
        Application.OnTime 1, Me.CodeName & ".Affiche" 'lancement différé
    Else
        ComboPPB1.Visible = False
    End If
End Sub

Sub Affiche()
Dim liste
    liste = Array("Extraits végétaux", "Extraits organiques", "Huiles", "Acides", "Surfactants", "Excipients secrets", "Divers", "Inclassés")
    With ComboPPB1
        .List = liste
        .Visible = True
        .ListIndex = 0
        .Activate
        .DropDown 'déroule la liste
    End With
End Sub

A+

 

[patricktoulon]

Bonjour @job75
chez moi ça ne fonctionne pas le dropdown ne ré effectue plus au change de la combo verte

 

[Usine à gaz]

Bonjour à toutes et à tous,
Je vous souhaite un beau dimanche 🙂

@job75 : Chez moi ça fonctionne,
lionel 🙂

 

[Usine à gaz]

Re,
Je signale au passage que :
CreateObject("wscript.shell").SendKeys "^(F4)"
de Job75
Fonctionne très bien sans affecter le pavé numérique,
lionel 🙂

 

[job75]

chez moi ça ne fonctionne pas le dropdown ne ré effectue plus au change de la combo verte

Pourtant cette macro fonctionne bien chez moi :

Private Sub ComboPPB1_Change()
    If ComboPPB1.ListIndex = -1 Then ComboPPB1.DropDown
End Sub

Bien sûr uniquement quand le texte est hors liste.