La "Saisie Assistée" sur ComboBox parfois dénommée "saisie intelligente" consiste à actualiser dynamiquement les valeurs d'une ComboBox au fur et à mesure de la saisie des caractères tout en permettant la sélection d'une valeur dans la liste affichée.
La ComboBox peut appartenir à un UserForm ou être une ComboBox Active X sur une feuille
La mise en oeuvre est très simple:
Le fichier joint donne un exemple de mise en œuvre pour les 2 cas de ComboBox.
La ComboBox peut appartenir à un UserForm ou être une ComboBox Active X sur une feuille
La mise en oeuvre est très simple:
- Insérer le Module_SaisieAssistéeComboBox du fichier joint dans le projet VBA
- Sur l'évènement _Enter() de la ComboBox d'un UserForm ou
Sur l'évènement _GotFocus() de la ComboBox Active X:
-> Appeler la fonction SaisieAssistéeComboBoxEnter() dont les arguments sont décrits dans le module
- Sur l'évènement _Change() de la ComboBox:
-> Appeler la fonction SaisieAssistéeComboBoxChange()
VB:
'--------------
'ComboBox Enter
'--------------
Private Sub ComboBoxTest_Enter()
Call SaisieAssistéeComboBoxEnter(Me.ComboBoxTest, _
ThisWorkbook.Worksheets("Liste Clients").ListObjects("TableauClients").DataBodyRange)
End Sub
'---------------
'ComboBox Change
'---------------
Private Sub ComboBoxTest_Change()
Call SaisieAssistéeComboBoxChange
End SubLe fichier joint donne un exemple de mise en œuvre pour les 2 cas de ComboBox.
- Version
- V1