Calculs des écarts de dates en jours et synthèse par année

Version imprimable

21/11/2019, 12h59
Le Gnark

1 pièce(s) jointe(s)

Calculs des écarts de dates en jours et synthèse par année

Bonjour à tous,
Je suis actuellement dans l'impasse la plus totale!
Je souhaiterai créer un tableur excel permettant de calculer le nombre de jours de déplacement entre 2 colonnes de dates, avec une synthèse par année.
Je dispose d'un tableau de 2 colonnes :
A = Dates de sortie (au format JJ/MM/AAAA)
B = Dates de retour (au format JJ/MM/AAAA)
Dont le nombre de ligne n'est pas défini (illimité)
L'objectif serait de calculer l'écart entre chaque dates, et de faire un "bilan" par année. ci joint une capture d'écran (ici les colonnes vertes sont calculées à la mimine) :
Pièce jointe 518854
C'est à ce niveau que mes limites VBA sont atteintes!!
Je n'arrive pas du tout du tout à réaliser ce type de macro, entre autre car il peut y avoir des écarts de plus de 365 jours.

Auriez vous des solutions à m'apporter svp?
21/11/2019, 16h16
Invité

Bonjour,

En ajoutant une colonne pour calculer le nombre de jours entre les deux dates, la réponse est du même tonneau (de beaujolais nouveau) que dans ce message :
https://www.developpez.net/forums/d2...re-specifique/
Le VBA n'est pas nécessaire.

Pour les lignes sur plusieurs années (2016-2018) : dédoubler les lignes pour faire apparaître un couple de dates pour chaque année afin que le TCD affecte bien les jours à la bonne année.
21/11/2019, 17h13
Le Gnark

Merci pour votre réponse,
Je vais effectuer les test ce soir et donnerai mes résultats demain.
Mais ce fichier doit être par la suite partager avec des collaborateur, + ou - initié à l'utilisation d'excel, et donc l'ajout de formule et le dédoublement de lignes dans des cas spécifiques risquent de poser problème à l'utilisation, avec de plus des risques d'erreurs.
D'où l'idée de créer des macros afin de donner le résultat (partie verte) d'un simple clic après saisie des dates de sorties et retour.

Citation:

Envoyé par Le Gnark

Essayez cette fonction :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Function DecompteJoursAnnee(ByVal AnneeEtudiee As Variant, ByVal AireDates As Range) As Long
 
' AireDates = l'aire des dates de la colonne Date de sortie
' Le décompte est réalisé à partir du jour suivant de la date de sortie pour chaque couple de dates.
 
Dim I As Long
Dim DateEncours As Date
 
    Application.Volatile
 
    DecompteJoursAnnee = 0
 
    For I = 1 To AireDates.Count
        For DateEncours = CDate(AireDates(I)) + 1 To CDate(AireDates(I).Offset(0, 1))
            If Year(DateEncours) = AnneeEtudiee Then DecompteJoursAnnee = DecompteJoursAnnee + 1
        Next DateEncours
    Next I
 
End Function

Pièce jointe 518975

Super fonction!
Merci beaucoup!!

J'ai juste modifié un détail pour exclure la date de sortie :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Function DecompteJoursAnnee(ByVal AnneeEtudiee As Variant, ByVal AireDates As Range) As Long
 
' AireDates = l'aire des dates de la colonne Date de sortie
 
Dim I As Long
Dim DateEncours As Date
 
    Application.Volatile
 
    DecompteJoursAnnee = 0
 
    For I = 1 To AireDates.Count
        For DateEncours = CDate(AireDates(I)) To CDate(AireDates(I).Offset(0, 1))
            If Year(DateEncours) = AnneeEtudiee Then DecompteJoursAnnee = DecompteJoursAnnee + 1
        Next DateEncours
    Next I
 
End Function

Il ne me reste plus qu'a bosser sur la totalité de la mise en forme, avec agrémentation automatique des date dans la colonne et application de la fonction pour chaque.

22/11/2019, 08h44
Le Gnark

1 pièce(s) jointe(s)

Maintenant je suis de nouveau bloqué...

En effet, j'aimerai que les années à calculer se complètent automatiquement dans la colonne E.
En gros, que les utilisateurs ne saisissent que les dates de sorties et de retours, et que les années se reportent avec le calcul de jours.
Et je n'y arrive pas, sans même l'ombre d'une piste!!!

Auriez vous une idée???

ci-joint le tableurPièce jointe 519010
22/11/2019, 08h56
Invité

Citation:

Envoyé par Le Gnark

Le mieux est l'ennemi du bien. A votre place, je ne me compliquerais pas la vie et je mettrais les années 2010 à 2025 au cas où les occurrences se présenteraient, peu importe s'il y a des années vides.
22/11/2019, 09h05
Le Gnark

Hihi!
Oui mais maintenant que j'ai ce truc en tête... ^^
Je suis en train d'essayer un petit script, j'espère y arriver quand même!
Je vous tiens au jus en direct!!
22/11/2019, 10h42
Le Gnark

1 pièce(s) jointe(s)

Voici ma dernière version avec l'ajout des années!
Encore un soucis... l'année 2017 ne se reporte pas (car aucune date de sortie ou retour contenant 2017 n'est saisie).
Comment puis-je faire d'après vous?
Pièce jointe 519056
22/11/2019, 12h55
Invité

Citation:

Envoyé par Le Gnark

Sans avoir ouvert votre fichier, il faut faire une première boucle pour déterminer les années : la plus ancienne et la plus récente puis incrémenter de 1 à partir de la plus ancienne.
22/11/2019, 13h01
Le Gnark

C'est bon!!!

Merci pour votre aide! :))))