[XL-2010] Alimenter une listbox par un textbox

Alimenter une listbox par un textbox - 3 colonnes

Bonjour à tous,

Je me permets de poster ce problème puisque je n'arrive pas à le résoudre
Dans mon userform, j'ai une textbox qui me sert de barre de recherche afin d'alimenter ma listbox. Pour l'instant, j'arrive seulement à coder ma textbox pour faire apparaitre dans ma listbox les données d'une colonne. Sauf que je souhaite pouvoir avoir dans ma listbox les données non seulement de ma colonne A de ma feuil1, mais aussi les données de ma colonne F de ma feuil1 et A de ma feuil2.

En fonction du code suivant:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub TextBox14_Change()
Application.ScreenUpdating = False
 
    der_ligne = Feuil9.Cells(Rows.Count, 2).End(xlUp).Row
 
    ListBox3.Clear
 
    If TextBox14 <> "" Then
        For ligne = 10 To der_ligne
 
            If Cells(ligne, 2) Like "*" & TextBox14 & "*" Then
                ListBox3.AddItem Cells(ligne, 2)
            End If
 
    Next
 
 
      End If
 TextBox14.Text = UCase(TextBox14.Text)
End Sub

j'ai essayé d'écrire :

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
27
28
29
30
Private Sub TextBox20_Change()
 
    Application.ScreenUpdating = False
 
    der_ligne = Feuil4.Cells(Rows.Count, 2).End(xlUp).Row
    der_ligne1 = Feuil4.Cells(Rows.Count, 7).End(xlUp).Row
    der_ligne2 = Feuil8.Cells(Rows.Count, 2).End(xlUp).Row
 
    ListBox2.Clear
 
    If TextBox20 <> "" Then
            For ligne = 2 To der_ligne
            If Cells(ligne, 2) Like "*" & TextBox20 & "*" Then
                ListBox2.AddItem Cells(ligne, 2)
            End If
            Next
                For ligne = 2 To der_ligne1
                If Cells(ligne, 2) Like "*" & TextBox20 & "*" Then
                ListBox2.AddItem Cells(ligne, 2)
                End If
                Next
                    For ligne = 2 To der_ligne2
                    If Cells(ligne, 2) Like "*" & TextBox20 & "*" Then
                    ListBox2.AddItem Cells(ligne, 2)
                    End If
                    Next
 
    End If
 TextBox20.Text = UCase(TextBox20.Text)
End Sub

Mais ca ne marche pas... Je viens de débuter dans le code donc je sais pas si ce que j'ai écrit est une calomnie... Mais je recevrai un peu d'aide avec très grand plaisir !

Bien à vous !

Bonjour,

Il te faut affilier tes plages :

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
27
28
29
30
31
32
 
Private Sub TextBox20_Change()
 
    Application.ScreenUpdating = False
 
    ListBox2.Clear
 
    If TextBox20 <> "" Then
 
        For ligne = 2 To Feuil4.Cells(Rows.Count, 2).End(xlUp).Row
            If Feuil4.Cells(ligne, 2) Like "*" & TextBox20 & "*" Then
                ListBox2.AddItem Feuil4.Cells(ligne, 2)
            End If
        Next
 
        For ligne = 2 To Feuil4.Cells(Rows.Count, 7).End(xlUp).Row
            If Feuil4.Cells(ligne, 7) Like "*" & TextBox20 & "*" Then
                ListBox2.AddItem Feuil4.Cells(ligne, 7)
            End If
        Next
 
        For ligne = 2 To Feuil8.Cells(Rows.Count, 2).End(xlUp).Row
            If Feuil8.Cells(ligne, 2) Like "*" & TextBox20 & "*" Then
                ListBox2.AddItem Feuil8.Cells(ligne, 2)
            End If
        Next
 
    End If
 
    TextBox20.Text = UCase(TextBox20.Text)
 
End Sub

Ca marche ! Le monde du code est tellement subtile...

Merci beaucoup !!!