XL 2013 Création de liens hypertexte automatique

[Geely]

Bonjour le Forum
J'utilise un fichier excel qui ensuite est utilisé sur Ipad donc impossible d'utiliser des macros pour aller sur les onglets.
Je souhaite donc créer des liens de façon automatique vers les onglets, avec macro sur PC pour "fabriquer" les liens facilement. Ensuite le lien fonctionnera avec Excel sur IOS.
Geely

 

[JCGL]

Bonjour à tous,

Peux-tu essayer :

Option Explicit

Sub Test()
    Dim DerL&, Lig&
    DerL = Feuil1.Range("A" & Rows.Count).End(xlUp).Row
    For Lig = 10 To DerL
        Range("C" & Lig).Select
        ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        Range("A" & Lig).Text & "!" & Range("B" & Lig).Text, TextToDisplay:=Range("A" & Lig).Text
    Next Lig
End Sub

A+ à tous

 

[Geely]

Bonsoir JCGL
Les liens sont bien créés mais il ne fonctionnent pas

 

[JCGL]

Bonjour à tous,

Il faut mettre l'adresse d"une cellule en B
Ou remplacer :

 Range("A" & Lig).Text & "!" & Range("B" & Lig).Text, TextToDisplay:=Range("A" & Lig).Text

par

Range("A" & Lig).Text & "!A10", TextToDisplay:=Range("A" & Lig).Text

A+ à tous

 

[Geely]

Nikel
Merci JCGL