insérer un lien hypertexte dans tout les onglets pour revenir à la feuille principale

[anaist]

Bonjour,

Je souhaite créer une macro où on cliquerait sur la cellule "B2" dans chaque onglet pour pouvoir revenir à la feuille principale "récapitulatif".

J'ai commencé mais ca ne fonctionne pas:



Sub lienhypertexte()

For Each ws In ThisWorkbook.Worksheets
If Left(ws.Name, 15) <> "1 Récapitulatif" Then

Selection.Hyperlinks(1).SubAddress = "'1 Récapitulatif par client'!A1"
Range("B2").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True

End If
Next ws

End Sub



Pouvez-vous m'aider?
Merci d'avance.
Anaïs

 

[Pierrot93]

Re : insérer un lien hypertexte dans tout les onglets pour revenir à la feuille princ

Bonjour,

comprends pas trop ton code.. tu veux positionner un lien ou le résoudre ??

bon après midi
@+

 

[anaist]

Re : insérer un lien hypertexte dans tout les onglets pour revenir à la feuille princ

Je veux créer un lien dans chaque feuille (hors feuille principale) pour pouvoir revenir a la feuille principale.
Merci

 

[Grand Chaman Excel]

Re : insérer un lien hypertexte dans tout les onglets pour revenir à la feuille princ

Bonjour,

Une proposition à adapter, sans lien hypertexte et avec double-clic. Code à mettre dans ton Classeur (Workbook)

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$B$2" Then
    Sheets("Feuil1").Select
    Range("A1").Select
End If
End Sub

A+

 

[Pierrot93]

Re : insérer un lien hypertexte dans tout les onglets pour revenir à la feuille princ

Re, bonjour grand chaman

essaye ceci :

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

 

[anaist]

Re : insérer un lien hypertexte dans tout les onglets pour revenir à la feuille princ

Je n'arrive pas à la faire fonctionner: le fichier ne détecte rien.

 

[Pierrot93]

Re : insérer un lien hypertexte dans tout les onglets pour revenir à la feuille princ

Re,

Je n'arrive pas à la faire fonctionner: le fichier ne détecte rien.

si tu parles de mon code il doit être associé à un bouton ou autre... selon ton projet...

 

[anaist]

Re : insérer un lien hypertexte dans tout les onglets pour revenir à la feuille princ

J'ai mis un code comme celui-ci avant:

Sub bouton()

For Each ws In ThisWorkbook.Worksheets
If Left(ws.Name, 15) <> "1 Récapitulatif" Then

ActiveSheet.Buttons.Add(363, 22.5, 72, 72).Select
Selection.OnAction = "essai"

End If
Next ws

Option Explicit
Sub test()
Dim ws As Worksheet
For Each ws In Worksheets
If ws.Name <> "1 Récapitulatif par client" Then
With ws
.Range("B2").Hyperlinks.Add Anchor:=.Range("B2"), Address:="", SubAddress:= _
"1 Récapitulatif par client", TextToDisplay:="Retour récap"
End With
End If
Next ws
End Sub

End Sub

qu'est qui ne va pas?

Merci
Anaïs

 

[Pierrot93]

Re : insérer un lien hypertexte dans tout les onglets pour revenir à la feuille princ

Bonjour,

place un bouton ou une image sur ta feuille => click droit => affecter une macro....

bonne soirée
@+

 

[Pierrot93]

Re : insérer un lien hypertexte dans tout les onglets pour revenir à la feuille princ

Re,

édition : message supprimé, trompé de fil....