VBA Les liens dynamiques entre feuilles

Bonjour,

J'ai 100 feuilles (et plus dans le futur) excel dans un classeur nommées "xxx (1)" "xxx (2)" "xxx (3)" "xxx (4)".

Je dois faire des liens dynamique entre les feuilles en utilisant par exemple ='xxx (1)'!G10 et je voudrais faire automatiquement ='xxx (2)'!G10 ; ='xxx (3)'!G10 ; ect pour éviter de taper 100 fois les chiffres

Quel code VBA utiliser ?

Merci d'avance de votre aide

Salut,

crée une feuille que tu appelles "Index" et qui sera la première de ton classeur

insère la code suivant :

Sub Liens()

Dim aa As Long

Sheets("Index").Select
Range("A1").Select

aa = Sheets.Count

For a = 2 To aa
     ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "'" & Sheets(a).Name & "'!A1", TextToDisplay:="" & Sheets(a).Name
        ActiveCell.Offset(1, 0).Select
Next a
End Sub

Tu pourrais aussi créer un lien depuis chacune de tes feuilles vers l'Index, ça te permettra naviguer plus facilement dans ton classeur, voici le code (Attention : ici le renvoi à l'index se fait à partir de la cellule A1, change l'adresse de la cellule si cela risque d'écraser des données dans ton classeur)

Sub myIndex()

Dim aa As Long

Range("A1").Select'adresse à modifier

aa = Sheets.Count

For a = 2 To aa
Sheets(a).Select
     ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "'Index'!A1", TextToDisplay:="Index"

Next a
End Sub

Merci beacoup