Forum Clubic

Coloration conditionnelle d'onglet

Bonjour,

Je cherche à savoir comment faire pour colorer un onglet de feuille sous Excel en fonction du résultat d’une cellule.

Je m’explique : je voudrais que, par exemple, si la case E13 a un nombre supérieur à 0, l’onglet de cette feuille devienne rouge.

Je vous remercie d’avance :slight_smile:

A mon avis, il faut forcément passer par une macro.

Après avoir cherché je n ai rien trouvé dans les macros :frowning:
Quelqu un aurait une idée svp ?

Voici un exemple de macro, qui se déclenche lorsque la sélection change dans la feuille Feuil1.
Si la valeur de la cellule A1 est 1, l’onglet devient rouge, sinon incolore.


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Sheets("Feuil1").Range("A1").Value = 1 Then
    Sheets("Feuil1").Select
    ActiveWorkbook.Sheets("Feuil1").Tab.ColorIndex = 3
  Else
    Sheets("Feuil1").Select
    ActiveWorkbook.Sheets("Feuil1").Tab.ColorIndex = -4142
  End If
End Sub