Comptage couleur

[Mat]

: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

 

[myDearFriend!]

Re Mat,

Ton fichier n'est pas joint.

En cas de difficulté : Lien supprimé

Cordialement,

 

[Matt]

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

J'avais pas ZIPPER le fichier

 

[Matthieu]

Matt écrit:

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

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

 

[myDearFriend!]

Re Matthieu,

Heu... pas sûr d'avoir tout compris dans ta bulle d'info...

Cela dit, tu peux peut-être essayer de modifier ta procédure FaseHeure() comme suit :

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

Cordialement,

 

[Matt]

Sympa j'essaye

merci

 

[Matthieu]

Grazie Mille

C'est génial ça marche comme je voulais :lol:

A+