Bonjour
Dans le Module4
Sub ListeOnglets()
Range("L1").Select
ActiveCell.Value = "Liste des Feuilles"
For i = 3 To Worksheets.Count
[L1].Offset(i - 2, 0).Value = Worksheets(i).Name
Next i
End Sub
Le Bouton est sur la Feuille Base en J11:K11 et édite la liste des feuilles (sauf Base et Fiche convoi) en colonne L
Cette liste est nommée Liste_des_Feuilles par la formule
=DECALER(Base!$L$1;1;;NBVAL(Base!$L:$L)-1)
Code de Feuille ajouté à la feuille Fiche Convoi
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$1" Then
ActiveSheet.Hyperlinks.Add Anchor:=Target, Address:="", SubAddress:= _
Chr(39) & Sheets(Target.Value).Name & Chr(39) & "!A1", TextToDisplay:=Target.Value
End If
End Sub
Quand tu sélectionnes un nom dans la liste, celle-ci affiche un lien hypertexte cliquable
Cordialement