Liens hypertexte fonction d'une cellule

phlaurent55

Nous a quittés en 2020

Repose en paix

• 28 Août 2014

• #2

Re : Liens hypertexte fonction d'une cellule

Bonjour Madjer,

avec ce code:

Code:

Sub Ajoutlien()
For Each cellule In Range("A3:A5")
ActiveSheet.Hyperlinks.Add Anchor:=cellule, Address:="http://www." & cellule & ".fr"
Next cellule
End Sub

à+
Philippe

 

Dernière édition: 28 Août 2014

Vote positif 0 Vote négatif

M

Madjer

Guest

• 28 Août 2014

• #3

Re : Liens hypertexte fonction d'une cellule

@phlaurent55

Merci ! c'est excatement ce que souhaitais comme résultat !
Cependant, comme je ne traite que sur des tableaux filtrés, le "Next Cellule" n'est pas vraiment adapté !

Aurais-tu une idée de comment adapter cela ?

Je te remercie.

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 28 Août 2014

• #4

Re : Liens hypertexte fonction d'une cellule

Re,

un exemple à adapter en pièce jointe

à+
Philippe

 

Pièces jointes

• 111.xlsm

  19 KB · Affichages: 37
• 111.xlsm

  19 KB · Affichages: 34
• 111.xlsm

  19 KB · Affichages: 27

Vote positif 0 Vote négatif

M

Madjer

Guest

• 28 Août 2014

• #5

Re : Liens hypertexte fonction d'une cellule

C'est... nickel ! 😉

Merci pour ton exemple, c'est très bon !

 

Vote positif 0 Vote négatif