Lien hypertexte sur toutes les feuilles

[Tial]

Bonjour à tous.
Comment puis je par macro :
Créer sur l'ensemble de mes feuilles (sauf "Index") en cellule "A1" un lien hypertexte pointant sur ma feuille index.

Par avance, merci pour votre aide et conseils.
Tial

 

[matthieu33]

Re : Lien hypertexte sur toutes les feuilles

Bonjour Tial,

Voici une solution avec du code VBA.
J'espère que cela te conviendra.

@+

 

[Spitnolan08]

Re : Lien hypertexte sur toutes les feuilles

Bonjour,

Sub Macro()
Dim sh As Worksheet
    For Each sh In Worksheets
        If sh.Name <> "Index" Then
            sh.Hyperlinks.Add Anchor:=sh.Range("A1"), Address:="", SubAddress:= _
                "Index!A1", TextToDisplay:="Index"
        End If
    Next
End Sub

Cordialement

 

[Jiheme]

Re : Lien hypertexte sur toutes les feuilles

Bonjour à tous

Une solution sans macro, je sais que ce n'est pas le sujet mais si un jour quelqu'un fait une recherche il aura le choix,

Tu crées ton lien dans la première feuille et ensuite tu faus un copier coller sur l'ensemble des autres feuilles.

A+

 

[MJ13]

Re : Lien hypertexte sur toutes les feuilles

Bonjour à tous

Voici une solution qui est très proche de celle de matthieu et Spitnolan.

 

[Tial]

Re : Lien hypertexte sur toutes les feuilles

Re:

matthieu33, Spitnolan08, Jiheme, MJ13

Un grand merci pour vos exemples que j'ai pu adapter sans problème à mon classeur.

Bonne fin de journée.
Tial