additionner des heures

[a10]

Bonjour

comment additionner des heures et des minutes

par exemple
1h 30 minutes +1h 5minutes soit égale à 2h35 minutes

 

[CHALET53]

Re : additionner des heures

Bonjour,

si ton format de cellule est : hh:mm la somme donnera 02h35

a+

 

[a10]

Re : additionner des heures

Bonsoir,

je voudrais que les personnes inscrives les heures 3.3 pour 3 heure 30 minute
comme cela: 3,3

ce format me semble compliquer à expliquer 03:30

est il possible de garder le format 3.3?

a+

 

[JCGL]

Re : additionner des heures

Bonjour à tous,

3 heures 30 minutes ne se converti pas en 3.3 mais en 3.5...

Ton 3.3 en A1 et en A2 :

=ENT(A1)&" h "&(MOD(A1;1)*100)&" mn"

A+ à tous

 

[Victor21]

Re : additionner des heures

Bonsoir a10, CHALET53, Jean-Claude

est il possible de garder le format 3.3?

Pas sans passer par VBA, mais peut-être une alternative avec le correcteur orthographique :
Remplacer ".." par ":"
et 12..00 deviendra 12:00 reconnu comme un format horaire (sexagésimal) par Excel.
Mais est-ce bien plus simple ?

 

[job75]

Re : additionner des heures

Bonjour a10, CHALET53, Jean-Claude, Patrick,

Plutôt tordu comme problème mais bon, voyez le fichier joint.

Les colonnes A et B sont au format Standard.

Colonne C au format [h]:mm, formule en C2 :

=SUBSTITUE(TEXTE(SI(ESTNUM(-SUBSTITUE(A2;".";","));SUBSTITUE(A2;".";",");SUBSTITUE(A2;",";"."));GAUCHE(1/1000;4));STXT(1/10;2;1);":")+SUBSTITUE(TEXTE(SI(ESTNUM(-SUBSTITUE(B2;".";","));SUBSTITUE(B2;".";",");SUBSTITUE(B2;",";"."));GAUCHE(1/1000;4));STXT(1/10;2;1);":")

Colonne D au format Standard, formule en D2 :

=--SUBSTITUE(TEXTE(SUBSTITUE(TEXTE(SI(ESTNUM(-SUBSTITUE(A2;".";","));SUBSTITUE(A2;".";",");SUBSTITUE(A2;",";"."));GAUCHE(1/1000;4));STXT(1/10;2;1);":")+SUBSTITUE(TEXTE(SI(ESTNUM(-SUBSTITUE(B2;".";","));SUBSTITUE(B2;".";",");SUBSTITUE(B2;",";"."));GAUCHE(1/1000;4));STXT(1/10;2;1);":");"[h]:mm");":";STXT(1/10;2;1))

Ces formules fonctionnent quel que soit le séparateur décimal de l'ordi.

Edit pour Patrick : utiliser VBA n'est pas simple car VBA ne reconnaît pas le format [h]:mm.

A+

 

[job75]

Re : additionner des heures

Re,

Les formules précédentes ne permettent pas de traiter les heures négatives.

On y parvient en utilisant le Calendrier depuis 1904 et ces formules en C2 et D2 :

=(-1)^(GAUCHE(A2)="-")*SUBSTITUE(TEXTE(ABS(SI(ESTNUM(-SUBSTITUE(A2;".";","));SUBSTITUE(A2;".";",");SUBSTITUE(A2;",";".")));GAUCHE(1/1000;4));STXT(1/10;2;1);":")+(-1)^(GAUCHE(B2)="-")*SUBSTITUE(TEXTE(ABS(SI(ESTNUM(-SUBSTITUE(B2;".";","));SUBSTITUE(B2;".";",");SUBSTITUE(B2;",";".")));GAUCHE(1/1000;4));STXT(1/10;2;1);":")

=--SUBSTITUE(TEXTE((-1)^(GAUCHE(A2)="-")*SUBSTITUE(TEXTE(ABS(SI(ESTNUM(-SUBSTITUE(A2;".";","));SUBSTITUE(A2;".";",");SUBSTITUE(A2;",";".")));GAUCHE(1/1000;4));STXT(1/10;2;1);":")+(-1)^(GAUCHE(B2)="-")*SUBSTITUE(TEXTE(ABS(SI(ESTNUM(-SUBSTITUE(B2;".";","));SUBSTITUE(B2;".";",");SUBSTITUE(B2;",";".")));GAUCHE(1/1000;4));STXT(1/10;2;1);":");"[h]:mm");":";STXT(1/10;2;1))

Fichier (2).

A+

 

[job75]

Re : additionner des heures

Re,


Les formules précédentes renvoient des valeurs d'erreur si des cellules sont vides en colonnes A ou B.

On peut facilement l'éviter mais pour la version (2) c'est possible seulement avec un fichier .xlsx (Excel 2007) car il y a plus de 8 niveaux d'imbrication.

Fichiers (1 bis) et (2 bis).

A+

 

[job75]

Re : additionner des heures

Re,

En passant noter que l'aide Excel 2003 n'est pas claire sur les niveaux d'imbrication.

Elle parle d'un maximum de 7 niveaux (en comptant la 1ère fonction).

Or =SI(1;SI(1;SI(1;SI(1;SI(1;SI(1;SI(1;SI(1;1)))))))) a 8 niveaux et passe bien sur Excel 2003.

A+

 

[a10]

Re : additionner des heures

bonsoir,

cela semble trop compliqué.

je regarde pour faire autre chose

bonsoir.

 

[job75]

Re : additionner des heures

Bonjour a10, le forum,

cela semble trop compliqué.

Compliqué oui mais trop non.

Il faut nécessairement jongler avec les formats et les virgules, points, 2 points.

Pour la solution (2 bis) on peut l'avoir en .xls en calculant la colonne D à partir de la colonne C.

Voir fichier joint.

A+

 

[job75]

Re : additionner des heures

Re,

Peut-être qu'une solution VBA vous plaira davantage :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range, h#
Set r = Intersect(Target, Range("A2:B" & Rows.Count), Me.UsedRange)
If r Is Nothing Then Exit Sub
For Each r In r 'si entrées multiples
  Cells(r.Row, 3).Resize(, 2) = "" 'RAZ
  If Cells(r.Row, 1) & Cells(r.Row, 2) <> "" Then
    h = Heure(Cells(r.Row, 1)) + Heure(Cells(r.Row, 2))
    Cells(r.Row, 3) = h
    Cells(r.Row, 4) = Heure(h, True)
  End If
Next
End Sub

Function Heure(v, Optional op As Boolean = False)
Dim sg, p
sg = IIf(Left(CStr(v), 1) = "-", -1, 1)
v = Abs(Val(Replace(CStr(v), ",", ".")))
If op Then
  v = sg * (Int(v * 24) + (Round(v * 1440) - 60 * Int(v * 24)) / 100)
Else
  v = Format(v, "0.00")
  p = InStr(v, Mid(0.1, 2, 1)) 'position du séparateur décimal
  v = sg * (Left(v, p - 1) / 24 + Mid(v, p + 1) / 1440)
End If
Heure = v
End Function

C'est en effet plus simple à comprendre que les formules

Fichier joint.

A+