Hyperlien sur toute les feuilles de mon classeur

Bonjour à tous.

J'ai besoin de créer un hyperlien sur l'ensemble des feuilles de mon classeur. L'hyperlien doit être situé dans la cellule A1 et renvoie toujours à la même valeur (qui est une page du classeur).

Je ne sais pas trop par où commencer.

MErci de votre support.

Bonjour,

Un exemple en l'absence de fichier représentatif, à adapter donc :

Sub ACCUEIL()
Dim F%
For F = 2 To Worksheets.Count
    Worksheets(F).[A1] = "ACCEUIL"
    Worksheets(F).[A1].Hyperlinks.Add Worksheets(F).[A1], "", "ACCEUIL!A1", "ACCEUIL"
Next F
End Sub

Dans chaque feuille hormis la première, un hyperlien vers la page d’accueil est créé en A1.

Cdlt,

5classeur1.xlsm (17.30 Ko)
Rechercher des sujets similaires à "hyperlien toute feuilles mon classeur"