Comptage couleur

M

Mat

Guest
: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
 
M

Matt

Guest
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
 
M

Matthieu

Guest
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]
 

Pièces jointes

  • B.zip
    18.4 KB · Affichages: 25
  • B.zip
    18.4 KB · Affichages: 27
  • B.zip
    18.4 KB · Affichages: 23

myDearFriend!

XLDnaute Barbatruc
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,
 

Discussions similaires

Statistiques des forums

Discussions
311 730
Messages
2 081 989
Membres
101 856
dernier inscrit
Marina40