Filtre dans une listview

Version imprimable

1 pièce(s) jointe(s)

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:

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:

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

Pièce jointe 150677

1 pièce(s) jointe(s)

J'ai trouvé ce code

issue du fichier joint
Pièce jointe 150687

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
31
32
33
34
35
36
37
38
39
40
41
42
43
Dim bd, f
Private Sub UserForm_Initialize()
  Set f = Sheets("BD")
  Set d = CreateObject("Scripting.Dictionary")
  Set bd = f.Range("A2:M" & f.[M65000].End(xlUp).Row)
  For i = 1 To bd.Rows.Count
    If bd.Cells(i, 1) <> "" Then d(bd.Cells(i, 1).Value) = ""
  Next i
  temp = d.keys
  Call Tri(temp, LBound(temp), UBound(temp))
  Me.ComboBox1.List = temp
  Me.ListBox1.List = bd.Value
  For k = 1 To 13: Me("label" & k).Caption = f.Cells(1, k): Next k
End Sub
 
Private Sub ComboBox1_Click()
   Dim a()
   n = Application.CountIf(Application.Index(bd, , 1), Me.ComboBox1)
   ReDim a(1 To n, 1 To bd.Columns.Count)
    ligne = 0
   For i = 1 To bd.Rows.Count
     If bd.Cells(i, 1) = Me.ComboBox1 Then
       ligne = ligne + 1
       For k = 1 To bd.Columns.Count: a(ligne, k) = bd.Cells(i, k): Next k
      End If
   Next i
   Me.ListBox1.List = a()
End Sub
 
Sub Tri(a, gauc, droi) ' Quick sort
  ref = a((gauc + droi) \ 2)
  g = gauc: d = droi
  Do
     Do While a(g) < ref: g = g + 1: Loop
     Do While ref < a(d): d = d - 1: Loop
     If g <= d Then
        temp = a(g): a(g) = a(d): a(d) = temp
        g = g + 1: d = d - 1
     End If
   Loop While g <= d
   If g < droi Then Call Tri(a, g, droi)
   If gauc < d Then Call Tri(a, gauc, d)
End Sub

que j'ai adapté comme ca

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
31
32
33
34
35
36
37
38
39
40
41
42
  Set f = Sheets("BASE EMPLOI")
  Set d = CreateObject("Scripting.Dictionary")
  Set bd = f.Range("a2:m" & f.[m65000].End(xlUp).Row)
  For i = 1 To bd.Rows.Count
    If bd.Cells(i, 1) <> "" Then d(bd.Cells(i, 1).Value) = ""
  Next i
  temp = d.keys
  Call Trin2(temp, LBound(temp), UBound(temp))
  Me.ComboBox1.List = temp
  Me.REFERANTS.List = bd.Value
  For k = 1 To 10000: Me("label" & k).Caption = f.Cells(1, k): Next k
  End Sub
 
 
 Private Sub ComboBox1_Click()
   Dim a()
   n = Application.CountIf(Application.Index(bd, , 3), Me.ComboBox1)
   ReDim a(1 To n, 1 To bd.Columns.Count)
    ligne = 0
   For i = 1 To bd.Rows.Count
     If bd.Cells(i, 1) = Me.ComboBox1 Then
       ligne = ligne + 1
       For k = 1 To bd.Columns.Count: a(ligne, k) = bd.Cells(i, k): Next k
      End If
   Next i
   Me.REFERANTS.List = a()
End Sub
 
Sub Trin2(a, gauc, droi) ' Quick sort
  Ref = a((gauc + droi) \ 2)
  G = gauc: d = droi
  Do
     Do While a(G) < Ref: G = G + 1: Loop
     Do While Ref < a(d): d = d - 1: Loop
     If G <= d Then
        temp = a(G): a(G) = a(d): a(d) = temp
        G = G + 1: d = d - 1
     End If
   Loop While G <= d
   If G < droi Then Call Trin2(a, G, droi)
   If gauc < d Then Call Trin2(a, gauc, d)
End Sub

mais j'ai une erreur à la ligne

Code:

Me.REFERANTS.List = bd.Value

erreur de compilation : membre de méthode ou de données introuvable.

qui à une idée ?

Bonne nuit

Seb

09/07/2014, 10h01
GADENSEB

Je fais tout de même une explication sur mon fichier:

Mon fichier est une base de données pour gérer ma recherche d'emploi.

J'enregistre mes les annonces auquel j'ai répondu et je gére les relances dans mon google agenda en automatique

L'onglet GESTION sert de synthèse.

via la cellule C5 je génére un usf de saisie appelé BASEEMPLOI qui remplie la bdd dans l'onglet BASE EMPLOI.

Dans les lignes blanches A36 to I..... J'ai la synthèse des annonces à relancer.

En cliquant sur une de ces lignes, j'ai l'usf GESTIONPOSTE qui apparaît qui affiche toutes les données de la ligne concernée.

Ces données sont modifiables/supprimables dans l'usf GESTIONPOSTE.

J’espère avoir été clair ..... :D

Là le problème posé est la listview que je souhaite faire apparaître dans l'usf GESTIONPOSTE.
Elle liste la bdd mais je veux la filtrer en fonction du textbox SOCIETE.

bonne journée

Seb