Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 Saisie Semi automatique sur menu déroulant

guellila

XLDnaute Junior
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
 

Pièces jointes

  • listes-cascade-vba5.zip
    763.5 KB · Affichages: 31

guellila

XLDnaute Junior
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

XLDnaute Barbatruc
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.
 
Dernière édition:

Dudu2

XLDnaute Barbatruc
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:
VB:
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
 
Dernière édition:

Dudu2

XLDnaute Barbatruc
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

XLDnaute Barbatruc
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.
 

Pièces jointes

  • Saisie assistée ComboBox.xlsm
    61 KB · Affichages: 15

Dranreb

XLDnaute Barbatruc
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.
 

Pièces jointes

  • CBxLiéesGuellila.xlsm
    758.4 KB · Affichages: 24

Discussions similaires

Réponses
3
Affichages
600
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…