[VBA-E]Noms de zones dupliqués

Bonjour, je souhaite récupérer une zone ("MaZone") dans Excel à partir de son nom.
Le problème est quand la zone est définie dans la Feuil3 (par exemple) et que dans la Feuil1 il y a une seconde zone nommée "Feuil1!MaZone".

ActiveSheet est la Feuil3.
J'essaie les méthode suivantes pour récupérer MaZone située dans la Feuil3 :

Code:

---

1 2 3 4 5

MsgBox ThisWorkbook.Names("Feuil3!MaZone").Name MsgBox ThisWorkbook.Names("MaZone").Name   MsgBox ThisWorkbook.ActiveSheet.Names("Feuil3!MaZone").Name MsgBox ThisWorkbook.ActiveSheet.Names("MaZone").Name

---

Le premier cas me fait une erreur 1004.
Le second cas me donne Feuil1!MaZone.
Le troisième cas me fait une erreur 1004.
Le quatrième cas me fait une erreur 1004.

J'ai cherché dans tous les sens, je ne vois pas de solution.
Pour information si on avait défini la zone "MaZone" dans Feuil1 et "Feuil3!MaZone" dans Feuil3, il n'y a pas de problème, il suffit de faire directement pour récupérer la zone (avec ActiveSheet la bonne feuille ) :

Code:

---

MsgBox ThisWorkbook.ActiveSheet.Names("MaZone").Name

---

Je pense que c'est un problème dans VBA. Je suis avec Excel 2003 SP2.
Quelqu'un a-t-il déjà eu ce problème et comment peut-on le résoudre ?
Merci.

Juste une question préliminaire:

Comment arrives-tu à avoir 2 fois le même nom dans le même classeur?

Code:

---

Application.Goto Reference:="LaZone"

---

J'ajoute que le nom LaZone est valable pour tout le classeur. Tu n'as pas à définir la feuille

A+

Citation:

---

Envoyé par ouskel'n'or

J'ajoute que le nom LaZone est valable pour tout le classeur.

---

D'où ma question:

Citation:

---

Envoyé par AlainTech

Comment arrives-tu à avoir 2 fois le même nom dans le même classeur?

---

Citation:

---

Envoyé par Alain

Citation:
ouskel'n'or a écrit :
J'ajoute que le nom LaZone est valable pour tout le classeur.

D'où ma question:

Citation:
AlainTech a écrit :
Comment arrives-tu à avoir 2 fois le même nom dans le même classeur?

---

d'où ma réponse

Citation:

---

Envoyé par ouskel'n'or

ouskel'n'or a écrit :
J'ajoute que le nom LaZone est valable pour tout le classeur.

---

:lol:

A+

Dans Feuil3 tu créés ta zone MaZone, puis dans Feuil1, tu créés une zone qui s'appelle Feuil1!MaZone, on appelle se genre de zone parfois des zones locales ou des zones restreintes à une feuille.

Il n'est pas facile de les créer à la main, mais en code c'est fort simple de créer plusieurs zones ayant le même nom.

ouskel'n'or, merci pour ton aide, mais justement, j'ai besoin de retrouver la zone dans la feuille en cours et non pas la zone globale, je vais essayer ta solution pour voir ce que ça donne.

En fait, je vais reposer ma question car peut-être existe-t-il une autre solution plus simple.
Je voudrais récupérer la valeur de la zone MaZone située dans la feuille si elle existe dans l'ActiveSheet, sinon la valeur de la zone globale s'il n'existe pas de zone MaZone dans l'ActiveSheet.

Le problème est que quand il y a plusieurs zone avec le même nom, si on cherche directement dans le ThisWorkbook, on ne récupère pas la zone de l'ActiveSheet mais du classeur.

j'ai pas testé mais de mémoire c'est ok..:

Code:

---

1 2	MsgBox ThisWorkbook.Sheets("Feuil3").range("MaZone").Name

---

;)

Petite info supplémentaire:

Ne jamais mettre de code, traitant plusieurs feuilles, dans une feuille.

Toujours le mettre dans un module.

Citation:

---

Envoyé par bbil

j'ai pas testé mais de mémoire c'est ok..:

Code:

---

1 2	MsgBox ThisWorkbook.Sheets("Feuil3").range("MaZone").Name

---

;)

---

Non ce n'est pas bon, car je ne sais pas à priori où se situe la zone.

Citation:

---

Envoyé par AlainTech

Toujours le mettre dans un module.

---

Merci pour l'info, mais en réalité, je travaille en Delphi avec les objets automation pour travailler avec Excel, donc ça fonctionne comme en VBA, d'ailleurs, je fais tous les tests en VBA dans un module avant de l'intégrer dans Delphi.

C'est bon j'ai trouvé.
Mon erreur était de vouloir remonter sur la zone pour redescendre sur la valeur, j'étais parti au départ sur quelquechose du style

Code:

---

ThisWorkbook.Names.Item( 'ZoneBis', EmptyParam, EmptyParam ).RefersToRange.Value

---

Avec des manipulations avec l'ActiveSheet mais il y a beaucoup plus simple, c'est de faire :

Code:

---

MsgBox Range("MaZone").Value

---

Récupérer directement depuis l'application la range correspondante sans chercher à passer par les Names et les RefersToRange.

Merci, c'est enfin [Résolu].

Citation:

---

Dans Feuil3 tu créés ta zone MaZone, puis dans Feuil1, tu créés une zone qui s'appelle Feuil1!MaZone, on appelle se genre de zone parfois des zones locales ou des zones restreintes à une feuille.

---

J'ignorais cette possibilité :( d'où ma question à ceux qui savent : Est-ce également le cas dans VB97 ?
Merci

Maintenant, pour répondre à ta question : Si tu as plusieurs fois le même nom, que tu ignore la feuille dans laquelle il se trouve, comment souhaites-tu pouvoir déterminer si c'es el bon ?

Sinon

Code:

---

1 2 3 4 5 6 7 8 9

Sub NomsRechercher() Set LeNom = ActiveWorkbook.Names For i = 1 To ActiveWorkbook.Worksheets.Count Set LaFeuille = Worksheets(i) For j = 1 To LeNom.Count MsgBox "Nom de la feuille " & LaFeuille.Name & " Nom de la zone " & LeNom(j).Name Next j Next End Sub

---

Permet d'afficher tous les noms insérés dans les feuilles de calculs... et chez moi (VBA97) répète les mêmes noms pour chaque feuille.

A toutes fins utiles

A+

et cela :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub test() Dim n As Name Const MAZONE = "Mazone" On Error Resume Next Set n = ActiveSheet.Name(MAZONE) If n Is Nothing Then Set n = ThisWorkbook.Names(MAZONE) End If On Error GoTo 0 If n Is Nothing Then MsgBox "Zone introuvable" Else MsgBox n.RefersTo End If   End Sub

---

@ ouskel'n'or :
j'utilise l'unité Excel97 dans mon projet, donc ça génère du code valable pour Excel97 donc oui ça existe dans Excel 97.

@ bbil : ton code ne fonctione pas, quelque soit l'ActiveSheet (Feuil1 ou Feuil3) il retourne Feuil1!$A$1.
Tu peux essayer, je suis resté longtemps bloqué sur ce bug de VBA en essayant de trouver une solution utilisant les collection Names.

Citation:

---

Envoyé par WebPac

Tu peux essayer, je suis resté longtemps bloqué sur ce bug de VBA en essayant de trouver une solution utilisant les collection Names.

---

non la c'est un bug de bbil :aie: qui as oublié un s et de WebPAx qui ne l'as pas vu :lol:

Code:

---

Set n = ActiveSheet.NameS(MAZONE)

---

Je persiste, VBA bugue même en rajoutant le S oublié.

En pièce jointe voir le classeur de test (il faut bien profiter des nouvelles fonctionnalités du nouveau forum).