Même procédure pour plusieurs feuilles

Bonjour le Forum,

Une question, J'ai fait une tite procédure qui colore le nom de la feuille en rouge avec une condition en cellule...Elle fonctionne très bien.

Mon souci c'est que j'aimerai quelle s'applique à plusieurs de mon classeur (97 feuilles).

J'ai essayé plusieurs méthode sans résultat.

Merci de votre aide .

Private Sub Worksheet_Change(ByVal Target As Range)

'Colorer l'onglet de la feuille "Feuil1"

Dim nomfeuille As String, test As String

nomfeuille = ActiveSheet.Name

test = Sheets(nomfeuille).Range("E2").Value

If test = "Rouge" Then

Sheets(nomfeuille).Tab.Color = RGB(255, 0, 0)

Else

Sheets(nomfeuille).Tab.Color = RGB(255, 255, 255)

End If

End Sub

Bonjour

Comme tu ne précises pas exactement ce que tu veux faire

Une macro à placer dans le module ThisWorkbook

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  If Not Intersect(Range("E2"), Target) Is Nothing And Target.Count = 1 Then
    If Target = "Rouge" Then
      Sh.Tab.Color = RGB(255, 0, 0)
    Else
      Sh.Tab.Color = RGB(255, 255, 255)
    End If
  End If
End Sub

La couleur de l'onglet de la feuille changera de couleur lorsque tu modifieras la cellule E2

Attention sensible à la casse ( Rouge est différent de rouge)

Bonsoir et merci

Oui c'est vrai j 'été un peu vague...Sorry

En fait ça fonctionne comme comme ceux ci :

En E2 une formule =Si(.....) lorsque le résultat est égale à Rouge alors l'onglet devient Rouge. Sinon l'onglet reste blanc.

Ta macro fonctionne pour passé au rouge par contre je dois effacer la formule pour qu'il redevienne blanc.

Merci

Bonsoir

Il faut changer d'évènement

Envoies un fichier