Automatisation lien hypertexte

[Hugues]

Bonjour Le Forum,

Je cherche à adapter un code afin de créer un lien hypertexte dans une cellule, en fonction de l'adresse située au dessus de cette dernière, en faisant un pas de trois.

J'ai eu erreur mais je ne trouve pas pourquoi.

Merci par avance,

Hugues

 

[BOISGONTIER]

Re : Automatisation lien hypertexte

Bonjour,

Voir pj

=LIEN_HYPERTEXTE("#"&B3&"!a1";"produit "&B3)

JB

 

[pierrejean]

Re : Automatisation lien hypertexte

Bonjour Hugues

Teste:

Private Sub CommandButton1_Click() 
For i = 0 To 10 Step 3
    ActiveSheet.Hyperlinks.Add Anchor:=Cells(4, 2 + i), Address:="", SubAddress:= _
"'" & Range("B3").Offset(0, i).Value & "'!A1", TextToDisplay:=Range("B4").Offset(0, i).Value
Next i
End Sub

Edit : salut JB