XL 2013 problème référence dynamique TCD

Bonjour

1. Il est toujours préférable de nommer les tableaux plutôt que de conserver le nom automatique (tu nommes bien tes onglets ...)
2. On peut vider un tableau (supprimer les lignes) et le remplir sans recréer le TCD qui s'adaptera au nouveau contenu
3. Quelle version d'Excel utilises-tu ? Version 6 doit dater de ma grand mère ... Sur 2010 c'est 14
4. Il serait bien de nommer également ton TCD avec un nom personnalisé...

Code néanmoins corrigé en l'état...

Bonsoir,

Je te remercie pour ta réponse. J'utilise excel 2016 et j'ai bien noté pour renommer les tableaux et tcd . j'ai appliqué ton code pour mon cas et il fonctionne bien mais bloque juste avant la fin . Saurais tu pourquoi ? La list object que tu as utilisé sélectionne bien le tableau mais que mettre sur les parties que j'ai souligné en rouge ? Sachant que les "1" c'est moi qui les ai rajouté pour avoir la même chose que ce que tu avais fait toi (souligné en bleu) mais cela ne marche pas. Ai-je loupé une étape ?

Merci par avance

Sheets.Add
ActiveSheet.Name = "TCD RETARD RUSSIE"
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
Worksheets("BDD RUSSIE").ListObjects(1), Version:=xlPivotTableVersion14).CreatePivotTable _
TableDestination:=ActiveSheet.Cells(3, 1), TableName:="Tableau croisé dynamique3", _
DefaultVersion:=xlPivotTableVersion14

With ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields( _
"Exercice")
.Orientation = xlPageField
.Position = 1
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields( _
"Publication")
.Orientation = xlPageField
.Position = 1
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Branche" _
)
.Orientation = xlPageField
.Position = 1
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields( _
"zone geo")
.Orientation = xlPageField
.Position = 1
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields( _
"Entité_Code")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields( _
"Entité_Libellé")
.Orientation = xlRowField
.Position = 2
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Rating")
.Orientation = xlRowField
.Position = 3
End With
ActiveSheet.PivotTables("Tableau croisé dynamique3").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique3").PivotFields("NbJoursRetard"), _
"Somme de NbJoursRetard", xlSum
With ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Phase")
.Orientation = xlColumnField
.Position = 1
End With
Range("B16").Select
With ActiveSheet.PivotTables("Tableau croisé dynamique3")
.InGridDropZones = True
.RowAxisLayout xlTabularRow
End With
Columns("A:A").ColumnWidth = 22.71
ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Publication") _
.CurrentPage = "(All)"
With ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields( _
"Publication")
.PivotItems("Exempté").Visible = False
.PivotItems("Publié").Visible = False
End With
ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Publication") _
.EnableMultiplePageItems = True
ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Branche"). _
CurrentPage = "(All)"
ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Branche"). _
EnableMultiplePageItems = True
ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("zone geo"). _
CurrentPage = "(All)"
With ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields( _
"zone geo")
End With
ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("zone geo"). _
EnableMultiplePageItems = True
Sheets("BDD RUSSIE").Select
ActiveWindow.SmallScroll Down:=-12
ActiveSheet.ListObjects("1").Range.AutoFilter Field:=7, Criteria1 _
:=Array("AAMO", "ALD", "ASSU", "EUROPE", "SGEF"), Operator:=xlFilterValues
ActiveSheet.ListObjects("1").Select
Range("F15").Activate
Selection.EntireRow.Delete
ActiveSheet.ListObjects("1").Range.AutoFilter Field:=7
Sheets("TCD RETARD RUSSIE").Select
Range("C9").Select
ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotCache.Refresh

RE

1 correspond au 1er tableau de la feuille donc c'est un nombre : pas de "" autour

re
merci pour tout, ca marche
à titre d'info j'avais une erreur récurrente sur ma deuxième ligne rouge , je l'ai contourné avec
ActiveSheet.ListObjects(1).DataBodyRange.Select