Changement de la couleur d'un onglet

Bonjour,

je souhaite savoir s'il est possible de changer la couleur de l'onglet de la feuille N+1 suivant le contenu d'une cellule de la feuille N?

merci de votre réponse.

Bonne journée à tous.

Bonjour bretin, le forum,

je souhaite savoir s'il est possible de changer la couleur de l'onglet de la feuille N+1 suivant le contenu d'une cellule de la feuille N?

Oui.

Un exemple:

si A1=1 : jaune

si A1= 2 : rouge

Si A1=3: vert

Si A1= 4: bleu

Si autre: rien

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target <> Range("A1") Then Exit Sub
  Select Case Target.Value
   Case Is = 1
    Sheets("Feuil2").Tab.ColorIndex = 6
   Case Is = 2
    Sheets("Feuil2").Tab.ColorIndex = 3
   Case Is = 3
    Sheets("Feuil2").Tab.ColorIndex = 4
   Case Is = 4
    Sheets("Feuil2").Tab.ColorIndex = 5
   Case Else
    Sheets("Feuil2").Tab.ColorIndex = xlNone
   End Select
End Sub

Cordialement,

Bonjour le forum

Bonjour bretin, xorsankukai (pas rafraichi)

Une piste :

Private Sub Worksheet_Change(ByVal Target As Range)
If ActiveWorkbook.Sheets("Feuil1").Range("A1") = "1" Then
Sheets("Feuil2").Tab.ColorIndex = 3
ElseIf Range("A1") = "2" Then
Sheets("Feuil2").Tab.ColorIndex = 5
ElseIf Range("A1") = "3" Then
Sheets("Feuil2").Tab.ColorIndex = 8
End If
End Sub

@+ Ericcool02

Bonjour Bretin , xorsankukai, Ericcool02,

Une autre piste: Faire clic droit sur un onglet, choisir une couleur parmi toutes les couleurs proposées.

Puis avec le code ci-dessous récupérer la valeur couleur. Exemples Orange moyen = 683492, Violet = 8079712 …

KolorOrange = Sheets("Nomdelafeuille").Tab.Color
 

Puis avec le code ci-après

Sheets("AutreNomFeuille").Tab.Color = 683492 
 'ou KolorOrange si tu préfères la variable

Donc si ta cellule A1 vaut 1 choisir une des valeurs couleur que tu souhaites attribuer. Et idem pour d'autres valeurs de A1...

Bons tests, bonne continuation.