Lien Alpha vers une feuille dans un classeur

[apdf]

Bonjours

Je suis a la recherche d'un code VBA pour faire un lien alpha vers les divers onglets du même non
Ci joint mon fichier qui sera plus parlant.

Merci d'avance

 

[BOISGONTIER]

Re : Lien Alpha vers une feuille dans un classeur

Bonjour,

Private Sub Worksheet_Activate()
  For i = 2 To Sheets.Count
   nf = Sheets(i).Name
   ActiveSheet.Hyperlinks.Add Anchor:=Cells(9, i + 1), Address:="", SubAddress:="'" & _
      nf & "'" & "!A1", TextToDisplay:=nf
  Next i
End Sub

JB

 

[apdf]

Re : Lien Alpha vers une feuille dans un classeur

Bonjour JB

Je te remercie c'est execelent.

 

[apdf]

Re : Lien Alpha vers une feuille dans un classeur

Bonjours

Je voudrais finaliser mon code que JB ma fait et que je remercie et salut au passage.
Comment je pourrais garder la police de ma ligne "9" alpha qui se trouve sur la page "Accueil" à "16"?
Et j'aimerais faire un lien vers ma page d'accueil à chaque onglet.

Je vous remercie d'avance de votre aide

 

[BOISGONTIER]

Re : Lien Alpha vers une feuille dans un classeur

Bonjour,

Private Sub Worksheet_Activate()
  For i = 2 To Sheets.Count
   nf = Sheets(i).Name
   ActiveSheet.Hyperlinks.Add Anchor:=Cells(9, i + 1), Address:="", SubAddress:="'" & _
      nf & "'" & "!A1", TextToDisplay:=nf
  Next i
  Cells(9, "C").Resize(, 26).Font.Size = 16
End Sub

JB

 

[apdf]

Re : Lien Alpha vers une feuille dans un classeur

Bonjour JB

Et merci beaucoup. Pourrais tu me dire comment faire un lien vers ma page d'accueil à chaque onglet.

Bonne journée

 

[apdf]

Re : Lien Alpha vers une feuille dans un classeur

re,

OK j'ai trouvé voila le code!

Private Sub Worksheet_Activate()
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        Sheets(1).Name & "!A1", TextToDisplay:=Sheets(1).Name

End Su

 

[apdf]

Re : Lien Alpha vers une feuille dans un classeur

Re,

Suite au code de JB qui marche très bien je cherche a faire un petite modif, que les liens alpha "A,B,C, ect.." soit valable uniquement pour les onglet Alpha soit de la feuille2 à 27 avec ce code.

Private Sub Worksheet_Activate()
  For i = 2 To Sheets.Count
   nf = Sheets(i).Name
   ActiveSheet.Hyperlinks.Add Anchor:=Cells(9, i + 1), Address:="", SubAddress:="'" & _
      nf & "'" & "!A1", TextToDisplay:=nf
  Next i
  Cells(9, "C").Resize(, 26).Font.Size = 16
End Sub

Je vous remercie d'avance