Discussion :

[aweb]

Bonjour

Je voulais savoir s'il était possible de donner une couleur à une feuille en fonction d'un critère se trouvant sur celle-ci ?

Par exemple, j'ai le nom du commercial en E3, et si c'est Jacques, alors la couleur de la feuille se met en bleu, si c'est Paul en vert, si c'est Martin en jaune ...

D'avance Merci

[Invité]

Bonjour,

J'imagine qu'il faut comprendre : colorer le nom de l'onglet.

Dans un module standard :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Sub MettreEnCouleur(ByVal OngletEnCours As Worksheet, ByVal Prenom As String)
 
    With OngletEnCours
         Select Case Prenom
                Case "Jacques"
                     .Tab.Color = RGB(68, 114, 196)
                Case "Paul"
                     .Tab.Color = RGB(0, 255, 0)
                Case "Martin"
                     .Tab.Color = RGB(255, 255, 0)
                Case Else
                     .Tab.Color = RGB(255, 255, 255)
         End Select
   End With
 
End Sub

Dans le module de l'onglet :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
   If Target.Count > 1 Then Exit Sub
 
   If Not Intersect(Target, Range("E3")) Is Nothing Then
      MettreEnCouleur ActiveSheet, Target
   End If
 
End Sub

[aweb]

Bonjour

Merci Eric pour votre réponse

Je n'ai pas réussi à adapter votre code.
Sur les dernières lignes, pour le

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Case Else
 .Tab.Color = RGB(255, 255, 255)

il indique

Erreur d'exécution 424" Objet requis.

Désolé, je suis vraiment débutant en VBA.

D'avance Merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub Mettreencouleurfeuille()
'
' Mettreencouleurfeuille Macro
'
 
'
   ' ByVal OngletEnCours As Worksheet
   ' ByVal Prenom As String)
 
    With OngletEnCours
         Select Case Prenom
                Case "Jacques"
                     .Tab.Color = RGB(68, 114, 196)
                Case "Paul"
                     .Tab.Color = RGB(0, 255, 0)
                Case "Martin"
                     .Tab.Color = RGB(255, 255, 0)
                Case Else
                     .Tab.Color = RGB(255, 255, 255)
         End Select
   End With
 
End Sub

[Invité]

Bonjour,

Vu ce que je vois, pas sûr qu'on parle de la même chose...

[aweb]

J'ai certainement mal posé mon besoin.

J'ai un classeur excel avec plus de 400 feuilles, toutes identiques dans la construction.

J'aimerais une macro qui me mettent la feuille (ou l'onglet) d'une couleur en fonction du nom qui est écrit en E3.

L'idée étant que je passe pas manuellement sur toutes le feuilles pour lancer la macro, mais qu'elle passe automatiquement sur toutes les feuilles du classeur pour lire la cellule E3 et appliquer la bonne couleur à l'onglet.

Merci encore

[Invité]

Quand tu parles d'onglet, c'est ça que tu essaies d'obtenir ?
Pièce jointe 551576