Discussion :

[bernard38]

Bjr,
Comment faire pour aller au dela de 24h ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub BilanHE()
Dim PlageNoms As Range
Dim PlageHeures As Range
Dim CelNom As Range
Dim CelHeu As Range
Dim total As Date
total = 0
 Set PlageNoms = Range("B5:B" & Range("B65536").End(xlUp).Row)
    For Each CelNom In PlageNoms
     col = CelNom.Row
      Set PlageHeures = Range("B" & col & ":AK" & col)
        For Each CelHeu In PlageHeures
          If CelHeu.Interior.ColorIndex = 15 And CelHeu.Value <> "" Then
            total = total + CelHeu.Offset(0, -1).Value
          End If
        Next CelHeu
    Next CelNom
 
    Set PlageDonnees = Nothing
    Set CelDonnee = Nothing

Cdt