Discussion :

[NassMcN]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[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

[Daniel.C]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[NassMcN]

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