Localiser la zone de nom

Bonjour,

Je suis actuellement en train de développez une macro pour un planning

Mais je bloque sur la localisation d'une cellule par sa zone de nom


Je m'explique :

Dans ma feuille nommé "(macro)", dans la cellule A3 il y a la date du jour sous le format "juillet_29" (Ce format est obtenue par le lancement automatique d'une macro lorsqu'on ouvre le fichier, et qui affiche la date du jour sous ce format)

Maintenant j'aimerais que la macro localise dans la feuille "Calendrier" la cellule qui a en zone de nom "juillet_29"

Et ensuite qu'elle me dirige vers le lien contenu dans cette cellule (ce lien dirige vers une feuille du même classeur)


Merci par avance !!

bonjour,

Si j'ai bien compris dans la feuille "Calendrier" il y a une cellule nommée "juillet_29"

Pour obtenir son adresse

Code:

---

1 2 3

Sub sc() MsgBox [juillet_29].Address(external:=True) End Sub

---

Bonjour wyzer,

pas sûr d'avoir compris...

Code:

---

Sheets("Calendrier").range(Sheets("(macro)").range("A3").value).hyperlinks(1).follow

---

Citation:

---

j'aimerais que la macro localise dans la feuille "Calendrier" la cellule qui a en zone de nom "juillet_29"

---

J'ai cru comprendre qu'une cellule était nommée "juillet_29", apparemment ce n'est pas ça.
Qu'est ce que ça veut dire?

Oui dans la feuille calendrier j'ai mis en zone de nom "juillet_29" dans une cellule

Comme ça la macro pourra plus facilement repérer la cellule

Essaye :

Code:

---

1 2 3 4 5 6 7 8 9

Set F1 = Worksheets("(macro)") Set F2 = Worksheets("Calendrier")   With Worksheets("Calendrier").Range("a1:a500") Set c = .Find(F1.Range("A3").Value, LookIn:=xlValues) If Not c Is Nothing Then c.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True End If End With

---

J'ai essayé toute vos solutions mais il ne se passe rien (même pas un message d'erreur)

Pour que ça soit plus simple pour vous je vous ai mis le fichier en ligne : http://wyzer.free.fr/Planning.xls

Tu peux le mettre en fichier joint ? Je n'ai pas le droit d'accès a ton lien :cry:

Voilà ;)

Re,
Bonjour Delphine,

en effet, les Follow et FollowHyperlink ne semblent pas fonctionner pour un lien dans le même classeur...
une solution alambiquée, mais j'espère qu'il y a plus simple ;)

Code:

---

1 2 3 4 5

Dim adr as String adr = Sheets("Calendrier").Range(Sheets("(macro)").Range("A3").Value).Hyperlinks(1).SubAddress Worksheets(Replace(Left(adr, InStr(1, adr, "!") - 1), "'", "")).Activate Range(Right(adr, Len(adr) - InStr(1, adr, "!"))).Select

---

Merci ça fonctionne !!!

Et bonne vacances Delphine (à propos de ta signature)

Merci merci :ccool:

Code:

---

Range(Sheets("Calendrier").Range(Sheets("(macro)").Range("A3").Value).Hyperlinks(1).SubAddress).Parent.Activate

---

à mettre dans un module général

Merci :ccool:

Bonjour à tous,

bien vu mercatog ;)

je dirais même plus :

Code:

---

1 2	Range(Sheets("Calendrier").Range(Sheets("(macro)").Range("A3").Value).Hyperlinks(1).SubAddress).Parent.Activate Range(Sheets("Calendrier").Range(Sheets("(macro)").Range("A3").Value).Hyperlinks(1).SubAddress).Select

---

:ccool: