VBA saisie intuitive comme Google

Version imprimable

26/10/2017, 09h38
Jeh98

VBA saisie intuitive comme Google

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 :

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:

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.

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:

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

26/10/2017, 10h15
patricktoulon

re

bonjour
normalement la combo le fait déjà il me semble
26/10/2017, 10h19
Jeh98

Non malheureusement la combo le fait pas...
26/10/2017, 10h27
patricktoulon

1 pièce(s) jointe(s)

re

tu devrais prendre les meme combo que nous alors :mouarf:
Pièce jointe 322530

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:

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.

26/10/2017, 10h47
patricktoulon

re

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

1 pièce(s) jointe(s)

Bonjour,

Exemple en PJ avec une VRAIE saisie intuitive type Google.

Faire une recherche GOOGLE: excel recherche intuitive google

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
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

Boisgontier
http://boisgontierjacques.free.fr