Bonjour à tous,
Je vous explique mon problème , 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 :
Cette macro m'ouvre donc mon UserForm1 qui fait apparaitre une ListBox avec un boutton valider.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6 Sub DRG_BOUTON() UserForm1.Show End Sub
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 :
Pour l'instant mon CommandButton1 (boutton valider) ne permet que d'afficher la bonne feuille et ferme le UserForm1.
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
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
J'ai éssayé plusieurs choses 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.
Partager