XL 2010 Compter les onglets de couleurs

michel.dupont · 2 Octobre 2018

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

Victor21 · 2 Octobre 2018

Bonjour michel.dupont.
De la lecture ? (Obtenue via F1)

job75 · 2 Octobre 2018

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+

michel.dupont · 4 Octobre 2018

Parfait! Génial! un très grand merci!
Michel

XL 2010 Compter les onglets de couleurs

michel.dupont

XLDnaute Occasionnel

Victor21

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Pièces jointes

michel.dupont

XLDnaute Occasionnel

Discussions similaires

XL 2010 Compter les onglets de couleurs

michel.dupont

XLDnaute Occasionnel

Victor21

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Pièces jointes

michel.dupont

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency