Bonjour,
Je suis pas très fortiche en VBA, et dans une de mes procédures, j'ai besoin d'actualiser un TCD (qui compilent des comptes et somme les soldes) afin qu'il prenne toutes les valeurs sauf les vides.
Problème, je ne sais qu'actualiser mon pivot, je ne sais pas comment écrire le reste. Car jusqu'à présent ça va mais le jour où j'aurai un (des) nouveau(x) compte(s), ça ne va pas le prendre en compte (j'ai testé).
Pouvez-vous m'aider SVP ? Je vous mets le code écris mais c'est rachitique !!
Les données sources sont en A et B, le TCD en E et F
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 With Sheets("BS & RAN") Dim LR5 As Integer .PivotTables("Pivot1").PivotCache.Refresh LR5 = .Cells(.Rows.Count, 5).End(xlUp).Row .Range("E2:E" & LR5).Copy Sheets("Dataloader").Range("B2") .Range("F2:F" & LR5).Copy Sheets("Dataloader").Range("E2") .Range("F2:F" & LR5).Copy Sheets("Dataloader").Range("F2") End With
Je vous remercie par avance !
Partager