BONJOUR A TOUS,
Je me suis crée une fonction decaler pour faire un TCD avec source dynamique et pour gagner du temps, j'ai en fait une macro.
sauf que cela ne marche pas
l'exécution bloque sur la ligne ci-dessous:
ActiveWorkbook.Names("BD").Comment = "" => erreur 1004
Voici le code entier
Etant loin d'être doué, je suis bloqué.....
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 Sub FORMULE_DECALER() ' ' FORMULE_DECALER Macro ' ' Range("B1").Select ActiveWorkbook.Names.Add Name:="BD", RefersToR1C1:= _ "=OFFSET(RESAS!R1C2,,,COUNTA(RESAS!R1C2:R150C2),8)" ActiveWorkbook.Names("BD").Comment = "" Sheets.Add ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:="=BD" _ , Version:=xlPivotTableVersion14).CreatePivotTable TableDestination:= _ "Feuil1!R3C1", TableName:="Tableau croisé dynamique1", DefaultVersion:= _ xlPivotTableVersion14 Sheets("Feuil1").Select Cells(3, 1).Select End Sub
Quelqu'un aurait-il une idée de ce qui ne vas pas.
En piece jointe le fichier sur lequel je travail. il est sans la macro.
Merci à tous de votre aide.
RESAS.xlsx
Partager