Discussion :

[teddol]

Hello à tous,

Je m'arrache les cheveux depuis 2 jours et je ne trouve pas comment régler mon problème.
Quand je lance ma macro elle plante au niveau de la première date du tri des dates que je lui demande d'enlever (décocher):

Code :

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

1
2
3
4
5
6
7
8
Sub tri()
'
' tri Macro
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Mois")
        .PivotItems("01/07/2012").Visible = False
        .PivotItems("01/06/2012").Visible = False
    End With
End Sub

Qu'est ce qui ne va pas??????

Merci pour vos lumières.

Ted

[jfontaine]

Bonjour,

Essais comme cela

Code :

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

1
2
3
4
5
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Mois") 
   .PivotItems(datevalue("01/07/2012")).Visible = False 
   .PivotItems(datevalue("01/06/2012")).Visible = False
End With
End Sub

[teddol]

Jai collé ton code:

Code :

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

1
2
3
4
5
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Mois") 
   .PivotItems(datevalue("01/07/2012")).Visible = False 
   .PivotItems(datevalue("01/06/2012")).Visible = False
End With
End Sub

Idem, j'ai le même message d'erreur: Erreur d'execution 1004: impossible de définir la propriété visible de la classe pivoitem.

A l'aide

[jfontaine]

As tu essayé d'utiliser l'enregistreur de macro pour faire le code et voir ce qu'il te propose au niveau du format de date?

[teddol]

"l'enregistreur de macro" ???

De quoi parles tu et comment faire?

[jfontaine]

Tu vas dans outil macro > nouvelle macros.
Ensuite tu fais les actions de décocher des valeurs, puis tu arrêtes l'enregistreur.
Le code généré automatiquement sera dans un module de ton classeur

[teddol]

Ok pour l'enregistreur de macro. En effet je suis passé par là pour réaliser ma macro.

1/ Démarrer l'enregistrement
2/ Je crée mon tri manuellement
3/ J'arrete la marco

Eh bien le code VBA généré est celui que j'ai posté. Il ne fonctionne pas et VBA me met en surbrillance jaune la première ligne de date.