j ai une macro qui utilise un TCD. je recupere les champs PivotItem d'un
Pivotfield
pour faire un rapport.
Exemple : Pivotfield : couleur
PivotItem : rouge vert noir bleu
Mais quand je fais un refresh, et que certain champs PivotItem sont absent
de la base
de donnée (par la suite), ces PivotItems reste quand memes dans la liste et
quand
je viens recupére la donné correspondante les cellules en dessous ça plante.
Pourquoi ; par ce qu il n'y a pas de range pour ce PivotItem coché mais sans
valeurs.
exemple : Refresh
PivotItem : rouge vert noir bleu
mais dans ma base de donnée, vert n'est plus présent
Ma macro :
Prends le nombre d'objet colorié par couleur
Rouge noir bleu
2 4 6
Quelqu un a t il la solution à mon probleme ? Du genre, si le retour d'une
fonction ne me
renvoie rien , alors que ça aurait du etre une range, alors sauter un bloc
du programme
et passer au pivot item suivant.
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
Mais quand je fais un refresh, et que certain champs PivotItem sont absent de la base de donnée (par la suite), ces PivotItems reste quand memes dans la liste et
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
Mais quand je fais un refresh, et que certain champs PivotItem sont absent
de la base de donnée (par la suite), ces PivotItems reste quand memes dans la
liste et
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
Mais quand je fais un refresh, et que certain champs PivotItem sont absent de la base de donnée (par la suite), ces PivotItems reste quand memes dans la liste et
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
