Hello le forum,
J'ai de nouveau un petit problème,
En effet, j'ai un tableau croisé dynamique avec des dates et je voudrais faire une sélection automatique de mes dates selon l'entrée d'une textbox d'un de mes userform.
J'espère être clair, donc voici mon code :
Il me dit erreur d'éxécution 1004 : impossible de définir la propriété visible de la classe PivotItem.
Il beug donc à la ligne "p.Visible = True"
Quelqu'un peut m'aider ?
Merci d'avance,
Fab'
J'ai de nouveau un petit problème,
En effet, j'ai un tableau croisé dynamique avec des dates et je voudrais faire une sélection automatique de mes dates selon l'entrée d'une textbox d'un de mes userform.
J'espère être clair, donc voici mon code :
Code:
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Day"). _
CurrentPage = "(All)"
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Day")
For Each p In Feuil2.PivotTables("Tableau croisé dynamique1").PivotFields("Day").PivotItems
p.Visible = True
Next p
For Each p In Feuil2.PivotTables("Tableau croisé dynamique1").PivotFields("Day").PivotItems
If p.Value > TextBox1.Value Then p.Visible = False
Next p
End With
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Day"). _
EnableMultiplePageItems = True
Il me dit erreur d'éxécution 1004 : impossible de définir la propriété visible de la classe PivotItem.
Il beug donc à la ligne "p.Visible = True"
Quelqu'un peut m'aider ?
Merci d'avance,
Fab'