Lancer macro suivant la couleur de l'onglet

Bonjour à tous!

J'ai parcouru pas mal de forum mais je ne trouve pas mon bonheur...

Voici mon problème:

J'ai fait une macro générale qui parcours toutes feuilles de mon classeur.

Les données de chaque feuille se trouvent modifiées si la feuille a déjà tourné avec la macro en question.

C'est pourquoi je voudrais écrire une ligne dans ma macro qui donnerait comme condition: "si l'onglet de la feuille est rouge ne pas effectuer la macro sur cette feuille sinon lancer la macro"

Merci de votre aide!

BZH83

Bonjour,

voici comment accéder à la couleur

Sub test()

Dim sw As Worksheet
For Each sw In Worksheets

    sw.Select
    With ActiveSheet.Tab
        If .Color = 255 Then MsgBox "Cette feuille est Rouge !"
    End With

Next
End Sub

Salut BZH83

Voici un code qui pourrait te convenir

Sub ExecuteCodeSiCouleurOngletPasRouge()
  Dim Sht As Worksheet
  ' Pour chaque feuille du classeur
  For Each Sht In ThisWorkbook.Sheets
    ' Vérifier la couleur de l'onglet
    If Sht.Tab.Color <> 255 Then
      ' On exécute le code
    End If
  Next Sht
End Sub

A+

Edit : oups, salut Steelson

Salut BrunoM45 et Steelson!

Merci pour vos réponses très rapides!

Je vais tester cela tout de suite et je reviens vers vous

Merci encore!

Ça fonctionne à merveille!!

Merci beaucoup à vous deux!