troopers87
XLDnaute Occasionnel
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 !
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
'1 = noir
'2 = blanc
'3 = rouge
'4 = vert
'5 = bleu
'6 = jaune
'7 = rose
'8 = cyan
'9 = bordeau
'10 = vert sombre
'End Sub