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

[Qwazerty]

Salut
Je penses que tu as 3 choix possible,

soit la valeur inscrite dans total, je suppose que tu l'as transfert dans une cellule et a ce moment dans le format de la cellule tu mets "[h]" ce qui t'afficheras le nombre d'heures cumulées et non pas 1j5h au lieu de 29h

soit tu utilises format(total,....) regarde dans l'aide je pense (mais ne suis pas sur) que tu as possibilité de le faire avec.

soit au lieu de déclarer total As Date tu le déclares As Integer,

pour ma part je pense que la dernière option et la meilleur, a savoir que si tes cellules "CelHeu.Offset(0, -1).Value" ont un format particulier, il te faudra utiliser "CelHeu.Offset(0, -1).Value2" dans ce cas me semble t-il.

A++
Qwaz

[bernard38]

Bsr,

J'ai essayé il me donne des entiers.1,2,3.... Je pense que c'est le nombre de fois 24h ?
Cdt

[Qwazerty]

Re
Que contiennent exactement les cellules que tu cherches a additionner?
Je serais curieux de voir ton tableau mais avec juste une fonction perso qui te retourne la couleur de la cellule il est surement possible de faire ca via des formules
++
Qwaz

[bernard38]

Des heures sous la forme 15:20:00 (hh mn ss) J'essaie de faire l'addition mais dès que c'=est au dela de 24h il me donne un format de date.Je veux additionner par exemple la cellule A1 qui contient 12:00:00 et la cellule A3 qui contient 13:00:00 Les formats de ces cellules sont "Heures 37:30:00"

[Qwazerty]

Re
Alors modifie juste ton format de cellule comme suit
"Heures "[h]:mm:ss
ca devrait le faire je pense
++
Qwaz