Discussion :

[Le 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, entre autre car il peut y avoir des écarts de plus de 365 jours.

Auriez vous des solutions à m'apporter svp?

[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.

[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.

[Invité]

Essayez cette fonction :

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

[Le Gnark]

Super fonction!
Merci beaucoup!!

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

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

[Le Gnark]

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 tableurCalculatrice jours sorties.xlsm