Sub Macro2()
=20
With ActiveSheet.PivotTables("TCD HISTO").PivotFields
("DATE")
.PivotItems("200309").Visible =3D True
.PivotItems("200311").Visible =3D True
End With
=20
End Sub
Pouvez-vous m'indiquer pourquoi cette proc=E9dure=20
enregistr=E9e automatiquement plante sur PivotItems
("x").Visible =3D True ?
Si la valeur est PivotItems("x").Visible =3D False, cela=20
fontionne !
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Le problème venait du TCD. En le supprimant et le recréant à l'identique çà marche.
-----Message d'origine----- Sub Macro2()
With ActiveSheet.PivotTables("TCD HISTO").PivotFields ("DATE") .PivotItems("200309").Visible = True .PivotItems("200311").Visible = True End With
End Sub
Pouvez-vous m'indiquer pourquoi cette procédure enregistrée automatiquement plante sur PivotItems ("x").Visible = True ? Si la valeur est PivotItems("x").Visible = False, cela fontionne !
Merci de votre réponse Salutations.
.
Le problème venait du TCD.
En le supprimant et le recréant à l'identique çà marche.
-----Message d'origine-----
Sub Macro2()
With ActiveSheet.PivotTables("TCD HISTO").PivotFields
("DATE")
.PivotItems("200309").Visible = True
.PivotItems("200311").Visible = True
End With
End Sub
Pouvez-vous m'indiquer pourquoi cette procédure
enregistrée automatiquement plante sur PivotItems
("x").Visible = True ?
Si la valeur est PivotItems("x").Visible = False, cela
fontionne !
Le problème venait du TCD. En le supprimant et le recréant à l'identique çà marche.
-----Message d'origine----- Sub Macro2()
With ActiveSheet.PivotTables("TCD HISTO").PivotFields ("DATE") .PivotItems("200309").Visible = True .PivotItems("200311").Visible = True End With
End Sub
Pouvez-vous m'indiquer pourquoi cette procédure enregistrée automatiquement plante sur PivotItems ("x").Visible = True ? Si la valeur est PivotItems("x").Visible = False, cela fontionne !