Coloration d'un onglet si le nombre de feuille est égale à 4

[aubelix]

Bonsoir à tous les Amis du Forum. 🙂

Tout d'abord je vous souhaite à toutes et à tous de passer une bonne fête
de réveillon de la SAINT SYLVESTRE. 🙂

Je reviens vers vous pour la dernière question pour l'année 2010.
Mon problème est le suivant:

Comment colorer l'onglet "BASE" en rouge si le nombre de feuilles
est égale à 4. Dès qu'une ou plusieurs feuilles sont crées, le colorer
en vert. J'ai trouvé un code, mais il ne correspond pas à mon attente.

Cijoint.fr - Service gratuit de dépôt de fichiers

Par avance, Merci pour votre aide.
Cordialement.

 

[Pierrot93]

Re : Coloration d'un onglet si le nombre de feuille est égale à 4

Bonjour,

pas tout compris moi :

Comment colorer l'onglet "BASE" en rouge si le nombre de feuilles
est égale à 4. Dès qu'une ou plusieurs feuilles sont crées, le colorer
en vert.

et dès nouvelle feuille si > 4 on fait quoi... un peu plus d'explication est nécessaire, enfin pour moi...
Le mieux serait d'exposer clairement l'ensemble des règles....
bonne fin d'après midi
@+

 

[aubelix]

Re : Coloration d'un onglet si le nombre de feuille est égale à 4

Bonjour Pierrot93 🙂

Merci pour ta réponse.
Dans le fichier que j'ai joints, il y'a 4 onglets.
La feuille "BASE" doit être colorée en rouge.
Si l'on ajoute d'autres feuilles donc le nombre de feuilles
n'est plus de 4, colotrer l'onglet "BASE" en vert.
Et inversement s'i l'on supprime des feuilles contrôler
la quantité des onglets en sachant qu'il y'a toujours 4 ongelts
ceux du fichier joint.
J'espère avoir été clair.

Merci pour votre aide.
Cordialemet.

 

[Gorfael]

Re : Coloration d'un onglet si le nombre de feuille est égale à 4

Salut aubelix et le forum
Bonne et heureuse année 2011
Module ThisWorkBook :

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If ThisWorkbook.Sheets.Count > 4 Then
    ThisWorkbook.Sheets("BASE").Tab.ColorIndex = 3
Else
    ThisWorkbook.Sheets("BASE").Tab.ColorIndex = 4
End If
End Sub

J'avais commencé par la macro NewSheet, mais ça ne fonctionnait pas en supprimant la feuille => une fois passé en rouge, ça y restait.
A+

 

[aubelix]

Re : Coloration d'un onglet si le nombre de feuille est égale à 4

Bonjour Gorfael. 🙂

Merci pour ta réponse.
Cela fonctionne très bien.
J'ai uniquement interverti le code des couleurs.
Pour avoir l'onglet "BASE" en rouge si nb feuilles = 4 et en vert si > 4

Bonne et heureuse année 2011

Cordialement.