Discussion :

[LaMite]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[letudiant68]

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:=

[LaMite]

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

[letudiant68]

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.
Voila donc un code qui marche :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[LaMite]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

='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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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