Calvus
XLDnaute Barbatruc
Bonjour à tous,
J'ai un code me permettant de faire une recherche dans un tableau, d'après une valeur entrée dans un Textbox.
Voici ce code :
J'aimerais pourvoir faire la recherche simultanément dans un second tableau, situé dans une autre feuille.
Cela est il possible ?
J'ai tenté d'insérer une boucle dans la 1ère, mais bugs.
J'ai tenté également :
Mais bugs également.
Je me suis dit que la solution était éventuellement de passer par un tableau vba intermédiaire.
Cela est il juste ?
Merci
J'ai un code me permettant de faire une recherche dans un tableau, d'après une valeur entrée dans un Textbox.
Voici ce code :
VB:
Private Sub TextBox1_Change()
Dim f As Worksheet, f1 As Worksheet, i As Integer, c As Variant
Set f = Sheets("Clients")
Set f1 = Sheets("Prospects")
Range("B:B").Interior.ColorIndex = xlNone
ListBox1.Clear
For Each c In f1.[Prosp[Société]]
If UCase(c) Like "*" & UCase(Me.TextBox1) & "*" Then
Label12 = c.Value
ListBox1.AddItem c.Value
c.Interior.ColorIndex = 20
End If
Next c
End Sub
J'aimerais pourvoir faire la recherche simultanément dans un second tableau, situé dans une autre feuille.
Cela est il possible ?
J'ai tenté d'insérer une boucle dans la 1ère, mais bugs.
J'ai tenté également :
VB:
For Each c In Array("f1.[Prosp[Société]]"," f.[Clients[Société]]")
Je me suis dit que la solution était éventuellement de passer par un tableau vba intermédiaire.
Cela est il juste ?
Merci