Faire varier la couleur d'une feuille en fonction d'un critère

**aweb** · 31/03/2020, 15h38

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é · 31/03/2020, 16h46

Envoyé par aweb

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** · 01/04/2020, 09h19

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é · 01/04/2020, 09h37

Envoyé par aweb

Bonjour,

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

**aweb** · 01/04/2020, 09h49

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é · 01/04/2020, 09h53

Envoyé par aweb

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

**aweb** · 01/04/2020, 09h54

oui, c'est bien çà

Invité · 01/04/2020, 09h57

Envoyé par aweb

oui, c'est bien çà

Tu as déjà des macros événementielles dans tes modules d'onglets ?

**aweb** · 01/04/2020, 10h04

non, pas de macros évènementielles

Invité · 01/04/2020, 10h04

Envoyé par aweb

Vue la quantité, ça va sans doute quand même mettre une plombe :

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
24
25
26
27
28
29
30
31
32
33
 
Sub MettreAJourTousLesOnglets()
 
Dim I As Integer
 
    With Application
         .ScreenUpdating = False
         .Calculation = xlCalculationManual
    End With
 
    For I = 1 To Sheets.Count
 
        With Sheets(I)
             Select Case .Range("E3").Value
                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
 
    Next I
 
    With Application
         .ScreenUpdating = True
         .Calculation = xlCalculationAutomatic
    End With
 
End Sub

Invité · 01/04/2020, 10h13

Envoyé par aweb

non, pas de macros évènementielles

La macro que je viens de mettre en ligne traite l'ensemble du fichier.

Pour injecter les macros événementielles dans les modules d'onglet, regarde le tuto de SilkyRoad https://silkyroad.developpez.com/VBA/VisualBasicEditor/

**aweb** · 01/04/2020, 10h53

ça bloque sur la ligne Case "Jacques"Il indique

erreur d'exécution 13" Incompatibilité de type

Désolé...

Invité · 01/04/2020, 10h58

Envoyé par aweb

C'est que tu as une cellule E3 dans un de tes onglets qui n'est pas alpha.

**aweb** · 01/04/2020, 11h55

OK, c'est que j'avais une formule en E3 pour aller chercher via une recherchev le nom de la personne sur une base.
Ces cellules étaient en format "Standard".
J'ai essayé en les mettant en format "Texte" et çà fonctionne.
Est-ce qu'il y a un moyen de faire fonctionner la macro avec ces cellules E3 qui comprennent une formule et qui sont donc en format "Standard" ?

Sinon, lorsque le critère n'est pas respecté, c'est la couleur blanche qui est appliquée (255,255,255).
Je n'arrive pas à trouver le code pour les laisser en "Aucune couleur" ?

D'avance Merci

Invité · 01/04/2020, 12h17

Envoyé par aweb

Tu as combien d'onglets où cela ne fonctionne pas ? As-tu un repère dans le nom de ton onglet ou dans l'onglet pour indiquer que le code peut ou ne peut pas s'appliquer ?

Sinon, pour ta couleur :

Code :

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

1
2
3
 
                            Case Else
                                 .Tab.ColorIndex = xlNone

**aweb** · 01/04/2020, 12h41

En fait, à part 4 onglets généraux où cela fonctionne car je n'ai pas de valeur en E3, ensuite c'est sur tous les onglets que cela ne fonctionne pas, puisqu'ils ont tous la formule en E3.

Invité · 01/04/2020, 12h43

Envoyé par aweb

E

Tu pourrais indiquer ce que tu as comme formule ? Quels sont les noms de tes onglets généraux ?

**aweb** · 01/04/2020, 13h31

oui

La formule en E3 est celle-ci =RECHERCHEV(E2;LISTE!A:G;6;FAUX)

Le nom de mes onglets dans lesquels E3 contient la formule sont par exemple
MODELE
AAR NEUTRE
Biscuit
Aminéa
...

Les onglets généraux se nomment
Produits
CA
Volume
Sommaire
Liste

Merci

Invité · 01/04/2020, 13h48

Envoyé par aweb

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
Sub MettreAJourTousLesOnglets()
 
Dim I As Integer
 
    With Application
         .ScreenUpdating = False
         .Calculation = xlCalculationManual
    End With
 
    For I = 1 To Sheets.Count
 
        With Sheets(I)
             Select Case .Name
                    Case "Produits", "CA", "Volume", "Sommaire", "Liste"
 
                    Case Else
                         Select Case .Range("E3").Text
                                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.ColorIndex = xlNone
                         End Select
              End Select
        End With
 
    Next I
 
    With Application
         .ScreenUpdating = True
         .Calculation = xlCalculationAutomatic
    End With
 
End Sub

**aweb** · 01/04/2020, 14h09

SUPER !!!

çà fonctionne à merveille.

Merci beaucoup Eric

Faire varier la couleur d'une feuille en fonction d'un critère

Macros et VBA Excel

Discussions similaires

Partager

Partager