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

Résolu/Fermé

Lapi4x - 17 oct. 2017 à 10:38
Lapi4x - 17 oct. 2017 à 12:12

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 !

A voir également:

Création sommaire - Récupérer valeur cellule
Sommaire word - Guide
Recuperer video youtube - Guide
Comment récupérer un compte facebook piraté - Guide
Recuperer message whatsapp - Guide
Creation compte gmail - Guide

3 réponses

Réponse 1 / 3

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
17 oct. 2017 à 11:30

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

Réponse 2 / 3

Lapi4x
17 oct. 2017 à 11:45

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

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
17 oct. 2017 à 12:01

If Feuille.Name = "Sommaire" Or Feuille.Name = "nom page de garde"  Then

Réponse 3 / 3

Lapi4x
17 oct. 2017 à 12:12

C'est parfait, merci beaucoup !!

Discussions similaires

Excel VBA : Récupérer la valeur d'une cellule

Discussions similaires

Newsletters