La liste des onglets en liens hypertexte

Bonjour au groupe

Rai ma donné une solution pour la liste de mes onglets
Serait-il possible que cette liste soit des liens hypertextes qui
reverait
à l'onglet correspondant

merci au groupe pour vos réponses
Amicalement
Crole

Bonjour à toi Crole,

Tu peux adapter quelquechose du genre :
Sub Onglets_et_liens()

For Each sh In Sheets
ActiveCell.Hyperlinks.Add anchor:=Selection, Address:="",
SubAddress:=sh.Name & "!A1", TextToDisplay:=sh.Name
ActiveCell.Offset(1, 0).Select
Next sh

End Sub

Bonne journée

Rai

Bonsoir Rai

Merci pour ton aide
Pourrais-tu m'aider également sans vouloir abuser
à intégrer le code que tu m'as envoié et celui que tu m'as envoié
ce matin
le voici

Private Sub CmdAnne_Click()
Sheets("Liste rapport").Select
For Each sh In Sheets
ActiveCell = sh.Name
ActiveCell.Offset(0, 1) = sh.Tab.ColorIndex = 4
ActiveCell.Offset(1, 0).Select
Next sh
End Sub

Merci pour ta réponse
Crole

Bonsoir Rai

Merci pour ton aide
Pourrais-tu m'aider également sans vouloir abuser
à intégrer le code que tu m'as envoié et celui que tu m'as envoié
ce matin
le voici

Private Sub CmdAnne_Click()
Sheets("Liste rapport").Select
For Each sh In Sheets
ActiveCell = sh.Name
ActiveCell.Offset(0, 1) = sh.Tab.ColorIndex = 4
ActiveCell.Offset(1, 0).Select
Next sh
End Sub

Merci pour ta réponse
Crole

Bonsoir,

Avant toute chose, rappelle-toi que ActivCell désigne la cellule active,
donc pas forcément A1....
Pour avoir la maîtrise de la cellule, il y a diverses méthodes, dans
notre cas pour faire simple : range("A1").select
devrait faire l'affaire (remplacer A1 par l'adresse de ton choix).

Pour l'intégration demandée, je propose :

Private Sub CmdAnne_Click()
Sheets("Liste rapport").Select
For Each sh In Sheets
ActiveCell.Hyperlinks.Add anchor:=Selection, Address:="",
SubAddress:=sh.Name & "!A1", TextToDisplay:=sh.Name
ActiveCell.Offset(0, 1) = sh.Tab.ColorIndex = 4
ActiveCell.Offset(1, 0).Select
Next sh
End Sub

Cela te convient ?

Bonne soirée

Rai

Gère les noms d'onglets avec espace et apostrophe:

http://cjoint.com/?fywjYFFLam

Sub liens2()
Sheets("Sommaire").Activate
For i = 1 To Sheets.Count
Cells(i + 5, 1).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", _
SubAddress:="'" & Application.Substitute(Sheets(i).Name, "'",
"''") & "'" & "!" & "A1", TextToDisplay:=Sheets(i).Name
Next i
End Sub

JB

Bonjour Rai,
Merci cela me convient à merveille
Si ce n'est sans trop abuser de ton temps
que lorsque je clique sur le liens
J'ai une boite de dialogue avec le message suivant
"Référence non valide"
Merci de ton aide
Amicalement
Bruno

Merci JB
mais je dois l'adapter à ce code ci
Private Sub CmdAnne_Click()
Sheets("Liste rapport").Select
For Each sh In Sheets
ActiveCell.Hyperlinks.Add anchor:=Selection, Address:="",
SubAddress:=sh.Name & "!A1", TextToDisplay:=sh.Name
ActiveCell.Offset(0, 1) = sh.Tab.ColorIndex = 4
ActiveCell.Offset(1, 0).Select
Next sh
End Sub

Amicalement
Bruno

Private Sub CmdAnne_Click()
Sheets("Liste rapport").Select
[A1].Select
For Each sh In Sheets
ActiveCell.Hyperlinks.Add anchor:=Selection, Address:="", _
SubAddress:="'" & Application.Substitute(sh.Name, "'", "''") &
"'!A1", TextToDisplay:=sh.Name
ActiveCell.Offset(0, 1) = sh.Tab.ColorIndex = 4
ActiveCell.Offset(1, 0).Select
Next sh
End Sub

JB

Bonsoir,

Ouffff. Merci infiniment CA MARCHE Le groupe

amicalement
Bruno