Bonsoir à tous,
Bravo pour ce forum que j'ai découvert il y a seulement qqs jours...
Je parviens avec votre aide à compter des cellules de couleurs avec le module suivant :
Function SommeCouleur(plage As Range, CelCouleur As Range) As Long
Dim Couleur
Couleur = CelCouleur.Interior.ColorIndex
For Each Cell In plage
If Cell.Interior.ColorIndex = Couleur Then SommeCouleur = SommeCouleur + 1
Next
End Function
Par contre, je souhaiterai aussi compter les cellules sans fond de couleur (car pour moi c'est une couleur) et avec du texte.
Avez-vous des idées ?
Merci bcp.
