Compteur en VBA en fonction de la couleur des cellules

[eurisis]

Bonjour à tous,

Je vous expose mon problème :
J’ai une feuille Excel où dans les colonnes LMN j’ai des couleurs jaune, orange et rouge en fonction d’évènements, et S idem.

Je désirerais faire un compteur pour savoir combien j’ai de jaune, combien j’ai de cellules orange et rouge, pour L, pour M, pour N, et pour S

Merci par avance pour votre aide.

Eurisis

 

[JNP]

Re : Compteur en VBA en fonction de la couleur des cellules

Bonsoir Eurisis 🙂,
Regarde les discussions simililaires en bas à gauche de cette discussion, le forum fourmille d'exmples de ce que tu veux faire 🙄...
Bon courage 😎

 

[flyonets44]

Re : Compteur en VBA en fonction de la couleur des cellules

Bonjour, un début de piste
Sub comptcouleur
dim Rng as range, Cll as object
set rng=range("L1:N500")
For each cll in rng
Select Case Cll.Interior.ColorIndex
Case 1
strColor = "Black"
IndexNuma = indexnuma+ 1
Case 2
strColor = "Brown"
IndexNumb = indexnumb+1
'et ainsi de suite pour toute les couleurs
end select
cells(1,1).value =indexnuma
cells(2,1).value =indexnumb etc...
end sub
cordialement
Flyonets