Ca fonctionne très bien.
Et bien entendu je n'ai pas percuté que cela incluait tout les onglets....
Y a t'il une possibilité de ne pas en traiter certains en les nommant ?
Ca fonctionne très bien.
Et bien entendu je n'ai pas percuté que cela incluait tout les onglets....
Y a t'il une possibilité de ne pas en traiter certains en les nommant ?
Sub ToutesLesFeuilles()
Dim Sh As Worksheet
For Each Sh In ThisWorkbook.Worksheets
If Sh.Name <> "Feuil1" Then ' ici adatper tous les noms de feuille a exclure
MsgBox Sh.Name
End If
Next
End Sub
Code:
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name <> "Feuil1" Then ' ici adatper tous les noms de feuille a exclure
'If Sh.Name <> "Feuil1" And Sh.Name <> "Feuil2" Then ' exemple
MsgBox Sh.Name
End If
End Sub