Discussion :

[Jeh98]

Bonjour à tous

Voici mon problème :

J'ai pu créer un Userform et j'ai insérer une combobox ou j'ai mis une liste qui se réfère à une base de donnée d'une autre feuille qui s'appelle Inventaire

Cependant, j'aimerai que lorsque je tape "Auv" dans mon formulaire, la combobox me donne tous les éléments de ma base de donnée ayant pour début de mot "Auv". Exactement comme dans Google ou il t'affiche au fur à mesure que tu écris ton mot.

Merci de votre aide !

Jeh98

Voici mon fichier excel :

[manufer]

Salut,

Alors je ne peux pas répondre directement à ta demande mais j'ai quelque chose qui peut s'en approcher, regarde ici:

https://www.developpez.net/forums/d1...transpose-sql/

Ce n'est pas une saisie intuitive mais cela permet de réduire les choix dans la base en fonctions des éléments saisis dans le textbox.

Tu l'auras compris il y a ici un textbox et une listbox + une base (plage de près de 10 colonnes)

Sinon ce code aussi :

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
26
 
Option Compare Text
 
Private Sub ListBox1_Click()
 
            TextBox1 = ListBox1.List(ListBox1.ListIndex)
 
ListBox1.Visible = False
End Sub
 
Private Sub TextBox1_Change()
    Application.ScreenUpdating = False
    ListBox1.Clear 'Exemple 2 (ListBox)
    If TextBox1 <> "" Then
    ListBox1.Visible = True
 
        For ligne = 2 To 200
            If Cells(ligne, 1) Like "*" & TextBox1 & "*" Or Cells(ligne, 3) Like "*" & TextBox1 & "*" Or Cells(ligne, 4) Like "*" & TextBox1 & "*" Or Cells(ligne, 5) Like "*" & TextBox1 & "*" Or Cells(ligne, 6) Like "*" & TextBox1 & "*" Or Cells(ligne, 8) Like "*" & TextBox1 & "*" Then
                ListBox1.AddItem Cells(ligne, 1) & " " & Cells(ligne, 3) & " " & Cells(ligne, 4) & " " & Cells(ligne, 5) & " " & Cells(ligne, 6) & " " & Cells(ligne, 8) 'Exemple 2 (ListBox)
            End If
 
        Next
        Else
        ListBox1.Visible = False
    End If
End Sub

Je continue de regarder pour les saisies intuitives.

[Jeh98]

Hello Manufer, merci pour ta réponse.

Cependant, c'est bien cette liste intuitive dont j'ai besoin, j'ai trouvé sous une discussion un code qui me permettrait de faire cela sauf que j'arrive pas à l'appliquer, enfin je sais pas ou je dois l'inscrire quoi...étant débutant dans excel


Liste intuitive dans formulaire
(Frapper les premières lettres ou cliquer sur la flèche)

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
Dim a()
Private Sub UserForm_Initialize()
  Set f = Sheets("BD")
  a = f.Range("A2:A" & f.[A65000].End(xlUp).Row).Value
  Me.ComboBox1.List = a
End Sub
 
Private Sub ComboBox1_Change()
  Set d1 = CreateObject("Scripting.Dictionary")
  tmp = UCase(Me.ComboBox1) & "*"
  For Each c In a
    If UCase(c) Like tmp Then d1(c) = ""
  Next c
  Me.ComboBox1.List = d1.keys
  Me.ComboBox1.DropDown
End Sub
 
Private Sub ComboBox1_Click()
  ActiveCell = Me.ComboBox1
  Unload Me
End Sub
 
 
MacthEntry : None

[patricktoulon]

bonjour
normalement la combo le fait déjà il me semble

[Jeh98]

Non malheureusement la combo le fait pas...

[patricktoulon]

tu devrais prendre les meme combo que nous alors

[manufer]

Je pose cette question mais c'est juste une précaution,

Tu as bien un userform dans lequel se trouve un combobox ?

Sinon après avoir placé le combobox sur ta feuille et double cliqué dessus, tu peux mettre le code ci-dessous:

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
 
Option Compare Text
 
Dim a()
 
 Private Sub ComboBox1_Change()
 
  Set f = Sheets("BD")
 a = f.Range("A2:A" & f.[A65000].End(xlUp).Row).Value
Me.ComboBox1.List = a
 
 Set d1 = CreateObject("Scripting.Dictionary")
 tmp = UCase(Me.ComboBox1) & "*"
 For Each c In a
 If UCase(c) Like tmp Then d1(c) = ""
 Next c
 Me.ComboBox1.List = d1.Keys
 Me.ComboBox1.DropDown
 End Sub
 
 Private Sub ComboBox1_Click()
 ActiveCell = Me.ComboBox1
 End Sub

Chez moi ça fonctionne je viens de le tester.

[patricktoulon]

re
je pense avoir compris ce n'est pas la saisie intuitive qu'il veux mais bel est bien la liste de choix correspondant au lettre tapées
rien a voir avec la demande

dans ce cas la il faut stoker le tableau trier dans l'ordre et a ficher a partir du premier item correspondant après dropdown