Somme heures incorrect !(Résolu )

natorp

XLDnaute Barbatruc

• 24 Mai 2016

• #2

Re : Somme heures incorrect !

Bjr JBARBE

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

Code:

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

cordialement, Gérard

 

Vote positif 0 Vote négatif

JBARBE

XLDnaute Barbatruc

• 24 Mai 2016

• #3

Re : Somme heures incorrect !

natorp à dit:

Bjr JBARBE

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

Code:

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

cordialement, Gérard

Cliquez pour agrandir...

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 !

 

Vote positif 0 Vote négatif

M12

XLDnaute Accro

• 24 Mai 2016

• #4

Re : Somme heures incorrect !

Bonjour à tous

Peut-être comme ceci

Code:

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

 

Vote positif 0 Vote négatif

natorp

XLDnaute Barbatruc

• 24 Mai 2016

• #5

Re : Somme heures incorrect !

Bien vu M12..

Cordialement, Gérard

 

Vote positif 0 Vote négatif

JBARBE

XLDnaute Barbatruc

• 24 Mai 2016

• #6

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 !

Code:

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 !

 

Pièces jointes

• Test_Heures.xls

  53 KB · Affichages: 25
• Test_Heures.xls

  53 KB · Affichages: 29

Vote positif 0 Vote négatif

M12

XLDnaute Accro

• 24 Mai 2016

• #7

Re : Somme heures incorrect !

Re,

Plutôt comme ceci

Code:

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é

 

Vote positif 0 Vote négatif

JBARBE

XLDnaute Barbatruc

• 24 Mai 2016

• #8

Re : Somme heures incorrect !

M12 à dit:

Re,

Plutôt comme ceci

Code:

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é

Cliquez pour agrandir...

Cells(i + 1, 3) * 24

Autant pour moi ( je fatigue )

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

Merci et bonne journée !

 

Vote positif 0 Vote négatif