XL 2010 Compter les onglets de couleurs

michel.dupont

XLDnaute Occasionnel
Bonjour
question simple et sans doute complexe à la fois
dans un classeur comment compter (VBA ou fonction) le nombre d'onglet d'une certaine couleur par exemple rouge
Merci de votre aide
Michel
 

job75

XLDnaute Barbatruc
Bonjour michel.dupont, Patrick,

Non ce n'est pas bien compliqué, placer cette fonction VBA dans un module standard du fichier joint :
Code:
Function CompteCouleurOnglets&(c As Range)
Application.Volatile
Dim coul&, s As Object
coul = c.Interior.ColorIndex
For Each s In ThisWorkbook.Sheets
    If s.Tab.ColorIndex = coul Then CompteCouleurOnglets = CompteCouleurOnglets + 1
Next
End Function
La fonction est volatile et se recalcule quand on appuie sur la touche F9.

Ou si l'on préfère en sélectionnant une autre cellule avec ce code dans ThisWorkbook :
Code:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Calculate 'recalcule les fonctions volatiles
End Sub
A+
 

Pièces jointes

  • Couleurs onglets(1).xlsm
    26.7 KB · Affichages: 34
Haut Bas