Nommer ma sélection

[Toutchoco]

Bonjour le forum !
Comment faire pour nommer un champ de cellules sur une feuille dont le nom est variable ?
Voici ma macro :

---------------------------
FEUILLE_importNp1 = Range('FeuillNplus1').Value ' =Import06
NomZone = Range('ZoneRecherche').Value '=h_2006

On Error Resume Next
Worksheets(FEUILLE_importNp1).Select
'si elle n'existe pas, création de la nouvelle feuille
If Err <> 0 Then Worksheets.Add.Name = FEUILLE_importNp1
Sheets(FEUILLE_importNp1).Range('f5:w4000').Select
ActiveWorkbook.Names.Add Name:=NomZone, RefersToR1C1:=Selection.Address

----------------
Le champ H_2006 est bien nommé mais en faisant rérérence à l'adresse suivante
='$F$5:$W$4000'

Cette adresse n'est pas valide..
Comment faire pour obtenir l'adresse suivante :
=import06!$F$5:$W$4000


Merci d'avance de vos conseils !

 

[Robert]

Bonsoir Toutchoco, bonsoir le forum,

Je t'avoue que je n'ai pas tou compris alors fidèle à ma réputation je te propose une solution 'cerveau de crevette'...
remplace :

ActiveWorkbook.Names.Add Name:=NomZone, RefersToR1C1:=Selection.Address

par

ActiveWorkbook.Names.Add Name:=NomZone, RefersTo:=Selection

 

[Hellboy]

Bonjour toutchoco et Robert

Un si ton nom de feuil change et que tu as ce champ déjà nommé, l'adresse suit avec le nouveau nom de feuille. Il y as de drole de chose dans ton code. Comme:

---------------------------
FEUILLE_importNp1 = Range('FeuillNplus1').Value ' =Import06
NomZone = Range('ZoneRecherche').Value '=h_2006

On Error Resume Next
Worksheets(FEUILLE_importNp1).Select

FEUILLE_importNp1 est un nom de feuille que tu prend dans une cellule d'une feuille que tu ne spécifie pas (Range('FeuillNplus1').Value )lors de l'assignation ??

Peut être si tu expliquait un peu plus en détail ce que tu essaie d'accomplir, on aurrait une vision plus clair de ton problème. Parce que présentement ce que tu cherche à faire, la façon dont tu t'y prend semble très bonne.

 

[Toutchoco]

Bonsoir Hellboy, Robert et le Forum
Je viens de tester la solution de Robert remplaçant Selection.address par Selection
et c'est OK !!
Encore merci !!