calculer mes heures

[mc3199]

slt a tous

je viens de monter mon auto-entreprise

et j'aimerais faire un calcule de mes heures avec excel 2003, je joints un tableau

dans ma colonne G je voudrais que cela me calcule mes heures et que la somme de mes heures soit multiplier par 18 € (je prend 18 € de l'heure)...

je n'arrive pas a trouver la formule exacte , et le totale de mes heures est-il exacte ?

voila j'aimerais savoir la formule a faire et l'explication de celle-ci...

merci a vous

le moucheron

[hben1961]

Bonjour à tous,

Je propose le format personnalisé [h] "h":mm "mn" à la cellule contenant le total d'heure avec la formule SOMME et la formule suivante pour le Sous Total (heure x 18):

Code :

=TEXTE(G44;"[h]")*18+MINUTE(G44)*18/60

Cordialement

[alsimbad]

c'est pas très simple ces calculs d(heure. il existe surement des formules pour ça, mais elles ne saute pas aux yeux
tu peux aussi essayer ça, qui te permet de garder ton format en €

Code :

1
2
 
=((HEURE(G44)*60)+MINUTE(G44))*(18/60)

si tu ne veux pas passer ton temps a modifier tes formules quand tu changeras de tarif, je te conseille de placer tout de suite le tarif dans une case séparée

[Ormonth]

Bonjour,

si ce truc peux t'aider, avec du VBA tu peux facilement faire une appli pro.

PS : les heures sont des dates en gros pour excel, cf tuto

III-F. Gymnastique sur la gestion des Calculs Horaires et Mise en application

cordialement,

Didier

[casefayere]

Bonjour ,
Le plus simple serait de travailler en centiheures, comme les 3/4 des entreprises (0.50 = 30 mn)

Mais ce que j'en dit....

Bonne journée à tou(te)s, bon weed-end.

[hben1961]

Bonjour,

N'as_tu pas trouver ton bonheur dans le lien http://www.developpez.net/forums/d10...lculer-heures/

Cordialement

[mc3199]

slt a toi casefayere

ta réponse est bien mais comment la calculer avec excel ?

bye

[Ormonth]

Bonjour,

il me semblait que dans le code suivant, extrait du lien fournit, c'est, entre autre, ce genre de calcul qui figurait, il est commenté, il faut sinon faire l'effort de le comprendre et ne fournit pas c'est vrai un classeur tout fait en réponse

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
 
Option Explicit
 
Private Sub cmdRun_Click()
Dim vnttbo_H1 As Variant
Dim dtm_H1 As Date
Dim vnttbo_H2 As Variant
Dim dtm_H2 As Date
Dim dblDurGlobalS As Double
Dim lngSecond  As Long
Dim lngMin As Long
Dim lngHeure As Long
Dim dblMontant  As Double
 
'voir  l'aide vba pour les détails sur les fonctions utilisées...
On Error GoTo Errare
 
If opbFeuille.Value = True Then
   txt_H1 = CDate(Range("A3"))
   txt_H2 = CDate(Range("A4"))
End If
'on profite du fait que les textbox ne renvoient que des strings pour utiliser Split
vnttbo_H1 = Split(txt_H1, ":")
'Split qui nous retourne un tableau
dtm_H1 = TimeSerial(vnttbo_H1(0), vnttbo_H1(1), vnttbo_H1(2))
'dont on applique les éléments comme arguments à TimeSerial (dont on utillise
'la réaction face aux dépassements de capacité) qui nous retourne une variable date, ce qu'on cherchait.
vnttbo_H2 = Split(txt_H2, ":")
dtm_H2 = TimeSerial(vnttbo_H2(0), vnttbo_H2(1), vnttbo_H2(2))
'Ensuite on fait un soustraction sur nos 2 variables dates
If opbPlus.Value = False Then dtm_H2 = -dtm_H2
'Ci-dessus, on utilise le comportement des option button dans un frame (idem pour source Données)
'pour faire un interrupteur logique et choisir  l'addition ou la soustraction.
dblDurGlobalS = Round((dtm_H1 + dtm_H2) * 86400, 0) ' durée globale en secondes
'on extrait ensuite les diverses unités classiquement.
lngSecond = Round((dblDurGlobalS / 60 - Fix(dblDurGlobalS / 60)) * 60, 0) 'nb de secondes
lngMin = ((Fix(dblDurGlobalS / 60) / 60) - Fix(Fix(dblDurGlobalS / 60) / 60)) * 60 ' nb de minutes
lngHeure = Fix(Fix(dblDurGlobalS / 60) / 60) ' nb d'heures
txt_RepDeci = (dtm_H1 + dtm_H2) * 24
' ce qui nous sert à afficher notre "heure reconstituée" lisible par tous.
 
If lngHeure < 0 Or lngMin < 0 Or lngSecond < 0 Then
   txt_H3 = "- " & Abs(lngHeure) & ":" & Abs(lngMin) & ":" & Abs(lngSecond): _
      Range("A7") = "Durée Négative" & vbCrLf & "non affichable"
   Range("A8") = "moins " & Abs(lngHeure) & "h " & Abs(lngMin) & "mn " & Abs(lngSecond) & "s" & " pour info..."
Else
   txt_H3 = Abs(lngHeure) & ":" & Abs(lngMin) & ":" & Abs(lngSecond): Range("A7") = txt_H3.Text
End If
' on utilise ensuite un simple test pour la couleur d'affichage.
dblMontant = Round(txt_TauxHor * txt_RepDeci, 2)
If dblMontant >= 0 Then txt_Montant = dblMontant & " €": txt_Montant.ForeColor = &H80000012 _
Else txt_Montant = dblMontant & " €": txt_Montant.ForeColor = &HFF&
Range("A10") = CDbl(txt_Montant)
Exit Sub
Errare:
Call rezet
End Sub
 
Private Sub Label8_Click()
Application.ThisWorkbook.FollowHyperlink Label8.Caption
End Sub
 
Private Sub opbFeuille_Change()
Call rezet
End Sub
Sub rezet()
If opbFeuille.Value = True Then
   With txt_H1
      .Locked = True
      .MousePointer = fmMousePointerNoDrop
   End With
 
   With txt_H2
      .Locked = True
      .MousePointer = fmMousePointerNoDrop
   End With
Else
   txt_H1.Locked = False
   txt_H2.Locked = False
   txt_H1.MousePointer = fmMousePointerDefault
   txt_H2.MousePointer = fmMousePointerDefault
End If
txt_H1.Value = "00:00:00"
txt_H2.Value = "00:00:00"
txt_RepDeci.Value = ""
txt_H3.Value = ""
txt_TauxHor.Value = "8,86"
txt_Montant.Value = ""
Range("A7") = ""
Range("A8") = ""
Range("A10") = ""
End Sub
 
Private Sub UserForm_Initialize()
Call rezet
Label5.Caption = "Corrrespond à H1 + ou - H2 sachant que qu'on affiche ici la durée en représentation" _
& "décimale des heures et fraction d'heures."
Label7.Caption = "Montant en noir ou en rouge selon le contexte."
''Montant à régler (en noir) ou à récupérer (en rouge).. ou l'inverse selon le contexte.
Label9.Caption = vbCrLf & "Gymnastique sur la" & vbCrLf & "GESTION DE CALCULS HORAIRES" & vbCrLf & _
" vous pouvez calculer des horaires négatifs et rentrer des cumuls* d'heures, minutes ou secondes" _
& vbCrLf & "en H1 et H2."
Label10.Caption = "L'objet de cet Useform n'est pas le contrôle de saisie, il comporte un " _
& "traitement d'erreur sommaire, seules les saisies de forme : chiffre(s) : chiffre(s) :chiffre(s) sont valides" & _
" ou un nombre à virgule pour le taux horaire."
Label12.Caption = "Astuce : Pour la saisie, vous pouvez double-cliquer sur un binôme." _
& vbCrLf & "Astuce :  Pour réinitialiser à 0 rentrez des lettres et faites Run."
Label19.Caption = "Cet USF est non Modal, vous pouvez modifier les valeurs de H1 & H2 / Feuille en direct"
End Sub
 
Private Sub UserForm_Terminate()
Call rezet
End Sub

Ainsi que ce chapitre du même tutoriel...
II-E-1. Représentation décimale et calculs sur base de salaire horaire

Nous sommes appelés à rencontrer souvent des durées de travail exprimées en journées et fractions de journée, ou en heures et fractions d'heure comme 2 jours ½ ou 3 h ¼.
Pour les jours, pas de problème, la base unitaire des numéros de séries étant le jour ; si on ajoute ; 1.5 à une date, Excel ajoutera 1 jour et 12 h automatiquement (bien formater la cellule).
Pour les heures, le tableau suivant va éclairer la situation... / ....

cordialement,

Didier