Macro VBA: Création lien hypertexte

[Axel971]

Bonjour,

Je souhaite créer des liens hypertexte pour plus de 500 cellules entre deux feuilles.
Je préférerais donc l'automatiser avec une macro.

Les cellules de la feuille Classement sont directement liés aux cellules de la feuille Hiérachisation:
A56=Hiérarchisation!B54

Je voudrais donc une macro qui fasse le lien renvoyant à la cellule source.

Dans un second temps,je voudrais que cette macro s'applique à toutes mes cellules concernées.

Etant débutant,je peine vraiment avec la syntaxe VBA.

Merci d'avance pour votre aide

Axel 971

 

[JNP]

Re : Macro VBA: Création lien hypertexte

Bonjour Axel971 et bienvenue 🙂,
Pas très clair ta question 😕...
Si j'ai compris

Sub test4()
Dim Cellule As Range
For Each Cellule In Sheets("Classement").Cells.SpecialCells(xlCellTypeFormulas)
If Left(Cellule.Formula, 17) = "=Hiérarchisation!" Then
Cellule.Hyperlinks.Add Anchor:=Cellule, Address:="", SubAddress:=Right(Cellule.Formula, Len(Cellule.Formula) - 1)
End If
Next
End Sub

devrait fonctionner.
Bonne journée 😎

 

[Axel971]

Re : Macro VBA: Création lien hypertexte

C'est parfait ce que tu m'as filé.
Merci beaucoup JNP.