Bonjour,
Je ne connais rien à VBA ... mais j'essaie. J'ai encore un peu de mal mais j'aimerais y arriver.
J'ai acheté un livre. Je trouve une macro qui permettrait de créer une feuille "menu" dans laquelle apparaîtraient en lien hypertexte toutes les feuilles de mon fichier.
Je crois la comprendre mais
1 - Je la lance par un raccourci : est-ce la méthode ? Cela peut-il expliquer une erreur ?
2 - Elle me renvoie une "erreur 13" or je ne vois pas de définition de variable
Merci d'avance de m'aider à trouver la faille mais surtout de m'expliquer.
Sub Liens_Hypertextes()
Application.ScreenUpdating = False
Worksheets("Menu").Select
Columns("B.B").Hyperlinks.Delete
Columns("B.B").ClearContents
Range("B3").Select
For Each Feuille In Worksheets
If Feuille.Name <> "Menu" Then
Emplacement = "'" & Feuille.Name & "'!A1"
Worksheets("Menu").Hyperlinks.Add Anchor:=Selection, Adresse:="", SubAdresse:=Emplacement, TextToDisplay:=Feuille.Name
ActiveCell.Offset(1, 0).Select
End If
Next Feuille
Application.ScreenUpdating = True
End Sub
Je ne connais rien à VBA ... mais j'essaie. J'ai encore un peu de mal mais j'aimerais y arriver.
J'ai acheté un livre. Je trouve une macro qui permettrait de créer une feuille "menu" dans laquelle apparaîtraient en lien hypertexte toutes les feuilles de mon fichier.
Je crois la comprendre mais
1 - Je la lance par un raccourci : est-ce la méthode ? Cela peut-il expliquer une erreur ?
2 - Elle me renvoie une "erreur 13" or je ne vois pas de définition de variable
Merci d'avance de m'aider à trouver la faille mais surtout de m'expliquer.
Sub Liens_Hypertextes()
Application.ScreenUpdating = False
Worksheets("Menu").Select
Columns("B.B").Hyperlinks.Delete
Columns("B.B").ClearContents
Range("B3").Select
For Each Feuille In Worksheets
If Feuille.Name <> "Menu" Then
Emplacement = "'" & Feuille.Name & "'!A1"
Worksheets("Menu").Hyperlinks.Add Anchor:=Selection, Adresse:="", SubAdresse:=Emplacement, TextToDisplay:=Feuille.Name
ActiveCell.Offset(1, 0).Select
End If
Next Feuille
Application.ScreenUpdating = True
End Sub