gestionnaire de nom avec plage variable

Bonjour

J'ai une feuille nommée BASE DONNEE TDB que je transfert d'un fichier (A) à un autre (B) tout les mois.
Les données de cette feuille sont variables. Càd il peut y avoir 500 lignes une fois, 550 l'autre fois...

Une fois intégrée dans le fichier B, je souhaite nommer via le gestionnaire des noms l'ensemble de ma feuille BASE DONNEE TDB (importée) par le nom base_tdb

avec l'enregistreur automatique de macro j'ai :

Code:

---

1 2	ActiveWorkbook.Names.Add Name:="base_tdb", RefersToR1C1:= _ "='BASE DONNEE TDB'!R1C1:R11656C9"

---

le ic, je voudrais remplacer le ='BASE DONNEE TDB'!R1C1:R11656C9" par MaPlage

J'ai fait (MaPlage est déclarée As Range, MaZone as String) :

Code:

---

1 2 3 4 5

Sheets("BASE DONNEE TDB").Activate i = Range("A" & Rows.Count).End(xlUp).Row 'i est la dernière ligne de la feuille Set MaPlage = Range("A1:I" & i) MaZone = "'BASE DONNEE TDB'!" & MaPlage ActiveWorkbook.Names.Add Name:="base_tdb", RefersToR1C1:= "=MaZone"

---

et là : buuug ! cela ne fonctionne pas. qqn à une idée de la solution ?

Bonjour, je ne sais pas si c'est la source du problème mais dans ton RefersToR1C1:= tu donnes une référence à une plage avec une notation de type A1 alors que le paramètre attend une notation de type R1C1.
Essaye donc de changer le RefersToR1C1:= par un RefersTo:=

j'y ai pensé, j'ai testé... en vain.
en fait, quoique je mette vba transforme en type R1C1 ...

En testant ton code j'ai eu une incompatibilité type qui vient du fait que tu essayes de concaténer un String avec un Range. :weird:
Voila donc un code qui marche :

Code:

---

1 2 3 4 5 6 7 8

Sub Test()   Dim i As Long, MaPlage As Range i = Range("A" & Rows.Count).End(xlUp).Row Set MaPlage = Sheets("BASE DONNEE TDB").Range("A1:I" & i) ActiveWorkbook.Names.Add Name:="base_tdb", RefersTo:=MaPlage   End Sub

---

Tu pourrais même te passer de la variable MaPlage en notant tout directement dans le RefersTo :

Code:

---

1 2 3 4 5 6 7

Sub Test()   Dim i As Long i = Range("A" & Rows.Count).End(xlUp).Row ActiveWorkbook.Names.Add Name:="base_tdb", RefersTo:=Sheets("BASE DONNEE TDB").Range("A1:I" & i)   End Sub

---

cela marche ...

... presque !
en effet, peut être pas besoin de passer par une variable.

une fois la macro terminée, je suis allée voir dans le gestionnaire du nom ce que cela donne. la référence de mon base_tdb est alors :

Code:

---

='BASE DONNEE TDB'!'L1C1':'L3781C9'

---

(i était bien = 3781 donc c'est super !)

ce qui ne renvoie à rien.
y a-t-il une solution pour que vba ne renvoie pas L1C1 ?

le souci est le :

Code:

---

'ActiveWorkbook.Names("base_tdb").comment = "base_tdb est la référence à la base de donnée utilisée dans le fichier tableau de bord (tableaux croisés dynamiques)"

---

MERCI DE TON AIDE !