Liens hypertexte fonction d'une cellule

[Madjer]

Bonjour à tous,

Aujourd'hui, petit problème dont je ne trouve ni la solution, ni un sujet déjà existant.

Je vous invite à regarder le classeur joint, tout y est expliqué.

C'est très simple.
Dans ma colonne A, j'ai des références.
J'aimerais, via une macro, transformer ces références en lien hypertexte de type : www.CONTENU_DE_LA_CELLULE_A1.fr
La transformation devant s'opérer directement dans la colonne A.

Voilà, ce sera tout !

Merci !

 

[phlaurent55]

Re : Liens hypertexte fonction d'une cellule

Bonjour Madjer,

avec ce 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

 

[Madjer]

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.

 

[phlaurent55]

Re : Liens hypertexte fonction d'une cellule

Re,

un exemple à adapter en pièce jointe

à+
Philippe

 

[Madjer]

Re : Liens hypertexte fonction d'une cellule

C'est... nickel !

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