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
AV
Comment supprimer les lignes sans données d'un TCD,
Sub zz_Sup_Items_Fantômes() On Error Resume Next For Each pivotT In ActiveSheet.PivotTables For Each pivotF In pivotT.PivotFields For Each pivotI In pivotF.PivotItems pivotI.Delete Next Next pivotT.RefreshTable Next End Sub
AV
Comment supprimer les lignes sans données d'un TCD,
Sub zz_Sup_Items_Fantômes()
On Error Resume Next
For Each pivotT In ActiveSheet.PivotTables
For Each pivotF In pivotT.PivotFields
For Each pivotI In pivotF.PivotItems
pivotI.Delete
Next
Next
pivotT.RefreshTable
Next
End Sub
Comment supprimer les lignes sans données d'un TCD,
Sub zz_Sup_Items_Fantômes() On Error Resume Next For Each pivotT In ActiveSheet.PivotTables For Each pivotF In pivotT.PivotFields For Each pivotI In pivotF.PivotItems pivotI.Delete Next Next pivotT.RefreshTable Next End Sub