Appliquer une macro à plusieurs feuilles

Bonjour

Je cherche la bonne formule pour appliquer cette macro à plusieurs feuilles

Sauf les 2 premières

Merci pour votre aide

Sub Macro1()
'
' Macro1 
'
    Application.DisplayFullScreen = True
'
    ActiveWindow.DisplayHeadings = False
    ActiveWindow.DisplayGridlines = False
    Application.DisplayFormulaBar = False

End Sub

Bonjour,

Attention à ne pas confondre les feuilles avec les fenetres de l'application…

Pour récupérer la liste des fenetres XL ouvertes, vous pouvez utiliser Application.Windows property (Excel) | Microsoft Learn

L'exemple est assez parlant, il vous suffit de faire une boucle sur cette liste et de vérifier le titre de chaque fenetre.

Par exemple

Sub a()

  For Each fenetre In Application.Windows
    If fenetre.Caption = "Ma fenetre" Then Macro1
  Next fenetre
End Sub

Bonjour

Ce que je cherche à faire sans trop connaitre le VBA ,c'est d'appliquer la macro à plusieurs onglets

Crdlt

Dans ce cas,

Sub a()
  With Thisworkbook.Worksheets("Ma feuille a traiter")
     .Activate     
     Macro1
  End With
End Sub

Il suffit simplement d'activer la feuille avant d'appeler votre macro, puisqu'elle s'applique sur la feuille "visible".