Onglets classeurs

[Claudy]

Bonjour à tous,
dans un classeur avec quelques onglets:Janvier 2008, fevrier 2008, etc.... et une feuille Zaza.
Pour chaque feuille j'ai ceci:
Private Sub Worksheet_Change(ByVal Target As Range)
For Each Sh In ActiveWorkbook.Worksheets
If Sh.Range("D2").Value < 0 Then
Sh.Tab.ColorIndex = 3
ElseIf Sh.Range("D2").Value > 0 Then
Sh.Tab.ColorIndex = 4
'End If
End If
Next
End sub
Cela marche trop bien!
Mais je voudrais arranger For Each Sh In ActiveWorkbook.Worksheets
pour que cela ne s'applique pas à ma feuille "zaza" (qui est en fait la dernière feuille)
Merci d'avance,
Claudy

 

[Dull]

Re : Onglets classeurs

Salut Claudy, le Forum

pas sur mais essaye de mettre ces lignes en gras

For Each Sh In ActiveWorkbook.Worksheets
    [B]If Sh.Name <> "zaza" Then[/B]
        If Sh.Range("D2").Value < 0 Then
            Sh.Tab.ColorIndex = 3
                ElseIf Sh.Range("D2").Value > 0 Then
            Sh.Tab.ColorIndex = 4
        End If
    [B]End If[/B]
Next

Bonne Journée

 

[Claudy]

Re : Onglets classeurs

Bonjour et merci, Dull
Ca marche très bien!
Bonne fêtes de fin d'année.
Claudy