En habitué du forum, je présume que tu as regardé les discussions similaires en bas de page ou que tu as fait une recherche ... dans les deux cas, tu as bien dû trouver des pistes dont tu pouvais t'inspirer.Si vous savez, merci de me dire comment faire
Private Sub Worksheet_Activate()
''Code de BOISGONTIER (merci !)
[C5:C100].ClearContents
For i = 2 To Sheets.Count
nf = Sheets(i).Name
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i + 3, 3), Address:="", SubAddress:="'" & _
nf & "'" & "!A1", TextToDisplay:=nf
Next i
[C5:C100].Sort Key1:=Range("C5"), Order1:=xlAscending, Header:=xlGuess
End Sub
Re-bonjour,
Voir le fichier joint.
A bientôt
'Option Explicit
Private Sub Worksheet_Activate()
''Code de BOISGONTIER (merci !)
[A2:A200].ClearContents
For i = 2 To Sheets.Count
nf = Sheets(i).Name
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i + 3, 3), Address:="", SubAddress:="'" & _
nf & "'" & "!A1", TextToDisplay:=nf
Next i
[A2:A200].Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess
End Sub
Et pourtant tu persistes à poser des questions sans recherche préalable avec la loupe ...Bonsoir tous
anthoys
Inscrit sur XLD depuis janvier 2008, il devrait t'être impossible d'oublier ce réflexe salvateur
NB: Surtout si on s'attarde quelques instants sur ta signature
Bonsoir à tous
anthoys
C'est pas le tout de liker pour ensuite passer la loupe aux oubliettes...
Explication: tu as liké ma réponse dans un de tes fils récents.
Et pourtant tu persistes à poser des questions sans recherche préalable avec la loupe ...
Va comprendre, Charles !