Recherche selon le nom de l'onglet

[fmoore]

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.

 

[mapomme]

Bonsoir @fmoore,
Essayez:

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

 

[fmoore]

La base est parfaite j'ai seulement ajouter des
Sheets("sommaire loc").Cells(2 + i, "c") = Sheets(feuille(i)).Range("d10")
selon mes variables et tout fonctionne.

Merci vraiment beaucoup.