Bonjour à tous,
Je veux insérer le numéro des pages dans une cellule de chaque page (une page par onglet) de manière automatique, et mis à jour quelque soit l'emplacement de l'onglet ou l'ajout d'onglet... Je veux que cette mise à jour se fasse à chaque selection d'un onglet.
J'ai créé la macro suivante, que j'ai placé dans "This Workbook". Or à chaque fois, j'obtiens un message d'erreur : "erreur de compilation : la déclaration de la procédure ne correspond pas à la description de l'évènement....".
Quelqu'un peut-il m'expliquer pourquoi, et ce que je dois faire pour corriger . Je joins un exemple du fichier.
merci d'avance
Private Sub Workbook_SheetActivate(Cancel As Boolean)
For i = 1 To ThisWorkbook.Worksheets.Count
Worksheets(i).Activate
Cells(1, 1).Select
ActiveCell.Value = "Fiche n°" & i
Next i
End Sub
Je veux insérer le numéro des pages dans une cellule de chaque page (une page par onglet) de manière automatique, et mis à jour quelque soit l'emplacement de l'onglet ou l'ajout d'onglet... Je veux que cette mise à jour se fasse à chaque selection d'un onglet.
J'ai créé la macro suivante, que j'ai placé dans "This Workbook". Or à chaque fois, j'obtiens un message d'erreur : "erreur de compilation : la déclaration de la procédure ne correspond pas à la description de l'évènement....".
Quelqu'un peut-il m'expliquer pourquoi, et ce que je dois faire pour corriger . Je joins un exemple du fichier.
merci d'avance
Private Sub Workbook_SheetActivate(Cancel As Boolean)
For i = 1 To ThisWorkbook.Worksheets.Count
Worksheets(i).Activate
Cells(1, 1).Select
ActiveCell.Value = "Fiche n°" & i
Next i
End Sub