Bonjour,
je souhaiterais mettre un onglet en rouge si une des cellules de la feuilles est rouge.
J'ai créé ce code pour modifier la couleur de l'onglet si la cellule A1 est rouge. Il fonctionne mais comment puis-je l'appliquer à toute la feuille? C-à-d si au moins une des cellules est rouge alors colorier l'onglet en rouge (sinon le mettre en vert).
Sub CouleurOnglet()
Sheets("Feuil1").Select
If Range("A1").Interior.ColorIndex = 3 Then
With ActiveWorkbook.Sheets("Feuil1").Tab
.Color = 255 'rouge
End With
Else: With ActiveWorkbook.Sheets("Feuil1").Tab
.Color = 5287936 'vert
End With
End If
End Sub
Je mets le fichier en pj.
Merci de votre aide