Explication fonctionnement macro table des matieres

[urbanito1]

Bonjour à la communauté,

j'ai trouvé la petite macro tables de matières sur un des sites

Option Explicit

' Code à placer dans le code du 1er onglet (table des matières)
Private 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

je la copie pour l'adapter à mon classeur


question :

lorsque je regarde avec alt F8 : il ne m'affiche rien comme macro

par contre si je fais alt F11 je tombe sur le code de la macro feuille 1

quelq'un pourrait-il m'exliquer ?

merci bien
urbanito1

 

[herve62]

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

 

[urbanito1]

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