Bonjour

je souhaite actualiser un tcd existant dont la source de données varit régulièrement en nombre de lignes.
le nombre de colonne est stable. ensuite sur d'autre TCD le nombre de colonne est variable. j'ai défini la plage et les nombre de colonnes.
j'ai un soucis au niveau de la ligne 13 du code bug. quelqu'un a t il une idée merci d'avance.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
 
Sub actualisation()
 
Dim plage1 As Range
Dim DerLig As Long
Dim NomFeuille As String
 
NomFeuille = "Cadrage"
DerLig = Worksheets(NomFeuille).Range("A" & Rows.Count).End(xlUp).Row
 
'Selection de la plage source presente sur l'onglet "base valabs"
Set plage = Worksheets(NomFeuille).Range(Cells(2, 1), Cells(DerLig, 12))
'Sheets("TCD").Select
 
 
 Range("B4").Select
 
ActiveSheet.PivotTables("Tableau croisé dynamique3").ChangePivotCache _
        ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=plage)
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotCache.Refresh

End Sub