Je vous remercie pour l'aide que vous me procurer mais je buche encore
sur certains points
Le code de ce matin fonctionne tr=E8s bien
Private Sub CmdAnne_Click()
Sheets("Liste rapport").Select
For Each sh In Sheets
ActiveCell =3D sh.Name
ActiveCell.Offset(0, 1) =3D sh.Tab.ColorIndex =3D 4
ActiveCell.Offset(1, 0).Select
Next sh
End Sub
Ma question,
Comment adapter ce code pour que la liste des onglet soient des liens
hypertexte
pour acc=E9der =E0 la feuille li=E9e
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Rai
Bonsoir au groupe et Rai
Je vous remercie pour l'aide que vous me procurer mais je buche encore sur certains points Le code de ce matin fonctionne très bien
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
Ma question, Comment adapter ce code pour que la liste des onglet soient des liens hypertexte pour accéder à la feuille liée
Merci à tous Amicalement Crole
CF ma réponse dans le fil précédent ...
(les contributeurs de ce newsgroup sont bénévoles et pas branchés 24/24 sur celui-ci ... donc aie un peu de patience mon impétieux ami)
Bonsoir au groupe et Rai
Je vous remercie pour l'aide que vous me procurer mais je buche encore
sur certains points
Le code de ce matin fonctionne très bien
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
Ma question,
Comment adapter ce code pour que la liste des onglet soient des liens
hypertexte
pour accéder à la feuille liée
Merci à tous
Amicalement
Crole
CF ma réponse dans le fil précédent ...
(les contributeurs de ce newsgroup sont bénévoles et pas branchés 24/24
sur celui-ci ... donc aie un peu de patience mon impétieux ami)
Je vous remercie pour l'aide que vous me procurer mais je buche encore sur certains points Le code de ce matin fonctionne très bien
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
Ma question, Comment adapter ce code pour que la liste des onglet soient des liens hypertexte pour accéder à la feuille liée
Merci à tous Amicalement Crole
CF ma réponse dans le fil précédent ...
(les contributeurs de ce newsgroup sont bénévoles et pas branchés 24/24 sur celui-ci ... donc aie un peu de patience mon impétieux ami)
