Incrémentation compteur par couleur

[Stéphane]

Bonjour à tous,
Je recherche la méthode pour incrémenter un compteur par rapport à des couleurs.
Par exemple je voudrais l'addition d'une nombre de fois écrit en rouge dans d'une colonne.

Est-ce faisable et comment ?

 

[Mytå]

Salut Stéphane et le forum

Regarde en piece jointe si cela pourrait te convenir

A suivre

 

[Stéphane]

Cela à l'air tout à fait comme il faut. Mais ni connaissant rien , serait pas trop indiscret de savoir comment as tu procédé.
Merci d'avance

 

[Mytå]

Re Stéphane

Si tu ouvre le fichier tu fait Alt-F11 te voila en VBA

Clique sur la Feuil1 un code devrait apparaitre comme ceci

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim colonne As Byte, rang As Byte, a As Integer
Dim vert As Integer, jaune As Integer, rouge As Integer
vert = 0
jaune = 0
rouge = 0
For colonne = 2 To 4
For rang = 7 To 14
a = Cells(rang, colonne).Font.ColorIndex
'Compte le nombre de cellules d'une couleur
If a = 4 Then vert = vert + 1
If a = 6 Then jaune = jaune + 1
If a = 3 Then rouge = rouge + 1
Next rang
Cells(15, colonne).Value = vert
Cells(16, colonne).Value = jaune
Cells(17, colonne).Value = rouge
vert = 0: jaune = 0: rouge = 0
Next colonne
End Sub

Mytå

 

[Stéphane]

Merci beaucoup Myta...