Bonjour,
J'ai créé ce code pour lister tous les onglets qui se trouve après l'onglet "onglet" et les afficher sur l'onglet "sommaire" avec liens hypertext.
Pour le coup tout fonctionne bien.
Seulement, dès qu'il y a beaucoup d'onglets, cela met beaucoup de temps pour le traitement.
Quelqu'un à une idée? (J'ai mis le fichier en PJ)
Merci d'avance
Private Sub Worksheet_Activate()
'effacement des données de la colonne A et rajout d'un lien hypertexte pour chaque onglet
[a14:a3000].ClearContents
Dim num As Long
num = Sheets("onglet").Index + 1
For i = num To Sheets.Count
nf = Sheets(i).Name
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i + 4, 1), Address:="", SubAddress:="'" & _
nf & "'" & "!g13", TextToDisplay:=nf
Next i
End Sub