Bonjour,
Sur la feuille 1 de mon classeur je veux créer un index des feuilles du
classeur, de A5 à An, avec en A5:n le nom des feuilles et le lien
hypertexte vers les feuilles.
Voici ma macro.
Je cale sur l'écriture de la ligne générant le lien hypertexte : en
fait, il est généré mais ne fonctionne pas !
Merci de votre aide
Sub CreationIndex()
n = 5
Dim WS As Worksheet
Dim nom As String
Range("A5:a65536").ClearContents
For Each WS In Worksheets
Range("A" & n).Select
ActiveCell.Value = WS.Name
nom = WS.Name
Bonjour, Sur la feuille 1 de mon classeur je veux créer un index des feuilles du classeur, de A5 à An, avec en A5:n le nom des feuilles et le lien hypertexte vers les feuilles. Voici ma macro. Je cale sur l'écriture de la ligne générant le lien hypertexte : en fait, il est généré mais ne fonctionne pas ! Merci de votre aide
Sub CreationIndex() n = 5 Dim WS As Worksheet Dim nom As String Range("A5:a65536").ClearContents For Each WS In Worksheets Range("A" & n).Select ActiveCell.Value = WS.Name nom = WS.Name
On 18 nov, 14:39, ChristianM <c.menouillard_aenlev...@orange.fr>
wrote:
Bonjour,
Sur la feuille 1 de mon classeur je veux créer un index des feuilles du
classeur, de A5 à An, avec en A5:n le nom des feuilles et le lien
hypertexte vers les feuilles.
Voici ma macro.
Je cale sur l'écriture de la ligne générant le lien hypertexte : en
fait, il est généré mais ne fonctionne pas !
Merci de votre aide
Sub CreationIndex()
n = 5
Dim WS As Worksheet
Dim nom As String
Range("A5:a65536").ClearContents
For Each WS In Worksheets
Range("A" & n).Select
ActiveCell.Value = WS.Name
nom = WS.Name
Bonjour, Sur la feuille 1 de mon classeur je veux créer un index des feuilles du classeur, de A5 à An, avec en A5:n le nom des feuilles et le lien hypertexte vers les feuilles. Voici ma macro. Je cale sur l'écriture de la ligne générant le lien hypertexte : en fait, il est généré mais ne fonctionne pas ! Merci de votre aide
Sub CreationIndex() n = 5 Dim WS As Worksheet Dim nom As String Range("A5:a65536").ClearContents For Each WS In Worksheets Range("A" & n).Select ActiveCell.Value = WS.Name nom = WS.Name
'fin création lien hypertexte '------------------------- n = n + 1 Next End Sub
-- ChristianM
michdenis
Bonjour ChristianM,
'------------------------------ Sub Test() Dim i As Integer, x As String With Worksheets("Feuil1") For i = 2 To Sheets.Count x = Sheets(i).Name With .Range("A" & 3 + i) .Value = x .Hyperlinks.Add Anchor:=.Item(1), Address:="", _ SubAddress:="'" & x & "'" & "!A1", TextToDisplay:=x End With Next End With End Sub '------------------------------
"ChristianM" a écrit dans le message de groupe de discussion : Bonjour, Sur la feuille 1 de mon classeur je veux créer un index des feuilles du classeur, de A5 à An, avec en A5:n le nom des feuilles et le lien hypertexte vers les feuilles. Voici ma macro. Je cale sur l'écriture de la ligne générant le lien hypertexte : en fait, il est généré mais ne fonctionne pas ! Merci de votre aide
Sub CreationIndex() n = 5 Dim WS As Worksheet Dim nom As String Range("A5:a65536").ClearContents For Each WS In Worksheets Range("A" & n).Select ActiveCell.Value = WS.Name nom = WS.Name
'fin création lien hypertexte '------------------------- n = n + 1 Next End Sub
-- ChristianM
Bonjour ChristianM,
'------------------------------
Sub Test()
Dim i As Integer, x As String
With Worksheets("Feuil1")
For i = 2 To Sheets.Count
x = Sheets(i).Name
With .Range("A" & 3 + i)
.Value = x
.Hyperlinks.Add Anchor:=.Item(1), Address:="", _
SubAddress:="'" & x & "'" & "!A1", TextToDisplay:=x
End With
Next
End With
End Sub
'------------------------------
"ChristianM" <c.menouillard_aenlever_@orange.fr> a écrit dans le message de groupe de
discussion : OBNjYSFaKHA.5976@TK2MSFTNGP05.phx.gbl...
Bonjour,
Sur la feuille 1 de mon classeur je veux créer un index des feuilles du
classeur, de A5 à An, avec en A5:n le nom des feuilles et le lien
hypertexte vers les feuilles.
Voici ma macro.
Je cale sur l'écriture de la ligne générant le lien hypertexte : en
fait, il est généré mais ne fonctionne pas !
Merci de votre aide
Sub CreationIndex()
n = 5
Dim WS As Worksheet
Dim nom As String
Range("A5:a65536").ClearContents
For Each WS In Worksheets
Range("A" & n).Select
ActiveCell.Value = WS.Name
nom = WS.Name
'------------------------------ Sub Test() Dim i As Integer, x As String With Worksheets("Feuil1") For i = 2 To Sheets.Count x = Sheets(i).Name With .Range("A" & 3 + i) .Value = x .Hyperlinks.Add Anchor:=.Item(1), Address:="", _ SubAddress:="'" & x & "'" & "!A1", TextToDisplay:=x End With Next End With End Sub '------------------------------
"ChristianM" a écrit dans le message de groupe de discussion : Bonjour, Sur la feuille 1 de mon classeur je veux créer un index des feuilles du classeur, de A5 à An, avec en A5:n le nom des feuilles et le lien hypertexte vers les feuilles. Voici ma macro. Je cale sur l'écriture de la ligne générant le lien hypertexte : en fait, il est généré mais ne fonctionne pas ! Merci de votre aide
Sub CreationIndex() n = 5 Dim WS As Worksheet Dim nom As String Range("A5:a65536").ClearContents For Each WS In Worksheets Range("A" & n).Select ActiveCell.Value = WS.Name nom = WS.Name
'fin création lien hypertexte '------------------------- n = n + 1 Next End Sub
-- ChristianM
ChristianM
Merci à vous ChristianM
ChristianM a écrit :
Bonjour, Sur la feuille 1 de mon classeur je veux créer un index des feuilles du classeur, de A5 à An, avec en A5:n le nom des feuilles et le lien hypertexte vers les feuilles. Voici ma macro. Je cale sur l'écriture de la ligne générant le lien hypertexte : en fait, il est généré mais ne fonctionne pas ! Merci de votre aide
Sub CreationIndex() n = 5 Dim WS As Worksheet Dim nom As String Range("A5:a65536").ClearContents For Each WS In Worksheets Range("A" & n).Select ActiveCell.Value = WS.Name nom = WS.Name
'fin création lien hypertexte '------------------------- n = n + 1 Next End Sub
Merci à vous
ChristianM
ChristianM a écrit :
Bonjour,
Sur la feuille 1 de mon classeur je veux créer un index des feuilles du
classeur, de A5 à An, avec en A5:n le nom des feuilles et le lien
hypertexte vers les feuilles.
Voici ma macro.
Je cale sur l'écriture de la ligne générant le lien hypertexte : en
fait, il est généré mais ne fonctionne pas !
Merci de votre aide
Sub CreationIndex()
n = 5
Dim WS As Worksheet
Dim nom As String
Range("A5:a65536").ClearContents
For Each WS In Worksheets
Range("A" & n).Select
ActiveCell.Value = WS.Name
nom = WS.Name
Bonjour, Sur la feuille 1 de mon classeur je veux créer un index des feuilles du classeur, de A5 à An, avec en A5:n le nom des feuilles et le lien hypertexte vers les feuilles. Voici ma macro. Je cale sur l'écriture de la ligne générant le lien hypertexte : en fait, il est généré mais ne fonctionne pas ! Merci de votre aide
Sub CreationIndex() n = 5 Dim WS As Worksheet Dim nom As String Range("A5:a65536").ClearContents For Each WS In Worksheets Range("A" & n).Select ActiveCell.Value = WS.Name nom = WS.Name