Lien hypertexte pour revenir vers un Onglet

[apdf1]

Bonjour,

J'ai besoin d'un petit coup de main je souhaiterais insérer un lien hypertexte pour revenir vers l'Onglet nommé Accueil et sur chaque feuille du classeur "Retour vers accueil" dans la cellule A2. je ne sais pas quel code lui associer.

Je vous remercie par avance de votre aide et vous souhaite une bonne journée

Cordialement

Max

 

[Pierrot93]

Re : Lien hypertexte pour revenir vers un Onglet

Bonjour Max

regarde ce lien, devrait t'aider :
https://www.excel-downloads.com/thr...-pour-revenir-a-la-feuille-principale.168114/

bonne journée
@+

 

[apdf1]

Re : Lien hypertexte pour revenir vers un Onglet

bonjour Pierrot,

J'ai inséré ce code:

Option Explicit
Sub test()
Dim ws As Worksheet
For Each ws In Worksheets
    If ws.Name <> "accueil" Then
        With ws
            .Range("B2").Hyperlinks.Add Anchor:=.Range("B2"), Address:="", SubAddress:= _
                "accueil", TextToDisplay:="accueil"
        End With
    End If
Next ws
End Sub

Message d'erreur "Référence non valide"

Peut être que j'ai omis quelque chose?

@+

Max

 

[JCGL]

Re : Lien hypertexte pour revenir vers un Onglet

Bonjour à tous,

Peux-tu essayer :

Option Explicit
Sub test()
Dim ws As Worksheet
For Each ws In Worksheets
If ws.Name <> "accueil" Then
With ws
.Range("B2").Hyperlinks.Add Anchor:=.Range("B2"), Address:="", SubAddress:="Accueil!A1", TextToDisplay:="Accueil"
End With
End If
Next ws
End Sub

A+ à tous

 

[Pierrot93]

Re : Lien hypertexte pour revenir vers un Onglet

Re,

modifie comme suit :

Dim ws As Worksheet
For Each ws In Worksheets
    If ws.Name <> "accueil" Then
        With ws
            .Range("B2").Hyperlinks.Add Anchor:=.Range("B2"), Address:="", SubAddress:= _
                "accueil!A1", TextToDisplay:="Retour accueil"
        End With
    End If
Next ws

Edition : bonjour Jean-Claude🙂

 

[apdf1]

Re : Lien hypertexte pour revenir vers un Onglet

Bonjour JCGL,

Je te remercie sa marche nickel.

Bonne journée à tous

Max

 

[apdf1]

Re : Lien hypertexte pour revenir vers un Onglet

Re,

Merci Pierrot.

Bonne journée

Max

 

[JCGL]

Re : Lien hypertexte pour revenir vers un Onglet

Bonjour à tous,
Salut Pierrot 🙂,

Pour rajouter une info bulle au passage de la souris sur le lien :

Option Explicit
Sub Test()
Dim ws As Worksheet
For Each ws In Worksheets
If ws.Name <> "Accueil" Then
With ws
.Range("B2").Hyperlinks.Add Anchor:=.Range("B2"), Address:="", SubAddress:="Accueil!A1", TextToDisplay:="Accueil"
.Hyperlinks(1).ScreenTip = "Retour vers la feuille Accueil"
End With
End If
Next ws
End Sub

A+ à tous

 

[apdf1]

Re : Lien hypertexte pour revenir vers un Onglet

Re,

Merci JCGL

@+
Max