Onglet couleur

Bonjour,

J'ai un fichier contenant 200 onglets (feuilles)

Je souhaiterais que les onglets des feuilles contenant une valeur en G100 se mettent automatiquement en couleur jaune

Merci de votre aide

MJC

Bonjour,

Ci-joint une proposition à tester.

La couleur est mise à jour :

• à l'ouverture du fichier
• lors de la modification de la cellule G100 sur un des onglets

Bonne journée

Bouben

Bonjour,

Si j'ai compris, si la cellule G200 n'est pas vide, l'onglet est en jaune

A tester.

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim RngPlageVal As Range, RngCel As Range
Dim Valid As Integer, NonValid As Integer

Set RngPlageVal = Range("G200")

For Each RngCel In RngPlageVal

    If RngCel.Value <> "" Then NonValid = NonValid + 1
Next

    If NonValid = 1 Then
        ActiveSheet.Tab.ColorIndex = 6 'jaune
    Else
       ActiveSheet.Tab.ColorIndex = 2 'blanc
    End If
End Sub

Bonjour,

En réalité, il y a la valeur 0 car c'est le résultat d'une formule "SOMME" ect...

Donc, la condition est onglet passe jaune si G100>0

Cordialement

Re

Remplace

If RngCel.Value <> "" Then NonValid = NonValid + 1

par

If RngCel.Value >0 Then NonValid = NonValid + 1

Bravo ! super efficace !

Merci beaucoup