J'utilise excel 2007
Je souhaiterais conna=EEtre le code a modifer pour que la liste des
onglets soient des liens hypertexte
Merci pour vos r=E9ponse
Cordialement
Crole
Sub Voir_la_liste_des_feuilles()
Sheets("Liste Feuilles").Select
Columns("A:B").Select
Selection.ClearContents
Range("A1").Select
Dim i As Integer
For i =3D 6 To ActiveWorkbook.Worksheets.Count
k =3D k + 1
Worksheets("Liste Feuilles").Cells(k, 1) =3D Worksheets(i).Name
Worksheets("Liste Feuilles").Cells(k, 2) =3D Worksheets(i).[b12]
Next i
End Sub
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
JB
Bonjour,
Sub Voir_la_liste_des_feuilles() Sheets("accueil").Select Columns("A:B").Select Selection.ClearContents Range("A1").Select Dim i As Integer For i = 2 To Sheets.Count temp = CStr(Sheets(i).Name) ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & temp & "'" & "!A1", TextToDisplay:=temp ActiveCell.Offset(1, 0).Select Next i End Sub
JB http://boisgontierjacques.free.fr/
On 11 avr, 15:32, wrote:
Bonjour le groupe,
J'utilise excel 2007 Je souhaiterais connaître le code a modifer pour que la liste des onglets soient des liens hypertexte
Merci pour vos réponse Cordialement Crole
Sub Voir_la_liste_des_feuilles() Sheets("Liste Feuilles").Select Columns("A:B").Select Selection.ClearContents Range("A1").Select Dim i As Integer For i = 6 To ActiveWorkbook.Worksheets.Count k = k + 1 Worksheets("Liste Feuilles").Cells(k, 1) = Worksheets(i) .Name Worksheets("Liste Feuilles").Cells(k, 2) = Worksheets(i) .[b12] Next i End Sub
Bonjour,
Sub Voir_la_liste_des_feuilles()
Sheets("accueil").Select
Columns("A:B").Select
Selection.ClearContents
Range("A1").Select
Dim i As Integer
For i = 2 To Sheets.Count
temp = CStr(Sheets(i).Name)
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="",
SubAddress:="'" & temp & "'" & "!A1", TextToDisplay:=temp
ActiveCell.Offset(1, 0).Select
Next i
End Sub
JB
http://boisgontierjacques.free.fr/
On 11 avr, 15:32, crolegoo...@skynet.be wrote:
Bonjour le groupe,
J'utilise excel 2007
Je souhaiterais connaître le code a modifer pour que la liste des
onglets soient des liens hypertexte
Merci pour vos réponse
Cordialement
Crole
Sub Voir_la_liste_des_feuilles()
Sheets("Liste Feuilles").Select
Columns("A:B").Select
Selection.ClearContents
Range("A1").Select
Dim i As Integer
For i = 6 To ActiveWorkbook.Worksheets.Count
k = k + 1
Worksheets("Liste Feuilles").Cells(k, 1) = Worksheets(i) .Name
Worksheets("Liste Feuilles").Cells(k, 2) = Worksheets(i) .[b12]
Next i
End Sub
Sub Voir_la_liste_des_feuilles() Sheets("accueil").Select Columns("A:B").Select Selection.ClearContents Range("A1").Select Dim i As Integer For i = 2 To Sheets.Count temp = CStr(Sheets(i).Name) ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & temp & "'" & "!A1", TextToDisplay:=temp ActiveCell.Offset(1, 0).Select Next i End Sub
JB http://boisgontierjacques.free.fr/
On 11 avr, 15:32, wrote:
Bonjour le groupe,
J'utilise excel 2007 Je souhaiterais connaître le code a modifer pour que la liste des onglets soient des liens hypertexte
Merci pour vos réponse Cordialement Crole
Sub Voir_la_liste_des_feuilles() Sheets("Liste Feuilles").Select Columns("A:B").Select Selection.ClearContents Range("A1").Select Dim i As Integer For i = 6 To ActiveWorkbook.Worksheets.Count k = k + 1 Worksheets("Liste Feuilles").Cells(k, 1) = Worksheets(i) .Name Worksheets("Liste Feuilles").Cells(k, 2) = Worksheets(i) .[b12] Next i End Sub