MAJ lien hypertexte

[Goose]

Bjr
voilà quand je rajoute un onglet, puis j’étire la formule en C1, les liens hypertextes me renvoi toujours sur le 1er onglet !! que faire ?
merci d'avance
ci-joint un fichier explicatif
bye

 

[sousou]

Bonsoir
Mets ta feuille en calcul automatique !

 

[Goose]

merci, mais y'a encore des erreurs, le lien "Bossler" me renvoi sur "Cuvelier" !!!?

 

[job75]

Bonjour Goose, sousou,

merci, mais y'a encore des erreurs, le lien "Bossler" me renvoi sur "Cuvelier" !!!?

Bah c'est dans le cas (débile) où l'on supprime la cellule C2 en décalant vers le haut !!!

On évite facilement ce (petit) problème avec en C1 du fichier joint :

=LIEN_HYPERTEXTE(INDEX(A:A;LIGNE())&" "&GAUCHE(INDEX(B:B;LIGNE());2)&"."&"'!A1";INDEX(A:A;LIGNE())&" "&GAUCHE(INDEX(B:B;LIGNE());2)&".")

A+

 

[Goose]

Bjr à tous
Merci job75, ta formule est intéressante mais le lien "Cuvelier" me renvoi sur "Bossler" ?
bye

 

[job75]

Bonjour Goose,

Ah oui en effet.

La raison c'est que de vrais liens hypertextes avaient été créés en colonne C (avec clic droit => Lien hypertexte).

Dans ce fichier (2) je les ai supprimés et j'ai revalidé les formules.

A+

 

[Goose]

les liens me donne le message: "Impossible d'ouvrir le fichier spécifique" ?

 

[job75]

Re,

Bon on y arrive avec ce fichier (3)...

S'agissant d'aller sur une feuille du même classeur il faut un dièse # au début de la formule :

=LIEN_HYPERTEXTE("#'"&INDEX(A:A;LIGNE())&" "&GAUCHE(INDEX(B:B;LIGNE());2)&"."&"'!A1";INDEX(A:A;LIGNE())&" "&GAUCHE(INDEX(B:B;LIGNE());2)&".")

A+

 

[Goose]

Nickel merci !!
par ailleurs, j'essaye de faire une macro pour ajouter un onglet et le lien qui lui correspond mais je ne vois pas comment ajouter ta formule a cette macro ?:

Sub Liens()
Dim c As Range
Application.ScreenUpdating = False
For Each c In ActiveSheet.Range("D7:D" & ActiveSheet.Range("D65536").End(xlUp).Row)
ActiveSheet.Hyperlinks.Add Anchor:=c, Address:="", SubAddress:= _
"'" & c.Value & "'!A1"
Next c
Columns(58).Font.Size = 7
Columns(58).Font.ColorIndex = 0
Application.ScreenUpdating = True
End Sub

Bye

 

[job75]

Bonjour Goose,

Mon post #6 est pourtant clair : surtout ne pas créer de lien hypertexte, il suffit de tirer la formule.

A+