Bonjour,
Je débute dans les macro excel et j'aimerais faire qqch qui me paraît compliqué !... hep !
 
J'ai une feuille avec 8 graphes, et chaque graphe a un filtre "Date (FR format)". Pour afficher l'ensemble des graphes avec la meme date, je suis obligée de cocher la date 8 fois dans chacun des filtres; donc, le but de la macro est d'automatiser tout ça : l'utilisateur rentre une date dans une cellule, et tous les filtres cochent automatiquement cette date choisie. Et ca, ça marche ! Ce qui m'enquiquine, c'est que les autres dates cochées précédemment rester cochées.
 
En gros, j'aimerais que toutes les cases date autre que MaDate (celle entrée par l'utilisateur dans la cellule G6), soit décochée.
 
Voici le code pour l'un des graphe :
 
    Dim MaDate As Date
    MaDate = Range("G6" )
     
ActiveSheet.ChartObjects("Chart 9" ).Activate
 
      With ActiveChart.PivotLayout.PivotTable.PivotFields("Date (FR format)" )
        .PivotItems(MaDate).Visible = True
        .PivotItems(<>MaDate).Visible = False >>> c'est là que ça bloque !
 
        End With
 
J'ai essayé avec ça aussi, mais cela ne marche pas:   If PivoIItems <> MaDate Then Visible = False
 
Merci beaucoup pour votre aide !

Salut,
 
Et en ajoutant .PivotItems.Visible = False juste après le With (sans indice) ?
C'est à dire en décochant d'abord tout puis en ne cochant que celui de maDate ?

Hello,
Merci pour ton aide, mais cela ne fonctionne pas non plus (erreur 438, Objets doesn't support this property or method)
Je continue également à investiguer de mon côté !

Dans ce cas, essaye en bouclant sur tous les PivotItems d'abord (en dehors du With) :
 

 
Ce sera un peu plus long, mais là ça devrait passer.