Macro sur tout les onglets

[Shpountz]

Bonjour à tous

Est il possible de créer une macro valable pour tout les onglets quelque soit leurs noms ?

En fait je souhaiterais pouvoir lancer une macro meme si je crée un nouvel onglet...

Merci d'avance pour votre aide
Amicalement
Francois

 

[Jacky67]

Bonjour,
Quelque chose comme ceci ??

Sub ToutesLesFeuilles()
Dim Sh As Worksheet
For Each Sh In ThisWorkbook.Worksheets
MsgBox Sh.Name
Next
End Sub

*Ou comme cela
Placé dans le Thisworkbook

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
MsgBox Sh.Name
End Sub

 

[Shpountz]

Merci Jacky67

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 ?

Merci
François

 

[Jacky67]

Merci Jacky67

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 ?

Merci
François

Re..
Dans l'un ou l'autre exemple

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

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

 

[Shpountz]

Merci jacky67

C'est parfait