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 !!!