sarrsouraa
XLDnaute Occasionnel
bonjour tout le monde
j ' ai un probleme deouis 2 jours que j'essaie de corriger mais j y arrive pas j'ai excel 2007 et pourtant j'ai cette erreur que d'après ce que j'ai lu est un bug pr 2003
voici le code si quelq'un peut m aider:
Sub modifier()
Dim pt As PivotTable
Dim pi As PivotItem
Dim pf As PivotField
Dim lngSortOrder As Long
Dim strSortField As String
Set pt = ActiveSheet.PivotTables("Tableau croisé dynamique1")
Set pf = pt.PivotFields("Section")
pt.ManualUpdate = True
' remember settings
strSortField = pf.AutoSortField
lngSortOrder = pf.AutoSortOrder
' manual sort
pf.AutoSort xlManual, pf.Name
pf.PivotItems("102").Visible = True ' erreeeeeeeeeeeeeur unable to set visible property
pt.ManualUpdate = False
' re apply sort order
pf.AutoSort lngSortOrder, strSortField
merciiiiiiiiii
j ' ai un probleme deouis 2 jours que j'essaie de corriger mais j y arrive pas j'ai excel 2007 et pourtant j'ai cette erreur que d'après ce que j'ai lu est un bug pr 2003
voici le code si quelq'un peut m aider:
Sub modifier()
Dim pt As PivotTable
Dim pi As PivotItem
Dim pf As PivotField
Dim lngSortOrder As Long
Dim strSortField As String
Set pt = ActiveSheet.PivotTables("Tableau croisé dynamique1")
Set pf = pt.PivotFields("Section")
pt.ManualUpdate = True
' remember settings
strSortField = pf.AutoSortField
lngSortOrder = pf.AutoSortOrder
' manual sort
pf.AutoSort xlManual, pf.Name
pf.PivotItems("102").Visible = True ' erreeeeeeeeeeeeeur unable to set visible property
pt.ManualUpdate = False
' re apply sort order
pf.AutoSort lngSortOrder, strSortField
merciiiiiiiiii