Etendre une plage nommée pour TCD vba

[Gorion87]

Bonjour à tous,

Je vous explique mon problème :

Je souhaiterai étendre la selection d'une plage nommée, afin de pouvoir mettre à jour mon tableau croisé dynamique, lorsque des lignes sont rajoutées à la liste de données de base.

J'ai 3 colonnes : Filiale, date et nombre.

Ma plage de données s'intitule : Tableau1.

J'ai beau cherché sur les forums je ne trouve pas...j'ai quand même tenté ce code mais cela bug :

vPlageNom = Range("A1", Range("A1").End(xlDown).End(xlToRight)).Select
ActiveWorkbook.Names.Add Name:="Tableau1", RefersToR1C1:=vPlageNom

Si vous pouvez m'aider se serait super !!!

Bonne fin de journée.

 

[Pierrot93]

Re : Etendre une plage nommée pour TCD vba

Bonjour,

essaye peut ^tre ceci, si j'ai bien compris :

Dim vPlageNom As Range
Set vPlageNom = Range("A1", Range("C65536").End(xlUp))
ActiveWorkbook.Names.Add Name:="Tableau1", RefersToR1C1:=vPlageNom

bon après midi
@+

 

[Gorion87]

Re : Etendre une plage nommée pour TCD vba

Merci beaucoup ca marche nikel 😉
Je n'étais plus très loin mais il me manquait ce petit qqchose...

Bonne fin de journée et tjrs aussi génial ce site, surtout grâce aux personnes comme toi !!!