Recherche selon le nom de l'onglet

  • Initiateur de la discussion Initiateur de la discussion fmoore
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

fmoore

XLDnaute Junior
Bonjour,

En recherchant sur le net j'ai trouvé la formule suivante pour me faire une feuille sommaire de toutes mes feuilles du classeur :

Sub sommaire()
Dim feuille(200)
a = 0
For Each Sh In Sheets
feuille(a) = Sh.Name
a = a + 1
Next
Sheets("sommaire loc").Cells(2, 1).Value = "SOMMAIRE DES LOYERS"
For i = 1 To a - 1
Sheets("sommaire loc").Hyperlinks.Add Anchor:=Sheets("sommaire loc").Cells(i + 2, 1), Address:="", SubAddress:= _
feuille(i) & "!A1", TextToDisplay:=feuille(i)
Next i

Sheets("sommaire loc").Activate

End Sub

Cela fonctionne très bien, ça m'inscrit tous les noms de chaque feuille.

Par la suite j'aimerais faire une recherche par le nom de la feuille que chaque cellule D10 soit inscrite sur la feuille sommaire.

Je vous joins un fichier pour être un peu plus claire.

Merci de votre aide.
 

Pièces jointes

Bonsoir @fmoore,
Essayez:
VB:
Sub sommaire()
Dim feuille(200)
  a = 0
  For Each Sh In Sheets
    feuille(a) = Sh.Name
    a = a + 1
  Next
  Sheets("sommaire loc").Cells(2, 1).Value = "SOMMAIRE DES LOYERS"
  For i = 1 To a - 1
    Sheets("sommaire loc").Cells(2 + i, "c") = Sheets(feuille(i)).Range("d10")
    Sheets("sommaire loc").Hyperlinks.Add Anchor:=Sheets("sommaire loc").Cells(i + 2, 1), Address:="", SubAddress:= _
                        feuille(i) & "!A1", TextToDisplay:=feuille(i)
  Next i
  Sheets("sommaire loc").Activate
End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
479
Réponses
5
Affichages
236
Réponses
8
Affichages
466
Réponses
3
Affichages
672
Retour