Discussion :

[wyzer]

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

[JPierreM]

bonjour,

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

Pour obtenir son adresse

Code :

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

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

[tototiti2008]

Bonjour wyzer,

pas sûr d'avoir compris...

Code :

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

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

[JPierreM]

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?

[wyzer]

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

[delphine35]

Essaye :

Code :

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

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

[wyzer]

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

[delphine35]

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

[wyzer]

Voilà

[tototiti2008]

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 :

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

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

[wyzer]

Merci ça fonctionne !!!

Et bonne vacances Delphine (à propos de ta signature)

[delphine35]

Merci merci

[mercatog]

Code :

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

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

à mettre dans un module général

[wyzer]

Merci

[tototiti2008]

Bonjour à tous,

bien vu mercatog

je dirais même plus :

Code :

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

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

[wyzer]