XL 2016 Saisie Semi automatique sur menu déroulant

[guellila]

Bonjour

votre support svp je cherche a ajouter sur le code existant (fichier en attaché )un autre code pour me permettre de faire une saisie semi automatique sur les deux premiers Combobox de ma première onglet de mon fichier

merci d'avance pour le support

cordialement

 

[Dudu2]

Bonjour

pour me permettre de faire une saisie semi automatique

C'est quoi une "saisie semi-automatique" ?

 

[guellila]

Bonjour Dudu2
je cherche a affiner la liste de nom a afficher sur le menu deroulant en introduisant manuellement les premières lettres et chiffres

 

[Dudu2]

Post supprimé cause problème...

 

[guellila]

Bonjour
svp j'ai pas copris ta réponse , quelle est le problème sur mon poste

cdt

 

[Dudu2]

Problème sur MON post effacé.
Mais j'ai trouvé la solution que je completerai de retour sur le PC.

 

[guellila]

merci davance Dudu2 pour ton support

 

[Dudu2]

@guellila,

Sans être compliquée, cette affaire n'est pas tout à fait simple à cause du comportement parfois inattendu des ComboBoxes.

 

[guellila]

Bonjour
merci Dudu2 pour le support c'est exectement le besoin recherché malheureusement je suis nouveau dans monde VBA si possible comment integré cela sur mon code deja existant dans mon fichier

merci

 

[Dudu2]

Bonjour,
Tes ComboBoxes ne sont pas dans un UserForm.
Donc il faut appeler ComboBoxEnter() sur l'évènement ComboBox_GotFocus().
Et appeler ComboBoxChange() à appeler sur l'évènement ComboBox_Change().

Les listes de valeurs des ComboBoxes sont issues de dictionnaires et il faut que je plonge dans ton code pour comprendre comment ça marche.

 

[guellila]

Bonjour
mais a quelle niveau je dois faire les changement sur mon code

merci

 

[Dudu2]

En fait, je ne comprends pas bien ton code pour construire la liste des valeurs des ComboBoxes.

Il faut inclure le Module_SaisieAssistée et que tu arrives avec ça:

Private Sub Cbx_name_GotFocus()
    {Code éventuel pour construire la <Tableau ou Range des valeurs>}
    Call ComboBoxEnter(Me.Cbx_name, <Tableau ou Range des valeurs>)
End Sub

Private Sub Cbx_name_Change()
    Call ComboBoxChange(Me.Cbx_name)
End Sub

Private Sub Cbx_o_name_GotFocus()
    {Code éventuel pour construire la <Tableau ou Range des valeurs>}
    Call ComboBoxEnter(Me.Cbx_o_name, <Tableau ou Range des valeurs>)
End Sub

Private Sub Cbx_o_name_Change()
    Call ComboBoxChange(Me.Cbx_o_name)
End Sub

 

[Dudu2]

Deux améliorations permettant:
1 - De définir si la saisie assistée se fait sur les premières lettres uniquement ou bien sur une partie quelconque des valeurs de la liste.
2 - D'utiliser les touches Down, Up, Page Down, Page Up dans la liste sans provoquer immédiatement une sélection de la valeur.

 

[Dudu2]

100 fois sur le métier remettez votre ouvrage.
Pas simple à bien gérer notre petite saisie assistée, mais là on touche au but.

 

[Dranreb]

Bonjour.
Une autre proposition, avec une partie de la programmation de service du CBxLCtlA.xlam, plutôt adapté au UserForm et avec données en tableau, mais bon …
Je n'ai pas laissé plus de 3 lignes en double, sinon le fichier était trop gros à joindre.