copie lien texte

[a10]

bonjour

je voudrai copier rapidement des liens hypertexte sans les modifier 1 par 1

feuille 1 si je clique sur le nom je vais dans l'onglet feuile 2

comment copier en changeant la valeur de la cellule ( toujours sur la feuille 2)

a+

 

[a10]

Re : copie lien texte

bonsoir,

comment faire les liens hypertexte de la feuille 1?

actuellment je clique sur le nom et je choisi le lien de la feuille et la cellule pour chaque nom

as t on une methode plus rapide?

 

[Staple1600]

Re : copie lien texte

Re

a10
Essaies cette macro

Sub AjoutLiens()
Dim PlageLiens, c As Range
Set PlageLiens = Feuil2.[B3:B7]
For Each c In PlageLiens
Feuil1.Hyperlinks.Add Anchor:=Cells(c.Row, c.Column), Address:="", SubAddress:=c.Parent.Name & "!" & c.Address(0, 0), TextToDisplay:=c.Text
Next c
End Sub

 

[job75]

Re : copie lien texte

Bonjour a10, JM,

Pas besoin de VBA.

Supprimez d'abord les liens hypertextes existant en Feuil1.

Puis formule en B3 à tirer vers le bas :

=SI(Feuil2!B3="";"";LIEN_HYPERTEXTE("#"&CELLULE("address";Feuil2!B3);Feuil2!B3))

Fichier joint.

A+