XL 2016 Liste déroulante semi-automatique sur excel 2016

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Emilie#66

XLDnaute Nouveau
Bonjour
Je suis nouvelle sur ce forum, j'ai un formulaire où je dois saisir une adresse, les adresses possibles sont dans une liste de donnée.
Est-il possible de saisir seulement les 3 premiers caractères de l'adresse dans le formulaire et de choisir l'adresse correspondante dans la liste déroulante (avec le filtre des 3 premiers caractères)?
 

Pièces jointes

Bonsoir à tous,

Voyez le fichier joint, le tableau structuré en 2ème feuille et la ComboBox en 1ère feuille.

Le code de la feuille :
VB:
Option Compare Text 'la casse et ignorée

Private Sub ComboBox1_Change()
Dim crit$, tablo, i&, liste(), n&
If Len(ComboBox1) < 3 Then Exit Sub
crit = "*" & ComboBox1 & "*"
tablo = [Tableau1] 'matrice, plus rapide
For i = 1 To UBound(tablo)
    If tablo(i, 2) Like crit Then
        ReDim Preserve liste(n)
        liste(n) = tablo(i, 2)
        n = n + 1
    End If
Next
If n Then ComboBox1.List = liste Else ComboBox1.Clear
[C16] = ComboBox1
End Sub

Private Sub ComboBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
ComboBox1_Change
ComboBox1.DropDown 'déroule la liste
End Sub
A+
 

Pièces jointes

Hello,
en utilisant une Combobox et le code de Autocompletion avec ComboBox de Jacques Boisgontier qui se trouve sur son site voici ce que l'on obtient :
ListeAutoComplete.gif



Ami calmant, J.P
 

Pièces jointes

En téléchargeant mon fichier du post #4 j'ai ceci qui fonctionne très bien avec Excel 2010 64 bits
c'est OK maintenant, comme tu n'avais pas mis le mode d'emploi ou une animation d'utilisation, j'attendais en fais qu'il y ait quelque chose de proposer au fur et à mesure que l'on entrait des caractères. Dans ton classeur, il faut cliquer sur la flèche pour sélectionner l'élément voulu. A noter que si l'on commence à taper a il y a adresse qui s'affiche ce qui m'avait induit en erreur.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
8
Affichages
170
Réponses
8
Affichages
668
Réponses
8
Affichages
1 K
Retour