Colorer un onglet en fonction d'une cellule

Bonjour,

J'ai un dossier à rendre où je dois colorer en rouge les onglets pour lesquels une cellule est inférieure à 5000 et en vert où la cellule est inférieure à 5000.

Je suis une novice en VBA et donc complètement perdue. Merci par avance pour ceux qui m'accorderont un petit peu de temps.

Maëlle

Bonjour Maëlle,

voici un exemple,

Sub test()
With Sheets("Feuil1")
    Select Case .Range("A1")
    Case Is > 5000: .Tab.Color = 255
    Case Is < 5000: .Tab.Color = 15773696
    End Select
End With
End Sub

Salut Maelle, salut i20100

un autre exemple

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then
        If Target.Value < 5000 Then
            Me.Tab.Color = vbRed
        Else
            Me.Tab.Color = vbGreen
        End If
    End If
End Sub

Merci à tout les deux pour votre réactivité !

Mais comment puis-je réaliser cette opération avec plusieurs cellules et plusieurs onglets ? Je m'explique …

Si la cellule "C15" de ma feuille 1 est supérieur à 5 000, alors je dois colorer l'onglet de ma feuille 2 en vert, sinon ce sera en rouge.

Et si la cellule "D15" de ma feuille 1 (toujours) est supérieur à 5 000 alors je dois colorer l'onglet de ma feuille 3 (là il y a un changement) en vert, sinon en rouge.

Je ne parviens pas à adapter vos réponses dans ce cas là…

Encore merci pour vos aides précieuses !

Maëlle

Bonjour à tous,

à tester, (copie la macro sur la page code de la Feuil1)

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Address = "$C$5" Then
        If Target.Value > 5000 Then
            Sheets("Feuil2").Tab.Color = vbGreen
        Else
            Sheets("Feuil2").Tab.Color = vbRed
        End If
    End If

    If Target.Address = "$D$15" Then
        If Target.Value > 5000 Then
            Sheets("Feuil3").Tab.Color = vbGreen
        Else
            Sheets("Feuil3").Tab.Color = vbRed
        End If
    End If

End Sub

Parfait, merci pour votre aide !

Merci pour ce retour, bonne continuation!