Microsoft 365 Problèmes écarts de date (année civile) et synthèse

[Gnark]

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) :

C'est à ce niveau que mes limites VBA sont atteintes!!
Je n'arrive pas du tout du tout à réaliser ce type de macro, car il peut y avoir des écarts de plus de 365 jours (entre autre...).

Auriez vous des solutions à m'apporter svp?

 

[sylvanu]

Bonjour Gnark,
En formules, c'est faisable avec : =SOMMEPROD((ANNEE($A$2:$A$10)=D2)*(($B$2:$B$10)-($A$2:$A$10))) en E2.
Cela semble fonctionner.

 

[Gnark]

Merci pour cette idée.
Après essai, cela ne fonctionne pas pour toute les années :

Via une macro VBA (DATEDIFF) ne serait ce pas possible?

 

[sylvanu]

Et si on avait un bout de fichier pour réfléchir ? Ne serait ce pas mieux ?
J'ai travaillé en retrasncrivant ce que j'avais à l'écran, donc évidemment pas tutes les configurations.
Avec du VBA bien sur, mais il faut aussi le valider correctement.

 

[sylvanu]

Essayer ça. Il y a une macro et une fonction, au choix.
Il faut l'adapter à votre fichier avec évidemment les bonnes colonnes.

 

[Gnark]

Merci beaucoup! Je fais les test dans la soirée et vous donne le résultat demain matin

 

[sylvanu]

Pouvez vous quand même envoyer la feuille qui pose problème pour 2017 et 2019. J'aimerais comprendre.
Le but d'un forum est de s'enrichir mutuellement.

 

[Gnark]

Tout à fait! ^^

 

[Gnark]

Après une soirée de test, voici ci joint le résultat (temporaire) obtenu.
J'ai utilisé une fonction différente de la tienne sylvanu, car les résultats escomptés ne collaient pas :

Function DecompteJoursAnnee(ByVal AnneeEtudiee As Variant, ByVal AireDates As Range) As Long

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

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!!!

 

[patricktoulon]

Bonjour a tous
@Gnark depuis quand la différence de nombre de jour entre le 03/03/2015 et le 09/08/2015 est de 225 jours chez moi ca fait 159 jours

une macro datediff pourquoi? la formule =datedif(dateplusgrande;datepluspetite;"yd") fonctionne

 

[Gnark]

Bonjour a tous
@Gnark depuis quand la différence de nombre de jour entre le 03/03/2015 et le 09/08/2015 est de 225 jours chez moi ca fait 159 jours

une macro datediff pourquoi? la formule =datedif(dateplusgrande;datepluspetite;"yd") fonctionne Regarde la pièce jointe 1046797

Pour 2015, il existe deux periodes : du 03/03/2015 au 09/08/2015 = 159 jours et du 01/09/15 au 04/11/15 = 64 jours, soit un total de 225 jours.
Mais le problème du calcul de jours est résolu!
Pas celui de l'export des années (sans doublon)!

 

[patricktoulon]

re
d'accords tu veux simplement additionner les doublons années
je n'avais pas compris

 

[sylvanu]

Bonjour le fil,
Dans le fichier envoyé, j'ai un petit souci. Pour 2016 vous trouvez 218 jours.
Or on a

12/04/2016 03/06/2016 52 jours​ 05/06/2016 01/08/2016 57jours​ 16/09/2016 06/01/2018 477 jours​

soit 586 jours. Où ai je raté quelque chose ?

 

[Gnark]

J'ai du bougé quelques colonnes... surement un doc transitoire envoyé...

 

[Gnark]

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?