XL 2016 Modification couleur onglet sur variable

troopers87 à dit:

- chaque feuille contient une cellule nommée ETAT_projetx (avec x = le numéro du projet),
- chaque onglet a une position qui est égal à x + 3.

Cliquez pour agrandir...

With ActiveSheet
select case Range("ETAT").Value
case "terminé"
.Tab.Color = vbgreen
case "en retard"
.Tab.Color = vbred
case ???
.Tab.Color = vb???
case ?????
.Tab.Color = vb???
'---
Case Else
.Tab.Color = vbnone
end select
End with

troopers87 à dit:

Bonjour à tous,

Je cherche à modifier la couleur de l'ensemble des onglets de mon classeur (une cinquantaine) selon la valeur d'une cellule nommée qui se situe dans chacune des feuilles. Je m'explique :
- chaque feuille contient une cellule nommée ETAT_projetx (avec x = le numéro du projet),
- chaque onglet a une position qui est égal à x + 3.

Par exemple : la feuille qui contient ETAT_projet5 est la feuille Sheets(8).

Voici où j'en suis dans mon code. Là où je pèche, c'est dans l'intégration de la fameuse variable "x" dans le nom de la cellule et dans numéro de la Sheets. J'espère être clair !

VB:

'Private Sub Workbook_SheetCalculate(ByVal Sh As Object)

'Appliquer une couleur jaune à l'onglet de la feuille
If Range("ETAT_projet1").Value = "Terminé" Then
    ActiveSheet.Tab.ColorIndex = 4
ElseIf Range("ETAT_projet3").Value = "En retard" Then
    Sheets(3).Tab.ColorIndex = 3
End If
'End Sub

Cliquez pour agrandir...

troopers87 à dit:

Bonjour cp4 et merci pour ton aide !

C'est super !
1. J'ai retiré la condition "If Ws.Name Like "Projet*" Then" car mes onglets peuvent avoir d'autres appelations que "Projets #"
2. L'absence de recours au nom de chaque cellule me pose souci. En effet, si jamais à l'avenir, je suis amené à changer l'emplacement de ma cellule "Etat projet", alors il faudra que je le modifie dans le code. N'y a-t-il pas la possibilité de palier à cela ?

Bonne journée, et merci encore !

Cliquez pour agrandir...

troopers87 à dit:

Ahah ! Globalement c'est ça, mais ne noircissons pas le tableau

Oui : les onglets peuvent être nommés librement par l'utilisateur. Pour cela, je pensais faire appel à Sheets(x), par exemple.
Oui : la cellule de validation peut changer de place (si un jour, j'ai besoin de faire évoluer le fichier, par exemple). C'est pourquoi j'ai toujours recours aux plages nommées dans mes macros. C'est plus compliqué à coder, mais c'est bien plus souple, ensuite

Cliquez pour agrandir...

troopers87 à dit:

Bonjour CP4,

Bon sang, on s'en rapproche ! C'est génial !
Je m'attendais à une solution s'en rapprochant, mais pour moi : impossible de mettre cela sur pied ! Bravo !

Mon seul souci est le nom recours à une variable qui prenne en compte le fameux "ETAT_projetx". De fait, si je nomme une autre cellule avec un nom, le fichier plante. N'est-il pas possible de préciser "If Range("Etat_projet"&cmp.Name) = "En cours" Then afin que la condition ne se focalise que sur ces états ?

Cliquez pour agrandir...