Période entre deux dates

Version imprimable

Bonjour,

Je sollicite votre aide car j'ai un petit pépin de programmation excel vba.

J'ai deux cellules sous le format personnalisé jj/mm/aaaa hh:mm et j'aimerai avoir la période sous le format personnalisé j" jour(s) "hh:mm mais sans prendre en compte les jours non ouvrés et si possible en ignorant le temps entre 20h et 8h si c'est possible bien entendu.

Voici ma formule actuelle :
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 Private Sub CommandButton2_Click() Dim i As Integer, j As Integer i = 3 j = 3 Do While Range("C" & i) <> "" If Range("L" & i) = "" Then Range("O" & i) = "Commande non envoyée" Else Range("O" & i) = Range("L" & i) - Range("C" & i) End If Range("O" & i).NumberFormat = "d"" jour(s) ""hh:mm" i = i + 1 Loop Do While Range("C" & j) <> "" If Range("N" & j) <> "" Then Range("P" & j) = "Commande annulée" ElseIf Range("M" & j) = "" Then Range("P" & j) = "Commande non confirmée" Else Range("P" & j) = Range("M" & j) - Range("L" & j) End If Range("P" & j).NumberFormat = "d"" jour(s) ""hh:mm" j = j + 1 Loop End Sub
Je sais que vous ne me connaissez car je viens tout juste de m'inscrire, mais je vous serais reconnaissant si vous pouviez m'aider :)

Cordialement

Un programmeur néophyte.

15/07/2013, 11h02
stargates01

Je ne suis pas un spécialiste de la manipulation de dates, mais as-tu pensé à utiliser la fonction NB.JOURS.OUVRES d'excel ?

Voir le lien http://office.microsoft.com/fr-fr/ex...005209190.aspx

après tu peux re-travailler le résultat pour gérer les heures.

stargates01

Bonjour,

Un exemple à adapter et à bien tester; je calcule la durée entre DateDeb et DateFin.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Function Calcul(DateDeb As Date, Datefin As Date)
Dim Ctr As Date
For i = Int(DateDeb) To Int(Datefin)
    If Weekday(i, 2) < 6 Then
        If i = Int(DateDeb) Then
            If Int(DateDeb) <> Int(Datefin) Then
                Ctr = #8:00:00 PM# - Application.Max(#8:00:00 AM#, TimeSerial(Hour(DateDeb), Minute(DateDeb), Second(DateDeb)))
            Else
                Ctr = Application.Min(TimeSerial(Hour(Datefin), Minute(Datefin), Second(DateDeb)), #8:00:00 PM#) _
                - Application.Max(#8:00:00 AM#, TimeSerial(Hour(DateDeb), Minute(DateDeb), Second(DateDeb)))
            End If
        ElseIf i < Int(Datefin) Then
            Ctr = Ctr + 0.5
        Else
            Ctr = Ctr + Application.Min(TimeSerial(Hour(Datefin), Minute(Datefin), Second(DateDeb)), #8:00:00 PM#) - #8:00:00 AM#
        End If
    End If
Next i
Calcul = Ctr
End Function

Pour tester:

Code:

1
2
3
4
5
6
Sub test()
    Dim DateDeb As Date, Datefin As Date
    DateDeb = #7/13/2013 7:00:00 AM#
    Datefin = #7/15/2013 5:00:00 PM#
    [A1] = Calcul(DateDeb, Datefin)
End Sub

15/07/2013, 13h26
NassMcN

Citation:

Envoyé par stargates01

Je ne suis pas un spécialiste de la manipulation de dates, mais as-tu pensé à utiliser la fonction NB.JOURS.OUVRES d'excel ?

Voir le lien http://office.microsoft.com/fr-fr/ex...005209190.aspx

après tu peux re-travailler le résultat pour gérer les heures.

stargates01

Malheureusement mes cellules ne sont pas au format date traditionnel donc je ne peux utiliser cette formule, merci quand même.

Daniel C. merci pour cette aide je vais de ce pas analyser cela et voir comment utiliser cela dans ma formule :)