recherche / filtre sur listview

Question

bonsoir a tous, 

voila mon probleme: j'ai créé un bouton1 dans un userform2 qui active une macro de filtre sur une feuille. la macro marche bien. macro : "recherche_J" 
je souhaiterais que ce filtrage ressorte sur une listview et la  

je sais que je suis pas super clair. je voulais joindre un fichier mais j'ai pas trouver le bouton  Decidement ! 

merci pour votre aide

ucfoutu · Answer

bonsoir,
c'est pas vrai, Garin17 ... 
relis donc attentivement :
ce qui t'a pourtant été dit ici
Alors : VBS (la présente section) est également (comme l'est VBA) un "langage dérivé" , mais ce n'est pas du tout un "langage dérivé > VBA"
dur dur ? 
Ici, on ne joint pas de fichier. On expose clairement (au besoin avec un exemple) et on montre le code tenté 

____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

Garin17 · Answer

Salut ucfoutu,

tu ma confirmé  cela.
et tu es dur avec moi je debute !! 

bon voila mon code :
Private Sub UserForm_Initialize()
IniListview

End Sub

Sub IniListview()
Dim i As Long
With ListView2
    .ListItems.Clear
    With .ColumnHeaders
       .Clear
       .Add , , "REF", 140
       .Add , , "Type", 60
       .Add , , "Marque", 50
       .Add , , "Localisation", 50
       .Add , , "Position", 50
       .Add , , "utilisation", 60
       .Add , , "Nb d'utilisation", 100
       .Add , , "Parti", 60
       .Add , , "Ok", 100
       .Add , , , 0
    End With
 .View = lvwReport
 .FullRowSelect = True
 .Gridlines = True
        For i = 2 To Sheets("feuil1").Range("A65536").End(xlUp).Row
           .ListItems.Add , , Sheets("feuil1").Cells(i, 1)
           .ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("feuil1").Cells(i, 2)
           .ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("feuil1").Cells(i, 3)
           .ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("feuil1").Cells(i, 4)
           .ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("feuil1").Cells(i, 5)
           .ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("feuil1").Cells(i, 6)
           .ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("feuil1").Cells(i, 7)
           .ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("feuil1").Cells(i, 8)
           .ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("feuil1").Cells(i, 9)

           .ListItems(.ListItems.Count).ListSubItems.Add , , i
        Next
    ListView2.ListItems(1).Selected = False
    Set ListView2.SelectedItem = Nothing
End With

End Sub

Recherche / filtre sur listview

2 réponses

Votre réponse

Discussions similaires