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:
j'ai essayé d'écrire :
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 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
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 !
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
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
Bien à vous !
Partager