XL 2013 Validation d'une plage horaire

J

JHA

XLDnaute Barbatruc

• 6 Mars 2023

• #2

Bonjour à tous,

A essayer, peux-tu clarifier pour la ligne 14?

JHA

 

Pièces jointes

• plage_horaire.xlsx

  9.6 KB · Affichages: 6

Vote positif 0 Vote négatif

T

the_kyle_xy

XLDnaute Nouveau

• 6 Mars 2023

• #3

Bonjour! La ligne 14 est exacte, même si la plage horaire est de plus d'une journée, mais la ligne 13 ne doit pas être retenue puisque la plage horaire se retrouve la nuit, bien qu'elle dure 4 heures.

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 6 Mars 2023

• #4

Bonjour à tous,

Peut-être:

VB:

=ET($B7>=$B$5;$B7<=$D$5;$D7<=$D$5;$E7>=$F$5)

JHA

 

Pièces jointes

• plage_horaire rev1.xlsx

  9.8 KB · Affichages: 5

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 6 Mars 2023

• #5

Bonjour the_kyle_xy, JHA,

Voyez le fichier .xlsm joint et cette fonction VBA :

VB:

Function MaDuree(deb#, fin#)
Dim t1#, t2#, minute&, t#
t1 = TimeValue("8:0")
t2 = TimeValue("17:0")
For minute = 1440 * deb To 1440 * fin
    t = TimeValue(Format(minute / 1440, "h:m"))
    If t >= t1 And t <= t2 Then MaDuree = MaDuree + 1
Next
MaDuree = MaDuree / 1440
End Function

Le code doit être placé impérativement dans un module standard.

Formule en E7 =MaDuree(A7+B7;C7+D7)

A+

 

Pièces jointes

• plage_horaire(1).xlsm

  16 KB · Affichages: 5

Vote positif 0 Vote négatif

T

the_kyle_xy

XLDnaute Nouveau

• 6 Mars 2023

• #6

Super! Merci pour la fonction VBA, @job75! C'est parfait ainsi.

 

Vote positif 0 Vote négatif