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 : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 .AutoFilterMode = False .Range("$A$1:$BB$3000").AutoFilter Field:=41, Criteria1:=COMMENTAIRESPOSTES.Value
2 - De plus, quand je fait ce filtre, la bdd reste filtrer (filtres auto) mm quand j’initialise la listview
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 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
--> Du coup, il faudrait faire sauter les filtres dans l'onglet BASE EMPLOI
qqn aurait une idée ?
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 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
Bonne journée
Seb
Partager