Discussion :

[corsairedaryl]

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

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

Etant loin d'être doué, je suis bloqué.....
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

[Invité]

Bonsoir,
http://www.developpez.net/forums/d14...t/#post7912734

[78chris]

Bonjour

A noter qu'en mettant la source sous forme de tableau et en basant le TCD sur le tableau, tout est alors naturellement dynamique...

[corsairedaryl]

Bonjour,
Merci de m'avoir répondu. En faite, oui, avec la source sous forme tableau, cela marche tout schuss.

Merci beaucoup.