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 !
A voir également:
- Création sommaire - Récupérer valeur cellule
- Création sommaire word - Guide
- Recuperer message whatsapp supprimé - Guide
- Creation compte gmail - Guide
- Création site web - Guide
- Media creation tool - Télécharger - Systèmes d'exploitation
3 réponses
Bonjour,
comme ceci:
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