Lien Hypertexte

Le
crolegoogle
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #5443791
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


crolegoogle
Le #5443721
Merci JB
Cordialement
Crole
Publicité
Poster une réponse
Anonyme