Discussion :

[lililib]

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 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

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

Pour l'instant mon CommandButton1 (boutton valider) ne permet que d'afficher la bonne feuille et ferme le UserForm1.

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.

[Daniel.C]

Bonjour,

Supprime la macro Sub ListBoxType_Change.

Pour le bouton :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CommandButton1_Click()
Dim TCD As PivotTable
Sheets("TCD AFC").Select
For Each TCD In ActiveSheet.PivotTables
    TCD.PageFields(1).ClearAllFilters
    For i = 0 To Me.ListBoxType.ListCount - 1
     If Me.ListBoxType.Selected(i) = False Then
       TCD.PageFields(1).PivotItems(Me.ListBoxType.List(i)).Visible = False
     End If
    Next i
Next TCD
UserForm1.Hide
 
End Sub

[lililib]

Bonjour,

Je vous remercie déjà pour votre réponse.

J'ai effectué les changements et lorsque je clique sur le bouton cela me met :
Erreur d'exécution 1004 : Impossible de lire la propriété PivotItems de la classe PivotField.

Que dois-je faire ?

Merci, Jennifer.

[Daniel.C]

Bonsoir,

L'erreur est sur quelle ligne ? Est-ce que tu peux mettre le classeur, sans données confidentielles, en pièce jointe ?

[lililib]

Bonjour,

Veuillez m'excuser j'avais mis le projet de côté suite a des problèmes de santé.

Je vous joint le fichier l'ereur que j'ai est une Erreur de compilation : Membre de méthode ou de données introuvable.

Cordialement, Jennifer.

Planning entretien VL V2 Neutre.xlsm