Filtrer plusieurs TCD à partir d'une ListBox
Bonjour à tous,
Je vous explique mon problème :oops:, sur mon fichier excel j'ai ma première page qui se nomme "Accueil" ou ce situe des formes aux qu'elle j'affecte une macro : :wink:
Code:
1
2
3
4
5
6
| Sub DRG_BOUTON()
UserForm1.Show
End Sub |
Cette macro m'ouvre donc mon UserForm1 qui fait apparaitre une ListBox avec un boutton valider.
Je souhaite que lorsque l'on ai fait un choix dans la liste et que l'on appuit sur valider cela me filtre mes TCD situé sur la feuille "TCD AFC" en fonction du choix fait dans la listbox, ma listbox affiche déjà les bon critères permettant de filtrer mon TCD.
Voici le code mon UserForm1 :
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
|
Dim f
Private Sub CommandButton1_Click()
Sheets("TCD AFC").Select
UserForm1.Hide
End Sub
Private Sub UserForm_Initialize()
Set f = Sheets("LISTE CCS")
Set mondico1 = CreateObject("Scripting.Dictionary")
For Each c In Range(f.[C2], f.[C65000].End(xlUp))
If c.Value <> "" Then mondico1.Item(c.Value) = c.Value
Next c
Me.ListBoxSType.List = mondico1.items
End Sub
Private Sub ListBoxType_Change()
For i = 0 To Me.ListBoxType.ListCount - 1
If Me.ListBoxType.Selected(i) = True Then
For Each c In Range(f.[C2], f.[C65000].End(xlUp))
Next c
End If
Next i
End Sub |
Pour l'instant mon CommandButton1 (boutton valider) ne permet que d'afficher la bonne feuille et ferme le UserForm1.
J'ai éssayé plusieurs choses :google: mais je n'arrive pas à mettre en place ce que je veux, je débute à peine sur Excel et les macro etc...
et la j'ai vraiment besoin d'aide pour avancer sur mon projet !
Merci par avance aux personnes qui vont prendre le temps de lire ce post. :roll:
