Création sommaire - Récupérer valeur cellule Résolu/Fermé

Question

Bonjour, 
J'essaye de mettre en place un sommaire avec VBA, voici le code que j'ai trouvé :

Sub CréationSommaire()
Dim Feuille As Worksheet
Worksheets("Sommaire").Activate
Range("B3").Select
For Each Feuille In Worksheets
ActiveCell.Value = Feuille.Name
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"'" & Feuille.Name & "'!A1", TextToDisplay:=Feuille.Name
ActiveCell.Offset(1, 0).Select
Next Feuille
End Sub

J'aimerais que le texte qui apparaît dans la cellule ne soit pas le nom de l'onglet mais le contenu de la cellule A1 de la feuille concernée
J'ai essayé de modifier le TextToDisplay mais cela ne marche pas.

Je vous remercie pour votre aide !

Configuration: Windows / Edge 15.15063

cs_Le Pivert · Answer

Bonjour,

comme ceci:

Sub CréationSommaire()
Dim Feuille As Worksheet
Dim nom As String
Worksheets("Sommaire").Activate
Range("B3").Select
For Each Feuille In Worksheets
If Feuille.Name = "Sommaire" Then
Else
nom = Worksheets(Feuille.Name).Range("A1").Value
ActiveCell.Value = Feuille.Name
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"'" & Feuille.Name & "'!A1", TextToDisplay:=nom
ActiveCell.Offset(1, 0).Select
End If
Next Feuille
End Sub

Lapi4x · Answer

Super, merci beaucoup !
J'ai également une page de garde, située avant le sommaire. 
Comment puis-je l'enlever du sommaire également ?

Lapi4x · Answer

C'est parfait, merci beaucoup !!

Création sommaire - Récupérer valeur cellule

3 réponses

Discussions similaires