Renomer un lien HyperText avec le texte dune cellule

Paf

XLDnaute Barbatruc

• 21 Mars 2015

• #2

Re : Renomer un lien HyperText avec le texte dune cellule

Bonjour

Si j'ai bien compris, dans la feuille VBE de la feuille Joueur 1 insérer

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address = "$Z$5" Then
    Feuil1.Range("B15").Hyperlinks(1).TextToDisplay = Target.Value
    Feuil1.Name = Target.Value
 End If
End Sub

Le nom de la première feuille et l'affichage du lien Hypertexte porteront le nom saisie en Z5 de la feuille Joueur 1

A+

 

Vote positif 0 Vote négatif

P

Philippe95

XLDnaute Junior

• 21 Mars 2015

• #3

Re : Renomer un lien HyperText avec le texte dune cellule

Bonjour Paf

Merci de ta réponse, c’est presque cela !

Je souhaiterai que ce soit la feuille Joueur1 qui prenne le nom inscrit en Z5 de cette même feuille.
La feuille cotation ne doit pas changer de nom.

Je joins le fichier modifié avec ton code, je n’ai peut-être pas fait ce qu’il fallait !

Encore merci Paf, je te souhaite un bon week-end !

Philippe

 

Pièces jointes

• MaxiBourse 2.xlsm

  142.1 KB · Affichages: 29
• MaxiBourse 2.xlsm

  142.1 KB · Affichages: 32
• MaxiBourse 2.xlsm

  142.1 KB · Affichages: 28

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 21 Mars 2015

• #4

Re : Renomer un lien HyperText avec le texte dune cellule

Bonjour à tous,

Peux-tu essayer :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address = "$Z$5" Then
    Feuil1.Range("B15").Hyperlinks(1).TextToDisplay = Target.Value
    Feuil2.Name = Target.Value
 End If
End Sub

A+ à tous

 

Vote positif 0 Vote négatif

Paf

XLDnaute Barbatruc

• 21 Mars 2015

• #5

Re : Renomer un lien HyperText avec le texte dune cellule

Re

dans le code du post #2
modifier

Code:

Feuil1.Name = Target.Value

en

Code:

Feuil2.Name = Target.Value

A+

Edit : bonjour JCGL

 

Vote positif 0 Vote négatif

P

Philippe95

XLDnaute Junior

• 21 Mars 2015

• #6

Re : Renomer un lien HyperText avec le texte dune cellule

Merci !

Super sa fonctionne impeccable 🙂

Philippe

 

Vote positif 0 Vote négatif

P

Philippe95

XLDnaute Junior

• 22 Mars 2015

• #7

Re : Renomer un lien HyperText avec le texte dune cellule

Bonjour

Encore un petit souci que je ne parviens pas à solutionner avec un lien hypertexte.

Pour la feuille du 2 joueur, lorsque je sollicite le lien après avoir entré un nouveau nom en Z5, comme je le fais pour le joueur 1, quoi que je fasse au 2eme essai le message Excel : référence non valide, apparait.

J’ai même recommencé la feuille, mais c’est toujours le même message Excel qui apparait toujours au deuxième changement de nom.

Que puis-je faire ? S’il vous plaît.

Est-ce plus pratique pour vous si je joins le fichier incriminé à chaque message ?

Merci.

Philippe.

 

Vote positif 0 Vote négatif

Paf

XLDnaute Barbatruc

• 22 Mars 2015

• #8

Re : Renomer un lien HyperText avec le texte dune cellule

Re,

avec le fichier en cause, c'est mieux.

A+

 

Vote positif 0 Vote négatif

P

Philippe95

XLDnaute Junior

• 22 Mars 2015

• #9

Re : Renomer un lien HyperText avec le texte dune cellule

Ok
Merci !

 

Pièces jointes

• MaxiBourse 2.xlsm

  152.2 KB · Affichages: 24
• MaxiBourse 2.xlsm

  152.2 KB · Affichages: 25
• MaxiBourse 2.xlsm

  152.2 KB · Affichages: 26

Vote positif 0 Vote négatif

Paf

XLDnaute Barbatruc

• 22 Mars 2015

• #10

Re : Renomer un lien HyperText avec le texte dune cellule

Re,

rajouter dans chaque Private Sub Worksheet_Change(ByVal Target As Range)

Code:

 Feuil1.Range("B15").Hyperlinks(1).SubAddress = Target.Value & "!Z5"

A+

 

Vote positif 0 Vote négatif

P

Philippe95

XLDnaute Junior

• 22 Mars 2015

• #11

Re : Renomer un lien HyperText avec le texte dune cellule

Super les deux fonctionne bien !
Merci beaucoup !

 

Vote positif 0 Vote négatif

P

Philippe95

XLDnaute Junior

• 22 Mars 2015

• #12

Re : Renomer un lien HyperText avec le texte dune cellule

Re Bonjour !

Il ne faut pas se réjouir trop vite avec Excel, après avoir enregistré le fichier cela ne fonctionne plus …
Excel me laisse changer le nom dans la cellule Z5 de chaque feuille une seul foi, si je le fait 2 il affiche le message : référence non valide.

S’il vous plait …

Merci !

 

Pièces jointes

• MaxiBourse 2.xlsm

  152.3 KB · Affichages: 22
• MaxiBourse 2.xlsm

  152.3 KB · Affichages: 24
• MaxiBourse 2.xlsm

  152.3 KB · Affichages: 28

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 22 Mars 2015

• #13

Re : Renomer un lien HyperText avec le texte dune cellule

Bonjour à tous,

Et pourtant cela semble fonctionner chez moi (j'ai mis les liens en A15 et B15 et C15 pour les tests).

MAIS...
Il me semble qu tu souhaites la création des liens à la création des feuilles : le code actuel ne le permet pas.

A+ à tous

A+ à tous

 

Pièces jointes

• JC MaxiBourse 2.xlsm

  170.6 KB · Affichages: 31

Vote positif 0 Vote négatif

Paf

XLDnaute Barbatruc

• 22 Mars 2015

• #14

Re : Renomer un lien HyperText avec le texte dune cellule

re tous

j'ai été un peu vite au post #10 !
Il ne faut pas rajouter la ligne
Feuil1.Range("B15").Hyperlinks(1).SubAddress = Target.Value & "!Z5" telle quelle dans chaque Private Sub Worksheet_Change(ByVal Target As Range), mais adapter "B15" à la cellule comportant le lien Hypertexte à mettre à jour (feuille cotation) .

A+

 

Vote positif 0 Vote négatif

P

Philippe95

XLDnaute Junior

• 22 Mars 2015

• #15

Re : Renomer un lien HyperText avec le texte dune cellule

Bonsoir !

Effectivement, je viens de faire six modifications de nom consécutives sans le moindre souci …

Non non Paf, tu n’as pas été trop vite, j’ai cherché un peu et c’est mieux ainsi, j’ai l’impression de participer un petit peu …

Il ne me restera plus qu’à dupliquer chaque feuille et rajouter trois nouveaux liens.

Merci JCJL de tous le temps que tu as passé, ce que fait le fichier actuellement c’est bien ce que je souhaitais et vous en remercie tous très chaleureusement.

Au revoir …

Philippe.

 

Vote positif 0 Vote négatif