Automatisation lien hypertexte

Hugues · 4 Octobre 2010

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 · 4 Octobre 2010

Re : Automatisation lien hypertexte

Bonjour,

Voir pj

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

JB

pierrejean · 4 Octobre 2010

Re : Automatisation lien hypertexte

Bonjour Hugues

Teste:

Code:

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

Automatisation lien hypertexte

Hugues

XLDnaute Impliqué

Pièces jointes

BOISGONTIER

XLDnaute Barbatruc

Pièces jointes

pierrejean

XLDnaute Barbatruc

Discussions similaires

Automatisation lien hypertexte

Hugues

XLDnaute Impliqué

Pièces jointes

BOISGONTIER

XLDnaute Barbatruc

Pièces jointes

pierrejean

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency