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.
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.