Bonjour
J'ai une macro qui met à jour un TCD : étend la plage de cellule source + rafraichit
J'ai une erreur 1004 à la dernière ligne :
Merci de votre aide
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 Sub MAJTCDSynth() Dim pvt As PivotTable Dim nbcolonne, nbligne As Integer ActiveWorkbook.Sheets("TCD_Synthese").Select 'Définit le premier TCD de la feuille active. Set pvt = ActiveSheet.PivotTables(1) 'Définit la plage de données source nbcolonne = Worksheets("Synth").UsedRange.Columns.Count nbligne = Worksheets("Synth").UsedRange.Rows.Count pvt.SourceData = "Synth!L1C1:L" & nbligne & "C" & nbcolonne
Partager