Création sommaire - Récupérer valeur cellule
Résolu
Lapi4x
-
Lapi4x -
Lapi4x -
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 !
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 !
3 réponses
-
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
-
Super, merci beaucoup !
J'ai également une page de garde, située avant le sommaire.
Comment puis-je l'enlever du sommaire également ? -
