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

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 21 Novembre 2019

• #2

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.

 

Vote positif 0 Vote négatif

G

Gnark

XLDnaute Nouveau

• 21 Novembre 2019

• #3

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?

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 21 Novembre 2019

• #4

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.

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 21 Novembre 2019

• #5

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

 

Pièces jointes

• EntreDates.xlsm

  16.7 KB · Affichages: 5

Vote positif 0 Vote négatif

G

Gnark

XLDnaute Nouveau

• 21 Novembre 2019

• #6

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 21 Novembre 2019

• #7

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.

 

Vote positif 0 Vote négatif

G

Gnark

XLDnaute Nouveau

• 21 Novembre 2019

• #8

Tout à fait! ^^

 

Vote positif 0 Vote négatif

G

Gnark

XLDnaute Nouveau

• 22 Novembre 2019

• #9

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 :

VB:

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

 

Pièces jointes

• Calculatrice jours sorties.xlsm

  30.9 KB · Affichages: 11

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 22 Novembre 2019

• #10

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

 

Vote positif 0 Vote négatif

G

Gnark

XLDnaute Nouveau

• 22 Novembre 2019

• #11

patricktoulon à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 22 Novembre 2019

• #12

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 22 Novembre 2019

• #13

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 ?

 

Vote positif 0 Vote négatif

G

Gnark

XLDnaute Nouveau

• 22 Novembre 2019

• #14

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

 

Vote positif 0 Vote négatif

G

Gnark

XLDnaute Nouveau

• 22 Novembre 2019

• #15

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èces jointes

• Calculatrice jours sorties.xlsm

  31.2 KB · Affichages: 7

Vote positif 0 Vote négatif