Discussion :

[Merryy]

bonjour tt le monde ,j'ai un petit soucis avec mon userform de recherche sur excel . (je fais une recherche avec un mot clé , et la listbox affiche la reference du mot + le libellé + le montant)
j'ai une feuille "BPU" ou les données sont stockés , je fais la recherche dans une userform , mais le problème c'est que la listbox affiche les resultats comme suit :

et moi je veux qu'elles soit bien présenté (ligne,colonne) .
Voila mon code associé :

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
Private Sub TextBox1_Change()
 
Application.ScreenUpdating = True
 
 
 Sheets("BPU").Range("D4:D149").Interior.ColorIndex = 2
ListBox1.Clear
 
 If TextBox1 <> "" Then
 
  For ligne = 4 To 149
   If Sheets("BPU").Cells(ligne, 4) Like "*" & TextBox1 & "*" Then
 
      ListBox1.Visible = True
 
      ListBox1.AddItem Sheets("BPU").Cells(ligne, 3)
      ListBox1.AddItem Sheets("BPU").Cells(ligne, 4)
      ListBox1.AddItem Sheets("BPU").Cells(ligne, 5)
 
   End If
  Next
  End If
End Sub

[mercatog]

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 UserForm_Initialize()
 
With Me.ListBox1
    .ColumnCount = 3
    .ColumnWidths = "40;40;30"
End With
End Sub
 
Private Sub TextBox1_Change()
Dim Ligne As Long
Dim Tmp As String
 
Application.ScreenUpdating = True
With Worksheets("BPU")
    .Range("D4149").Interior.ColorIndex = 2
    Me.ListBox1.Clear
    Tmp = Me.TextBox1
    If Tmp <> "" Then
 
        For Ligne = 4 To 149
            If .Cells(Ligne, 4) Like "*" & Tmp & "*" Then
                Me.ListBox1.Visible = True
                Me.ListBox1.AddItem .Cells(Ligne, 3)
                Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = .Cells(Ligne, 4)
                Me.ListBox1.List(Me.ListBox1.ListCount - 1, 2) = .Cells(Ligne, 5)
            End If
        Next
    End If
End With
End Sub

[Merryy]

Merci énormément , c'est parfait chokran

[Kevinqijun]

Bonjour Tout le monde, j'ai un souci, je n'arrive pas à afficher le contenue de mon tableau excel dans la listbox.


ci-dessus mon code vba et ci-dessous le résultat



Merci d'avance pour votre aide ^^

[boisgontierjacques]

Bonjour,

Où ws est initialisé?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub UserForm_Initialize()
 Set f = Sheets("bd")
 Me.ListBox1.ColumnCount = 3
 Me.ListBox1.ColumnWidths = "40;40;40"
 Me.ListBox1.List = f.Range("A2:C" & f.[A65000].End(xlUp).Row).Value
 Me.TextBox1 = Application.Sum(Application.Index(Me.ListBox1.List, , 3))  ' colonne 3
End Sub

Boisgontier

[Kevinqijun]

Ici ^^