afficher un tableau dans une listbox

Version imprimable

1 pièce(s) jointe(s)

bonjour tt le monde ,j'ai un petit soucis avec mon userform de recherche sur excel .:roll: (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 : Pièce jointe 182080

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

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

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 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

02/07/2015, 12h45
Merryy

Merci énormément , c'est parfait chokran ;)
03/05/2019, 15h45
Kevinqijun

2 pièce(s) jointe(s)

Impossible d'afficher mon tableau excel dans ma listbox

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

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

Pièce jointe 471852

Merci d'avance pour votre aide ^^

Bonjour,

Où ws est initialisé?

Code:

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

03/05/2019, 16h10
Kevinqijun

1 pièce(s) jointe(s)

Ici ^^
Pièce jointe 471868