Discussion :

[yohan97]

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

[yohan97]

Bonjour j'ai résolu le problème j'ai simplement défini la plage variable

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
  Sub actualisation2()
 
 Dim PlageTCD As Range
Sheets("Cadrage").Select 'la feuille où se trouve la plage
    Range("A2").Select
 
   Set PlageTCD = Range(Range("A2"), Cells(Range("A2").End(xlDown).Row, 12)) 'Ta plage qui sera utilisée dans le TCD
 
Sheets("TCD").Select
 
    ActiveSheet.PivotTables("Tableau croisé dynamique3").ChangePivotCache _
        ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=PlageTCD)
    ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotCache.Refresh
 
 
    End Sub