Discussion :

[Sylvain255]

Bonjour,
j'ai une feuille Excel, je voudrais que pour une certaine cellule si l'on commence à taper du texte ça ouvre une boîte déroulante avec les 10 plus proches valeurs d'une certaine colonne de 6000 lignes autre part. A noter que par exemple si je tape "si" ça doit me proposer "asi", "psic", "sic", "g si", etc et ça ne doit pas être sensible à la casse. Les accents doivent être bien gérés.
Voilà donc en entrée du programme :
- la colonne de propositions
- la cellule où l'on tape (qui ne sera bien sûr pas sur la même colonne)
Merci de votre aide
Bonne journée

[Sylvain255]

j'ai trouvé la solution, je la mets pour ceux que ça intéresse :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Sub UpdateComboBox()
    liste = Worksheets("Feuil1").Range("A1:A9015").Value ' la liste des valeurs, changer 9015 par la vraie valeur
    texte = UserForm1.ComboBox1.Text
    If UserForm1.ComboBox1.ListIndex >= 0 Then
        Exit Sub
    End If
    UserForm1.ComboBox1.Clear 'vide la liste
    For i = 1 To 9015 ' changer 9015 par la vraie valeur
        Dim pattern
        pattern = "*" + Replace(LCase(texte), " ", "*") + "*" ' création du pattern (* = de 0 à n caractères)
        If LCase(liste(i, 1)) Like pattern Then ' si l'élément de la liste est comme le pattern
            UserForm1.ComboBox1.AddItem liste(i, 1) ' ajoute l'entrée à la liste
        End If
    Next i
    ' Simule l'appui sur [ENTER] pour changer le focus -> La liste déroulante se ferme
    SendKeys ("{ENTER}"), True
    SendKeys ("{F4}"), True 'pour ouvrir la boîte déroulante
End Sub
Private Sub ComboBox1_Change()
    UpdateComboBox
End Sub
 
Private Sub UserForm_Activate()
    UpdateComboBox
End Sub

[Sylvain255]

à noter que pour que ça fonctionne
il faut mettre tabstop de tous les contrôles sauf le combobox à false
mettre matchentry de combobox à fmMatchEntyNone

le sendkey enter est pour corriger un bug de rafraîchissement d'Excel