Somme heures incorrect !(Résolu )

[JBARBE]

Bonjour à tous,

Je dois comparer des heures avec une heure en VBA !

Je ne comprends pas que ma macro indique un message erroné !

Sub controle_ReposB()
Dim i As Long
For i = 6 To 65536
If Hour(Range("C3")) > (Hour(0) - Hour(Cells(i, 4))) Then
MsgBox " Repos inférieur à " & Range("C3"), vbInformation, "ATTENTION"
Exit Sub
End If
Next i
End Sub

Merci à l'avance !

 

[natorp]

Re : Somme heures incorrect !

Bjr JBARBE

Je n'ai pas d'erreur, si ce n'est le format corrigé comme ça :

MsgBox " Repos inférieur à " & Format(Range("C3"), "hh:mm"), vbInformation, "ATTENTION"

cordialement, Gérard

 

[JBARBE]

Re : Somme heures incorrect !

Bjr JBARBE

Je n'ai pas d'erreur, si ce n'est le format corrigé comme ça :

MsgBox " Repos inférieur à " & Format(Range("C3"), "hh:mm"), vbInformation, "ATTENTION"

cordialement, Gérard

Bonjour Gérard,

Ce n'est pas ce que je veux !

Dans l'exemple de mon fichier le message ne devrait pas s'afficher puisque entre 0h et 20 h, il y a 4 h !!!

Et le message devrait s'afficher que si la somme de 4h était inférieur à 2 h!

Or, le message s'affiche malgré 4h > 2h !

Merci !

 

[M12]

Re : Somme heures incorrect !

Bonjour à tous

Peut-être comme ceci

Sub controle_ReposB()
Dim i As Long
For i = 6 To 65536
If Range("C3") * 24 > 24 - Cells(i, 4) * 24 Then
MsgBox " Repos inférieur à " & Range("B3"), vbInformation, "ATTENTION"
Exit Sub
End If
Next i
End Sub

 

[natorp]

Re : Somme heures incorrect !

Bien vu M12..

Cordialement, Gérard

 

[JBARBE]

Re : Somme heures incorrect !

Merci M12 !ça marche !

Nouvelle demande : et si l'on doit ajouter des heures sur une autre cellule :

Exemple suivant qui ne marche pas !

Sub controle_ReposC()
Dim i As Long
For i = 6 To 65536
If Range("C3") * 24 > 24 - Cells(i, 4) * 24 + Cells(i - 1, 3) * 24 Then
MsgBox " Repos inférieur à " & Range("C3"), vbInformation, "ATTENTION"
Exit Sub
End If
Next i
End Sub

Merci à l'avance !

 

[M12]

Re : Somme heures incorrect !

Re,

Plutôt comme ceci

If Range("C3") * 24 > 24 - Cells(i, 4) * 24 + Cells(i + 1, 3) * 24 Then

i = 6, donc i+1=7 (7:00) et à condition que D7 soit renseigné

 

[JBARBE]

Re : Somme heures incorrect !

Re,

Plutôt comme ceci

If Range("C3") * 24 > 24 - Cells(i, 4) * 24 + Cells(i + 1, 3) * 24 Then

i = 6, donc i+1=7 (7:00) et à condition que D7 soit renseigné

Cells(i + 1, 3) * 24

Autant pour moi ( je fatigue )

à condition que D7 soit renseigné > tu veux dire C7 !

Merci et bonne journée !