Total heures

[Silene]

Bonsoir,
Dans un tableau je voudrai saisir des nombres d'heures de travail a partir d'une boite de dialogue sous la forme "32:30" et pouvoir en faire automatiquement le total au bas du tableau comme dans le fichier joint.
Mon problème , c'est que la totalisation ne se fait pas .
Merci de me répondre

Silene

 

[tatiak]

Bonsoir,
le pb vient du fait que les heures sont rentrées en texte. Il faut donc convertir le "texte" en heures et minutes. J'ai trouvé cette solution, mais il doit exister mieux :

ActiveSheet.Range("A" & nbligne2) = DAT
ActiveSheet.Range("B" & nbligne2) = Val(Left(HEUR, 2)) / 24 + Val(Right(HEUR, 2)) / 24 / 60

 

[Robert]

Bonsoir Silene, bonsoir Tatiak, bonsoir le forum,

Encore une fois doublé par ce terrible Tatiak... Silene, Voici quand même ton fichier modifié en pièce jointe. Désolé mais je n'ai pu m'empêcher de mettre mon grain de sel dans tes codes...

À plus,

Robert

 

[tatiak]

Bonsoir à tous,
je me doutais bien qu'une meilleure solution existait, merci Robert!

 

[Silene]

bonsoir à tous,

C'est génial, ça marche! Encore merci.

Silene