Discussion :

[Flow5663]

Bonjour,

J'ai des événements qui ont des periodes de temps qui peuvent durer un temps aléatoire de 0 jours à + de 600 jours.

Je cherche à calculer pour un intervalle précis (un mois) combien de jours j'ai cumulés sur plusieurs évennements. Je suis un peu dépourvu et je voie pas quelle fonction utiliser.

En faite j'ai une DateDébutEvennement, DateFinEvennement, DateDébutPériode et DateFinPériode. Il faut que je compte le nombre de jours pour les évennements ou la DateDébutEvennement<DateFinPériode et la DateFinEvennement>DateDébutPériode en prenant pour calculer la DateDébutEvennement=DateDébutPériode si DateDébutEvennement<DateDébutPériode et DateFinEvennement=DateFinPériode si DateFinEvennement>DateFinPériode

Merci pour votre aide

[gFZT82]

Bonjour,

Je ne suis pas sûr d’avoir bien compris ton problème.
A priori, il suffit de poser pour chaque événement :
Si Date_Début_Evénement < Date_Début_Période alors Date_Début_Evénement = Date_Début_Période
Si Date_Fin_Evénement > Date_Fin_Période alors Date_Fin_Evénement = Date_Fin_Période
Puis calculer la différence avec la fonction DateDiff

Code :

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

DateDiff("j", Date_Début_Evénement, Date_Fin_Evénement)

Et cumuler s’il y a plusieurs évènements.

Cordialement.

[Flow5663]

Bonjour gFZT82,

C'est pour faire un tableau de synthèse, j'ai une liste d'évennements dans une feuille. Je voudrais dans mon tableau de synthèse faire la somme par mois du nombre de jours de tous les évennements.

Exemple:

Liste d'evennements
Evennement 1 du 01/01/13 au 02/03/13
Evennement 2 du 26/12/12 au 02/01/13
Evennement 3 du 06/01/13 au 15/01/13

Periode du 01/01/13 au 31/01/13

Evennement 1 31jours
Evennement 2 2jours
Evennement 3 10jours
Soit 43jours (c'est ce resultat que je veux calculer)

Cordialement,

[gFZT82]

Voici un exemple de code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Explicit
Sub Test()
Dim Cel As Range
Dim DateDébut As Date, DateFin As Date
    With Worksheets("Feuil1")
        For Each Cel In .Range("A6:A" & .Range("A" & Rows.Count).End(xlUp).Row)
            DateDébut = Cel.Offset(0, 1)
            DateFin = Cel.Offset(0, 2)
            If .Range("A3") > DateDébut Then DateDébut = .Range("A3")
            If .Range("B3") < DateFin Then DateFin = .Range("B3")
            Cel.Offset(0, 3) = DateDiff("d", DateDébut, DateFin) + 1
        Next Cel
    End With
End Sub

[Flow5663]

Bonjour gFZT82,

Merci pour ton aide précisieuse

J'ai bien réussit à adapter ton code.

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
Sub CalculNombreJours()
Dim Cel As Range
Dim DateDébut As Date, DateFin As Date
    With Worksheets("AT")
        For Each Cel In .Range("H8:H" & .Range("H" & Rows.Count).End(xlUp).Row)
            DateDébut = Cel.Offset(0, 3)
            DateFin = Cel.Offset(0, 4)
            If .Range("AH8") > DateDébut And Range("AH8") < DateFin Then DateDébut = .Range("AH8")
            If .Range("AH8") > DateDébut And Range("AH8") > DateFin Then DateDébut = 0 And DateFin = 0
            If .Range("AI8") < DateFin And Range("AI8") > DateDébut Then DateFin = .Range("AI8")
            If .Range("AI8") < DateFin And Range("AI8") < DateDébut Then DateFin = 0 And DateDébut = 0
            Cel.Offset(0, 11) = DateDiff("d", DateDébut, DateFin) + 1
        Next Cel        
    End With
    End Sub

Mais au lieu de zero j'aimerai mettre un Null ou une cellule vide mais ça fonctionne pas. Je pense qu'il ya un erreur de synthaxe...

Code :

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

DateFin=Null

Je suis pas expert en vba

cordialement,

[Philippe Tulliez]

Bonjour,
Le sujet de cette discussion me semble identique à celui-ci
J'ai donc une solution sans VBA
Où les mois sont en ligne 2 commençant en colonne C sous le format (1/jj/AAAA - exemple en C2, 1/10/2012, D2 1/11/2012 etc ...)
En ligne 3 et suivante, colonne A date de début d'événement colonne B date de fin d'événement.
Le nombre de jours dans le mois tient compte des jours fériés et week-end mais bien sûr, le faire sans est possible.
Les formules à placer à partir de C3

Code :

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

=($B3>=C$2)*($A3<=DATE(ANNEE(C$2);MOIS(C$2)+1;0))*NB.JOURS.OUVRES(MAX($A3;C$2);MIN($B3;DATE(ANNEE(C$2);MOIS(C$2)+1;0));jFerie)

jFerie est la plage nommée contenant la liste des jours fériés

[Flow5663]

Merci pour cette solution, mais j'ai tout fait en vba et cela me va bien. J'ai juste le problème pour mettre une valeur null aux dates qui sont hors de ma periode.

Code :

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

DateDébut = Null

Une idée?

Cdlt,

[gFZT82]

Bonjour,

Une solution

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
Sub CalculNombreJours()
Dim Cel As Range
Dim DateDébut As Date, DateFin As Date
    With Worksheets("AT")
        For Each Cel In .Range("H8:H" & .Range("H" & Rows.Count).End(xlUp).Row)
            DateDébut = Cel.Offset(0, 3)
            DateFin = Cel.Offset(0, 4)
 
            If (.Range("AH8") > DateDébut And Range("AH8") > DateFin) Or _
            (.Range("AI8") < DateFin And Range("AI8") < DateDébut) Then
                Cel.Offset(0, 11) = ""
            Else
                If .Range("AH8") > DateDébut And Range("AH8") < DateFin Then DateDébut = .Range("AH8")
                If .Range("AI8") < DateFin And Range("AI8") > DateDébut Then DateFin = .Range("AI8")
                Cel.Offset(0, 11) = DateDiff("d", DateDébut, DateFin) + 1
            End If
 
        Next Cel
    End With
End Sub

Cordialement.

[Flow5663]

Bonjour gFZT82,

Merci pour ton aide

@+