lien hypertext vers feuille qui changera de nom

pierrejean

XLDnaute Barbatruc

• 30 Octobre 2011

• #2

Re : lien hypertext vers feuille qui changera de nom

Bonjour pascal21

Une possibilité:
Dans la feuille de destination :selectionner une plage (ou celule) ,lui affecter un nom (exemple: ici)
Creer ensuite le lien hypertext vers le nom
Le changement du nom de l'onglet sera automatiquement repercuté dans l'adresse de ici et lelien hypertexte fonctionnera normalement

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 30 Octobre 2011

• #3

Re : lien hypertext vers feuille qui changera de nom

Bonjour
Peut être en gérant le suivi du lien à l'aide d'une Worksheet_FolowHyperlink.
Il ne s'agit après tout que d'ouvrir un classeur et d'activer une feuille, et tous les renseignements nécessaires se retrouvent dans le lien passé en paramètre.
À la limite je me demande même s'il est bien nécessaire que ce soit ...un lien hypertexte ! Il est vrai que si c'est une cellule ordinaire il faut que tout y soit, mais éventuellement ce qu'on ne veut y voir peut être en commentaire attaché.
À +

 

Vote positif 0 Vote négatif

pascal21

XLDnaute Barbatruc

• 30 Octobre 2011

• #4

Re : lien hypertext vers feuille qui changera de nom

bonjour Pierrejean,dranreb
Dans le classeur j'ai une macro qui nomme la feuille avec le contenu de la cellule B1 de chaque feuille

name = Range("B1").value

Cliquez pour agrandir...

si je change le contenu de B1, le lien hypertext n'est plus valide
pour l'instant, j'ai mis en 'silence' cette macro

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 30 Octobre 2011

• #5

Re : lien hypertext vers feuille qui changera de nom

Ça ne change rien à la validité des deux solutions proposées par PierreJean (que je salue au passage) et moi même.
À +

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 30 Octobre 2011

• #6

Re : lien hypertext vers feuille qui changera de nom

Bonjour le fil 🙂,
En partant du principe que les liens sont sur Feuil1 et que la case B1 de Feuil1 est vide

Code:

Sub Test()
Dim MonLien As Hyperlink, MaFeuille As Worksheet
For Each MaFeuille In ThisWorkbook.Worksheets
If MaFeuille.Range("B1") <> "" Then
With Feuil1
For Each MonLien In .Hyperlinks
MonLien.SubAddress = Replace(MonLien.SubAddress, MaFeuille.Name, MaFeuille.Range("B1"))
Next MonLien
End With
MaFeuille.Name = MaFeuille.Range("B1")
End If
Next MaFeuille
End Sub

Bon dimanche 😎
PS : J'aime pas trop renommer des onglets en fonction d'une cellule, entre les doublons et les caractères interdits, DANGER 😛

 

Vote positif 0 Vote négatif

pascal21

XLDnaute Barbatruc

• 30 Octobre 2011

• #7

Re : lien hypertext vers feuille qui changera de nom

bonjour jnp merci pour ta proposition mais je vais essayer de rester simple
c'est un classeur que je suis entrain d'allèger alors si je rajoute ça
pas sur que j'y gagne
je viens de comprendre ce que pierre jean m'a suggéré
je vais le mettre en application
bon dimanche

 

Vote positif 0 Vote négatif