Bonsoir
Dans l'usf GESTIONPOSTE j'ai une listview que je souhaiterais filtrer avec le textbox "SOCIETE"
se trouvant dans la colonne C

Comment procéder ?

Bonne soirée

Seb

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
 Private Sub UserForm_Initialize()
Set F = Sheets("BASE EMPLOI")
With Me.REFERANTS
 
Entetes = Array("b", "C", "G", "H", "I", "J", "K", "L")
largeur = Array(80, 80, 80, 80, 70, 70, 70, 80)
    With .ColumnHeaders
        .Clear
        nbr = -1
        For nbr = 0 To 7
           .Add , , F.Cells(1, Entetes(nbr)), largeur(nbr) '80
        Next
 
    End With
    .View = 3                   ' type Report
    .Gridlines = True           ' affichage de lignes
    .FullRowSelect = True       ' sélection complète de la ligne
    .HideColumnHeaders = False  ' afficher les en-têtes de colonnes
    .LabelEdit = 0              ' Autoriser la saisie
    '.LabelEdit = 1             ' N'autoriser la saisie
 
End With
Call LISTING
 
end sub
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
Sub LISTING()
 
 'Remplit la Listview avec les données d'Excel
 
REFERANTS.ListItems.Clear
 
Set F = Sheets("BASE EMPLOI")
 
Entetes = Array("b", "C", "G", "H", "I", "J", "K", "L")
 
   Set plage = F.Range("b2:b" & F.Range("b65000").End(xlUp).Row)
    For Each cel In plage
        With REFERANTS
 
            .ListItems.Add , , cel
 
            For nbr = 1 To 7
 
            .ListItems(.ListItems.Count).ListSubItems.Add , , F.Cells(cel.Row, Entetes(nbr))  'Cel.Offset(0, 1)
 
            Next
 
        End With
    Next
 
End Sub




BASE EMPLOI - DEMO.xls