Sujet Précédent Sujet Suivant

PivotItem tout déselectionner

drik56 Messages postés 127 Date d'inscription mercredi 16 avril 2008 Statut Membre Dernière intervention 8 juillet 2008 - 2 juil. 2008 à 13:13
drik56 Messages postés 127 Date d'inscription mercredi 16 avril 2008 Statut Membre Dernière intervention 8 juillet 2008 - 3 juil. 2008 à 10:16
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

Réponse 1 / 3
drik56 Messages postés 127 Date d'inscription mercredi 16 avril 2008 Statut Membre Dernière intervention 8 juillet 2008
3 juil. 2008 à 08:23
Personne n'a d'idées ???
0
Réponse 2 / 3
drik56 Messages postés 127 Date d'inscription mercredi 16 avril 2008 Statut Membre Dernière intervention 8 juillet 2008
3 juil. 2008 à 08:26
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

???
0
Réponse 3 / 3
drik56 Messages postés 127 Date d'inscription mercredi 16 avril 2008 Statut Membre Dernière intervention 8 juillet 2008
3 juil. 2008 à 10:16
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 !!!
0
Rejoignez-nous