bonjour a tous
voici ce que j'aimerai faire en vba , je en sais pas si c'est possible
je souhaiterai nommer une Source de données dynamique pour mon tcd
c'est a dire je voudrais faire les manip suivant mais en code vba
aller dans le gestionnaire de noms
choisir le nom > tcd
choisir la page >base
référence écrire >=DECALER(Base!$A$1;;;NBVAL(Base!$A:$A);NBVAL(Base!$1:$1))
ce qui me donne une plage dynamique
ensuite aller dans modifier source du tableau dynamique
et écrire tcd pour que le tcd exploite la source de données dynamique
voici mon code
excel affiche une erreur sur mon code - par contre le nom apparaît bien dans le gestionnaire des noms mais n'es pas exploitable par le tcd > reference non valide
voici ce que j'aimerai faire en vba , je en sais pas si c'est possible
je souhaiterai nommer une Source de données dynamique pour mon tcd
c'est a dire je voudrais faire les manip suivant mais en code vba
aller dans le gestionnaire de noms
choisir le nom > tcd
choisir la page >base
référence écrire >=DECALER(Base!$A$1;;;NBVAL(Base!$A:$A);NBVAL(Base!$1:$1))
ce qui me donne une plage dynamique
ensuite aller dans modifier source du tableau dynamique
et écrire tcd pour que le tcd exploite la source de données dynamique
voici mon code
Code:
' Macro3 Macro
F09.Range("H7").Select
Selection.Copy
' contenu de la case H7 ActiveCell.FormulaR1C1 = _
'"=DECALER(BdDonnees!$A$1;;;NBVAL(BdDonnees!$A:$A);NBVAL(BdDonnees!$1:$1))"
ActiveWorkbook.Worksheets("Données").Names.Add Name:="tcd", RefersToR1C1:= _
"=OFFSET(BdDonnees!R1C1,,,COUNTA(BdDonnees!C1),COUNTA(BdDonnees!R1))"
ActiveWorkbook.Worksheets("Données").Names("tcd").Comment = ""
End Subexcel affiche une erreur sur mon code - par contre le nom apparaît bien dans le gestionnaire des noms mais n'es pas exploitable par le tcd > reference non valide