bonjour Denis,
le classeur comporte plusieurs feuilles et la revision est a appliquer sur la feuille ...
merci, @+
If liste_feuille(i) Then
liste_feuille(Sh.Index) = True
liste_feuille(Sh.Index) = True
Private Sub Workbook_NewSheet(ByVal Sh As Object)
ReDim Preserve liste_feuille(1 To Sheets.Count)
num = Sheets.Count
Do Until num = Sh.Index
liste_feuille(num) = liste_feuille(num - 1)
num = num - 1
Loop
liste_feuille(Sh.Index) = False
End Sub
Attention: il faut passer par une insertion de feuille et non une copie de feuille existante, sinon l'évenement "NewSheet" n'est pas exécuter , curieux....
liste_feuille(Sh.Index) = True
Arfff, tu n'as pas encore les bons outils, il faut aller chez Casto et pas le bouiboui du coin .je bricole, je bricole