Discussion :

[WebPac]

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 :

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

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 :

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

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.

[AlainTech]

Juste une question préliminaire:

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

[ouskel'n'or]

Code :

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

    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+

[AlainTech]

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

D'où ma question:

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

[ouskel'n'or]

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

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

A+

[WebPac]

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.

[WebPac]

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.

[SfJ5Rpw8]

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

Code :

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

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

[AlainTech]

Petite info supplémentaire:

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

Toujours le mettre dans un module.

[WebPac]

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

Code :

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

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.

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.

[WebPac]

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 :

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

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 :

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

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].

[ouskel'n'or]

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 :

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

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+

[SfJ5Rpw8]

et cela :

Code :

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

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

[WebPac]

@ 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.