Explication fonctionnement macro table des matieres

Re : Explication fonctionnement macro table des matieres

Bonjour
Normal , Alt F8 te donne les Macros SUB simple , comme Sub toto()
La c'est : Private Sub Worksheet_Activate()
Alt F11 te donne accès à VBA , donc te montre le code

Re : Explication fonctionnement macro table des matieres

merci Hervé 62...
mais si je suppriem private

je peux voir le nom avec alt f8 et le code alt f11

donc quel est l'intéret d'avoir du private?

merci à toi


' Code à placer dans le code du 1er onglet (table des matières)
Sub Worksheet_Activate()
Dim i As Integer

Range("A2:A100").ClearContents 'effacer les liens existants.

For i = 2 To Worksheets.Count 'on commence au 2e onglet
Range("A" & i).Select

'On doit mettre en ' avant et après le nom de l'onglet
' car s'il contient un espace le lien hypertexte
' ne fonctionnera pas.
'Si aucun des onglets ne contient d'espace, on peut omettre le '
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", _
SubAddress:="'" & Worksheets(i).Name & "'!A1", _
TextToDisplay:=Worksheets(i).Name

Next
End Sub