Calcul des heures

Bonjour a tous,

Je cherche à réaliser une basse de données avec un calcul des heures (sous le forma 12,23 si possible)

J'ai réalisé un exemple en pièce jointe mais je ne suis pas assez doué pour le réalisé tous seul.

Merci de regarder mon exemple.

Personne à une idée, ou simplement directement faire le calcul sur les feuilles sans UserForm.

Merci

Bonjour

A condition que comme dans ton fichier, certains noms ne soient pas celui de la feuille suivi d'une espace:

Formule en E9, incrémentée vers le bas

=SOMME(DECALER(INDIRECT(D9&"!"&"D2");;;NBVAL(INDIRECT(D9&"!D:D"))-1))

Cordialement

Merci Amadéus,

Mais je me suis mal exprimer j'ai remodifier mes feuilles.

Je cherche a réaliser une Userform pour faciliter l'enregistrement des heures par feuille

Regarde et merci.

je ne sais pas trop comment faire.

Quelqu'un as une idée?

Merci

Re bonjour,

J'ai essayé de compléter mon explication en rajoutant l'UserForm pour que se soit plus clair.

A voir .......

Bonjour

A tester

Bonjour Banzai64 et merci.

Sa marche bien y a t'il un moyen de pouvoir rentrer par exemple _____ 0:36_________.

Sur Bouzat il y a 16:00 si je rajoute 00:36 il ne se passe rien?

on ne peux pas rajouter 36 minutes?

Merci

Bonjour

heureusement que j'ai marqué de rentrer les heures en heures et centièmes

Une version avec les heures:minutes

A tester

Merci Banzai64

Je suis désolé j'ai mal lue et j'ai été trop vite.

Merci à tous, ce Forum est génial.

Bonne journée

Je ne suis pardonnable Banzai64 j'ai oublié la colonne observation j'ai rajouté la zonne de texte sur l'UserForm.

Merci.

Bonjour

Rajoutes la ligne surlignée dans la macro Sub Modifie(EnMoins As Boolean)

  With Ws
    .Unprotect
    .Range("A" & Ligne) = Date
    .Cells(Ligne, 2 + Abs(EnMoins)).Value = CDate(Me.TextBox2)
    .Cells(Ligne, "E") = Me.TextBox3
    .Protect
    Me.TextBox1.Value = Format(.Range("D2"), "hh:mm")
  End With

Merci Banzai64...

Bonjour a tous,

Je viens de m’apercevoir que je ne peux pas cumuler les heures après 24h

Il faut que je puisse cumuler sans limites

Merci de me donner un coup de main

Bonjour

Dans les pages Excel toutes les cellules qui ont un format heure, tu dois modifier leur format en personnalisé : [h]:mm

Dans le code

Partout où tu verras

Format(Ws.Range("D2"), "hh:mm")

il faut le remplacer par

Ws.Range("D2").Text

C'est pareil Banzai64 je peux pas afficher par exemple 30:00 heures.

merci.

Bonjour

Fichier avec les modifications faites

Merci bonne journée..