Comptage couleur

:woohoo: Bonjour,

J'aurais besoin d'un coup de main pour développer une macro.
Je n'arrive pas à faire une somme d'une plage de cellule selon le code couleur d'une cellule voisine.

J'ai trouvé bcp d'élement sur 'compter les codes couleur' mais pas sur ce que je voulais exactement.

Je joint un fichier qui est sensé expliquer ce que j'ai besoin de faire.


Merci de votre aide

Cliquez pour agrandir...

Mat écrit:

:woohoo: Bonjour,

J'aurais besoin d'un coup de main pour développer une macro.
Je n'arrive pas à faire une somme d'une plage de cellule selon le code couleur d'une cellule voisine.

J'ai trouvé bcp d'élement sur 'compter les codes couleur' mais pas sur ce que je voulais exactement.

Je joint un fichier qui est sensé expliquer ce que j'ai besoin de faire.


Merci de votre aide

Cliquez pour agrandir...

[file name=B.zip size=18825]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/B.zip[/file]

Cliquez pour agrandir...

Sub FaseHeure()
Dim Coul As Integer, Cumul As Integer
      With Worksheets('Fase M2P')
            For colIndex = 6 To 129
                  Cumul = 0
                  For rwIndex = 14 To 27
                        'Si cellule en vert ou gris
                        Coul = .Cells(rwIndex, colIndex).Interior.ColorIndex
                        If Coul = 35 Or Coul = 15 Then
                              'On fait le cumul de la Durée
                              Cumul = Cumul + .Cells(rwIndex, 4)
                        End If
                  Next rwIndex
                  'Affichage du cumul
                  .Cells(3, colIndex).Value = Cumul
            Next colIndex
      End With
End Sub

Cliquez pour agrandir...