PivotItem tout déselectionner

Signaler
Messages postés
127
Date d'inscription
mercredi 16 avril 2008
Statut
Membre
Dernière intervention
8 juillet 2008
-
Messages postés
127
Date d'inscription
mercredi 16 avril 2008
Statut
Membre
Dernière intervention
8 juillet 2008
-
Bonjour,

Je reviens de divers forum ou je n'ai rien trouvé qui marche... J'ai un tableau croisé dynamique et je voudrais par vba décocher tout les éléments d'un champ.

With Sheets("Feuil2").PivotTables("Tcd").PivotFields("CD_MAT")
        .PivotItems("123317MI").Visible = False
        .........
End With

Voila mon code, mais le probleme est que j'ai plein de choix. Je voudrais juste tous les décocher.

Auriez-vous un solution ?

Merci

PS: c'est mon premier post en tant que membre

3 réponses

Messages postés
127
Date d'inscription
mercredi 16 avril 2008
Statut
Membre
Dernière intervention
8 juillet 2008

Personne n'a d'idées ???
Messages postés
127
Date d'inscription
mercredi 16 avril 2008
Statut
Membre
Dernière intervention
8 juillet 2008

Il n'y aurai pas un truc du style :
For i=1 to .PivotCount("CD_MAT")
   .PivotNumbers(" & i & ").Visible = False 'Numéro de l'item
Next

???
Messages postés
127
Date d'inscription
mercredi 16 avril 2008
Statut
Membre
Dernière intervention
8 juillet 2008

Bon alors je crois avoir trouvé un solution.


Je fait d'abord une extraction sans doublon de ma colonne d'items puis le code suivant :


Private Sub ok_Click()
Dim i As Single
Dim PivItem As String


For i = 2 To Sheets("Feuil1").Range("AA65536").End(xlUp).Row
    PivItem = Sheets("Feuil1").Cells(i, 27).Value
    If PivItem <> Me.ComboBox1.Value Then
    With Sheets("Feuil2").PivotTables("Tcd").PivotFields("CD_MAT")
        .PivotItems(PivItem).Visible = False
    End With
    End If
Next i
 
End Sub

Ca marche mais juste sur les 10 premiers et après erreur sur la ligne en rouge.
Erreur 1004
Impossible de lire la propriété PivotItems de la classe PivotField

SVP aidez moi !!!