Créer liste feuilles spécifiques [Résolu]

[moon1239]

Bonjour à tous,

Je cherche une macro pour lister les feuilles de mon classeurs, mais j'aimerais lister uniquement les feuilles 22 à 39 avec des liens hypertextes.
j'ai trouver la macro suivante:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub LISTE_FEUILLE()
'LISTER LE NOM DES FEUILLES DANS LE CLASSEUR ET CRÉER DES LIENS HYPERTEXTE
Dim i As Integer
For i = 1 To Sheets.Count
 
Cells(i, 1).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
Sheets(i).Name & "!A1", TextToDisplay:="vers " & Sheets(i).Name
Next i
 
End Sub

..Mais je ne veux pas que ce soit toutes les feuilles.
Est-ce possible?

Merci de votre aide! ^_^

[Manuel40]

Tu peux essayer ce code.

Une petite (re)lecture des tutos ne fera pas de mal. Un déroulement en pas à pas (Touche F8) te permettra de mieux comprendre les macros...

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Sub LISTE_FEUILLE()
'LISTER LE NOM DES FEUILLES DANS LE CLASSEUR ET CRÉER DES LIENS HYPERTEXTE
Dim i As Integer
Dim feuille_min As Integer
Dim feuille_max As Integer
 
feuille_min = 22
feuille_max = 39
 
For i = feuille_min To feuille_max
 
Cells(i-feuille_min+1, 1).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
Sheets(i).Name & "!A1", TextToDisplay:="vers " & Sheets(i).Name
Next i
 
End Sub

[moon1239]

Merci beaucoup Manuel40!!
je vais suivre tes conseils! ^_^