MAJ lien hypertexte

sousou

XLDnaute Barbatruc

• 14 Décembre 2018

• #2

Bonsoir
Mets ta feuille en calcul automatique !

 

Vote positif 0 Vote négatif

G

Goose

XLDnaute Occasionnel

• 15 Décembre 2018

• #3

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 15 Décembre 2018

• #4

Bonjour Goose, sousou,

Goose à dit:

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

Cliquez pour agrandir...

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 :

Code:

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

A+

 

Pièces jointes

• Onglets(1).xls

  58.5 KB · Affichages: 20

Vote positif 0 Vote négatif

G

Goose

XLDnaute Occasionnel

• 17 Décembre 2018

• #5

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 17 Décembre 2018

• #6

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+

 

Pièces jointes

• Onglets(2).xls

  58 KB · Affichages: 15

Vote positif 0 Vote négatif

G

Goose

XLDnaute Occasionnel

• 17 Décembre 2018

• #7

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 17 Décembre 2018

• #8

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 :

Code:

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

A+

 

Pièces jointes

• Onglets(3).xls

  58 KB · Affichages: 17

Vote positif 0 Vote négatif

G

Goose

XLDnaute Occasionnel

• 19 Décembre 2018

• #9

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 ?:

Code:

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 19 Décembre 2018

• #10

Bonjour Goose,

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

A+

 

Vote positif 0 Vote négatif