supprimer tous les filtres Modifier le message

Version imprimable

1 pièce(s) jointe(s)

Bonjour le Forum

1 - Dans mon USF GENERAL je cherche à filtrer ma listview via le combobox COMMENTAIRESPOSTES (colonne 41 de la BDD)

J'ai ce code là mais où placer

Code:

1
2
   .AutoFilterMode = False
    .Range("$A$1:$BB$3000").AutoFilter Field:=41, Criteria1:=COMMENTAIRESPOSTES.Value

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub FILTRER_Click()
 
Dim BaseDD() As Variant, L As Long, c As Long, LstIt As MSComctlLib.ListItem
With ThisWorkbook.Worksheets("BASE EMPLOI")
    L = .[A60000].End(xlUp).Row
   c = .[A1].End(xlToRight).Column
   BaseDD = .[A1].Resize(L, c).Value: End With
With LISTBDD
   With .ColumnHeaders: .Clear
      For c = 1 To UBound(BaseDD, 2)
         .Add Text:=BaseDD(1, c), Width:=100: Next c: End With
   .ListItems.Clear
   For L = 2 To UBound(BaseDD, 1)
      Set LstIt = .ListItems.Add(Text:=BaseDD(L, 1))
         For c = 2 To UBound(BaseDD, 2)
            LstIt.ListSubItems.Add Text:=CStr(BaseDD(L, c)): Next c, L: End With
 
End Sub

2 - De plus, quand je fait ce filtre, la bdd reste filtrer (filtres auto) mm quand j’initialise la listview
--> Du coup, il faudrait faire sauter les filtres dans l'onglet BASE EMPLOI

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub IniListview()
 
Dim BaseDD() As Variant, L As Long, c As Long, LstIt As MSComctlLib.ListItem
With ThisWorkbook.Worksheets("BASE EMPLOI")
   L = .[A60000].End(xlUp).Row
   c = .[A1].End(xlToRight).Column
   BaseDD = .[A1].Resize(L, c).Value: End With
 
With LISTBDD
   With .ColumnHeaders: .Clear
      For c = 1 To UBound(BaseDD, 2)
         .Add Text:=BaseDD(1, c), Width:=100: Next c: End With
   .ListItems.Clear
   For L = 2 To UBound(BaseDD, 1)
      Set LstIt = .ListItems.Add(Text:=BaseDD(L, 1))
         For c = 2 To UBound(BaseDD, 2)
            LstIt.ListSubItems.Add Text:=CStr(BaseDD(L, c)): Next c, L: End With
 
 
End Sub

qqn aurait une idée ?

Bonne journée
Seb

j'avance avec

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub FILTRER_Click()
 
Dim BaseDD() As Variant, L As Long, c As Long, critere As String, LstIt As MSComctlLib.ListItem
With ThisWorkbook.Worksheets("BASE EMPLOI")
 
   L = .[A60000].End(xlUp).Row
   c = .[A1].End(xlToRight).Column
   BaseDD = .[A1].Resize(L, c).Value: End With
 
With LISTBDD
critere = COMMENTAIRESPOSTES.Value
   With .ColumnHeaders: .Clear
      For c = 1 To UBound(BaseDD, 2) And LstItem.SubItems(39) = critere
         .Add Text:=BaseDD(1, c), Width:=100: Next c: End With
   .ListItems.Clear
   For L = 2 To UBound(BaseDD, 1)
      Set LstIt = .ListItems.Add(Text:=BaseDD(L, 1))
         For c = 2 To UBound(BaseDD, 2)
            LstIt.ListSubItems.Add Text:=CStr(BaseDD(L, c)): Next c, L: End With
 
End Sub

mais erreur 424 - Objet requis sur

Code:

For c = 1 To UBound(BaseDD, 2) And LstItem.SubItems(39) = critere

Merci !

J'avance avec ce code
Merci à ChTi160 de XLdownload:mouarf:

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
Sub FILTRER_Click()
 
Dim BaseDD() As Variant, L As Long, c As Long, critere As String, LstIt As MSComctlLib.ListItem
With ThisWorkbook.Worksheets("BASE EMPLOI")
   critere = COMMENTAIRESPOSTES.Value
   L = .[A60000].End(xlUp).Row
   c = .[A1].End(xlToRight).Column
   BaseDD = .[A1].Resize(L, c).Value: End With
 
With LISTBDD
    With .ColumnHeaders: .Clear
        For ligne = 2 To UBound(BaseDD, 1)
            If BaseDD(ligne, 39) = critere Then
                Set LstVIt = .ListItems.Add(Text:=BaseDD(ligne, 1))
                With LstVIt
                    For Colonne = 2 To UBound(BaseDD, 2)
                    .ListSubItem.Add , , BaseDD(ligne, Colonne)
                    Next 'Colonne
                End With
            End If
        Next
    End With
End With
End Sub

Par contre, j'ai un blocage sur

Erreur de Compilation - Membre de méthode ou de données introuvable

Code:

1
2
3
4
Set LstVIt = .ListItems.Add(Text:=BaseDD(ligne, 1))
 
sur
.listItems

03/09/2014, 20h43
clementmarcotte

Citation:

Envoyé par GADENSEB

Merci !

J'avance avec ce code
Merci à ChTi160 de XLdownload:mouarf:

Restes-y, s'ils sont si bons que cela:mouarf::mouarf::aie::aie::

Et puis, si tu as envie de brailler que je ne fais rien pour toit, c'est que j'ai un Excel à 64 bits sans ListView. Et puis les gens qui braillent parce qu'ils n'ont pas de réponse puis qui reviennent nous narguer avec la réponse d'un autre, c'est un manque de classe de la pire espèce. J'espère juste que tu vas t'excuser d'avoir insulté des répondeurs bénévoles, qui t'aident du mieux qu'ils le peuvent à obtenir gratuitement une application.

Aucun participant bénévole n'est obligé de te répondre ni de savoir la réponse. Si tu veux absolument un résultat et pouvoir te plaindre, engage quelqu'un et paye.
03/09/2014, 20h45
GADENSEB

ihihhi
je fais tout le monde !!!
Et tout les forums !