calcul des heures de travails en fonction de la couleur de la case?

[nonameboy007]

Bonjour Messieurs Dames,

Voici ce que je désirerais avoir:




L'heure de debut et de fin sont dans des cases différentes.

J'essaye de faire un script vba qui me fasse modulo de mes heures jaunes et un autre de mes heures vertes.

Public Function ModParCouleurCellule(Zone As Range, couleur As String)
'additionne le contenu des cellules d'une zone
'en fonction de la couleur de remplissage
'Dim C As Range
Dim c
Dim cvsomme
'Dim moda
'moda = (C.Cells(1, 2).Value - C.Cells(1, 1).Value)
Application.Volatile True
    Select Case couleur
        Case "jaune"
            couleur = 6
        Case "vert"
            couleur = 48
    End Select
    For Each c In Zone.CurrentRegion
    
        'If C.Interior.ColorIndex = couleur Then cvsomme = cvsomme + moda
        If c.Interior.ColorIndex = couleur Then
       'If IsNumeric(C.Value) Then cvsomme = cvsomme + C.Cells(1, 1)
        'cvsomme = C.Cells(1, 0) + C.Cells(1, 1)
               
        cvsomme = c.Offset(1, 0)
     End If
   Next c
    ModParCouleurCellule = cvsomme
End Function

J'y arrive pas donc...

Merci de votre aide !!

Daniel

 

[pierrejean]

Re : calcul des heures de travails en fonction de la couleur de la case?

Bonjour nonameboy

Et bienvenue sur XLD

Voir en R22 et T22

 

[nonameboy007]

Re : calcul des heures de travails en fonction de la couleur de la case? (résolu)

Alors la, merci!

Franchement vous êtes trop top,

Super site, super réactif, le top.


Merci encore,

Daniel