PivotItems().Visible ne fonctionne pas

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:

---

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

Bonjour,

Essais comme cela

Code:

---

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

---

Jai collé ton code:

Code:

---

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

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?

"l'enregistreur de macro" ???

De quoi parles tu et comment faire?

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

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.

En exécutant le code généré sans faire de modifications, tu as une erreur ?

Jérome,

J'ai recommencer l'enregistrement et voici le code généré que je n'ai pas modifié et qui ne fonctionne pas et me renvoie: Erreur 1004:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

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

---

As tu la possibilité de nous mettre a dispo ton classeur car je ne reproduit pas ton problème

Merci mais je souhaite faire autrement car apparemment ça bug à cause des PivotItems fantômes... bref ......

Soit les cellules D1, E1, F1..... avec les valeurs suivantes:

01/07/2012 | 01/06/2012 |01/05/2012 | 01/04/2012 | 01/03/2012 | 01/02/2012

Dans 2 cellules A1 et B1 j'ai les dates 01/06/2012 | 01/03/2012

Je voudrais une macro qui supprime les colonnes comprises D1 et + dont les dates ne sont pas comprises entre A1 et B1

Désolé pour la complexité de mon exigence, mais j'en ai vraiment besoin :(

Merci à vous tous!