Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Lien hypertexte pour revenir vers un Onglet

  • Initiateur de la discussion Initiateur de la discussion apdf1
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

apdf1

XLDnaute Impliqué
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
 
Re : Lien hypertexte pour revenir vers un Onglet

bonjour Pierrot,

J'ai inséré ce code:
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
 
Re : Lien hypertexte pour revenir vers un Onglet

Bonjour à tous,

Peux-tu essayer :
VB:
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
 
Re : Lien hypertexte pour revenir vers un Onglet

Re,

modifie comme suit :
Code:
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🙂
 
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 :

VB:
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
7
Affichages
886
Réponses
20
Affichages
872
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…