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

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

  • Test Formulaire avec Filtre.xlsx
    47.9 KB · Affichages: 11

job75

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

  • Test Formulaire avec Filtre.xlsm
    101.7 KB · Affichages: 3

jurassic pork

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

  • Test Formulaire avec Filtre JP.xlsm
    61.9 KB · Affichages: 5

jurassic pork

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

Discussions similaires

Réponses
8
Affichages
500

Statistiques des forums

Discussions
314 422
Messages
2 109 447
Membres
110 482
dernier inscrit
ilyxxxh