Colorier un onglet en fonction du nombre de valeurs d'une colonne

  • Initiateur de la discussion Initiateur de la discussion thematt
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

thematt

XLDnaute Nouveau
Bonjour à tous 😀

J'ai cherché partout sur le net et dans l'aide Excel, je n'ai pas trouvé de réponse, sauvez-moi ! 😉

J'ai une feuille Excel avec une cinquantaine d'onglets, je souhaite colorier chaque onglet en fonction du nombre de valeurs dans la colonne A. Voilà ce que j'ai pu programmer, et qui ne fonctionne pas (J'avoue que c'est du bidouillage mais je suis novice en VBA 😱) :
Code:
Sub Coloriage()
Range("I1").Select
ActiveCell.FormulaR1C1 = "=COUNT(R[1]C[-8]:R[29]C[-8])"
COMPTE = Range("I1")
If COMPTE = 0 Then ActiveSheet.Tab.ColorIndex = 3
End
If COMPTE < 5 And COMPTE > 0 Then ActiveSheet.Tab.ColorIndex = 44
End
If COMPTE > 4 Then ActiveSheet.Tab.ColorIndex = 4
End
Range("I1").Select
ActiveCell.ClearContents
End Sub

Ensuite, je ne sais pas comment faire pour passer à l'onglet suivant automatiquement et éxecuter à nouveau la macro...

Merci à tous de votre aide, au plaisir de vous lire !
 
Re : Colorier un onglet en fonction du nombre de valeurs d'une colonne

Bonjout thematt

Et bienvenue sur XLD

A tester:

Code:
Sub Coloriage()
For Each sh In Sheets
 COMPTE = Application.WorksheetFunction.CountA(sh.Range("A2:A30")) 
 Select Case COMPTE
Case Is = 0
  sh.Tab.ColorIndex = 3
Case Is > 4
 sh.Tab.ColorIndex = 44
Case Else
  sh.Tab.ColorIndex = 4
End Select
Next
End Sub
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour