Modifier la couleur de mes onglet en fonction de numéro en A1 (1, 2 ou 3)

Bonjour, est-il possible de modifier la couleur des onglets si je tape en A1 soit 1 ou 2 ou 3 et ainsi obtenir mes onglets, soit Bleu, vert ou rose.

J'ai naviguer sur le forum mais pas trouver ce que je souhaite faire, alors, si cela est possible, je vous remercie d'avance si vous avez la solution.

Bonne soirée à tous

Bonsoir Rolins, le forum,

A tester:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
 If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
  Select Case Target.Value
   Case Is = 1
    Sh.Tab.ColorIndex = 8
   Case Is = 2
    Sh.Tab.ColorIndex = 4
   Case Is = 3
    Sh.Tab.ColorIndex = 22
   Case Else
    Sh.Tab.Color = xlNone
  End Select
 End If
End Sub

Code à placer dans le module ThisWorbook pour agir sur toutes les feuilles....

Cordialement,

Bonsoir,
Et une autre !?
Cdlt.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim n As Long
    If Target.Address = "$A$1" Then
        Select Case Target.Value
            Case 1: n = 12611584        'bleu
            Case 2: n = 5287936         'vert
            Case 3: n = 8420607         'rose
            Case Else: n = 16777215     'no fill
        End Select
        Me.Tab.Color = n
    End If
End Sub

Bonsoir le forum

Bonsoir Rolins, xorsankukai, Jean-Eric,

Ma modeste contribution, basique mais basique

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
   If Target.Value = 1 Then
      Sheets("Feuil1").Tab.Color = vbBlue
         Sheets("Feuil2").Tab.Color = vbBlue
            Sheets("Feuil3").Tab.Color = vbBlue
Else
If Target.Value = 2 Then
     Sheets("Feuil1").Tab.Color = vbGreen
         Sheets("Feuil2").Tab.Color = vbGreen
             Sheets("Feuil3").Tab.Color = vbGreen
Else
If Target.Value = 3 Then
     Sheets("Feuil1").Tab.Color = RGB(255, 0, 255)
         Sheets("Feuil2").Tab.Color = RGB(255, 0, 255)
             Sheets("Feuil3").Tab.Color = RGB(255, 0, 255)

 End If: End If: End If: End If

End Sub

Bonne soirée à toutes & à tous

Ericcool02

Bonsoir, merci à tous pour votre contribution. et j'ai liké le bon code, car le but est de placer sur chacun des onglet un numéro et d'obtenir la bonne couleur. j'ai 52 semaines soit 52 onglets. Merci à tous je vais pouvoir avancer sur le projet.

Bonne soirée

Bonjour, la macro de Jean-Éric fonctionne très bien mais je dois valider à chaque fois en A1 pour que l'onglet change de couleur. Est-ce qu'il y a un moyen d'eviter cette validation sur les 52 onglets. Merci d'avance ;-)

Bonjour, voici la solution donnée par Jean-Éric, et celle-ci fonctionne très bien, mais je dois me placer en A1 dans chacun des 52 onglet et valider pour que l'onglet change de couleur si la valeur est 1, 2 ou 3 et ça marche. Mais il y a peut-être une manip qui permettrai de la faire automatiquement.

Si vous avez la solution, merci d'avance sinon, je suis déjà très content. Bonne journée à tous

Macro de Jean-Éric

Private Sub Worksheet_Change(ByVal Target As Range)

Dim n As Long

If Target.Address = "$A$1" Then

Select Case Target.Value

Case 1: n = 12611584 'bleu

Case 2: n = 5287936 'vert

Case 3: n = 8420607 'rose

Case Else: n = 16777215 'no fill

End Select

Me.Tab.Color = n

End If

End Sub

Re,

Est-ce qu'il y a un moyen d'eviter cette validation sur les 52 onglets

Je pensais que mon code répondait à ta demande....où ai-je loupé quelque chose ?

Cordialement,

Bonjour, le code fonction parfaitement, c'est de ma faute car sur les 3 premiers onglets j'ai bien placer 1,2 et 3 puis comme l'opération se répète j'a placé une formule =a1 de la feuil1 et ainsi de suite, et comme il s'agit d'une formule il ne considère pas que c'est un nombre, sauf si je ma place en A1 et que je valide, alors ça fonctionne.

Merci pour votre formule et le temps passé.

Merci à tous pour votre participation