Programme VBA pour trouver le nombre de trimestres entre 2 dates

Bonjour,

J'ai une feuille Excel avec des dates de début et de fin de contrats.
J'aimerais faire un programme en VBA qui renvoie pour chaque contrat le nombre de trimestres complets pour chaque année du contrat. Un trimestre commence le 1er Janvier, le 1er Avril, le 1er Juillet ou le 1er Octobre
Par exemple si un contrat va du 01/08/1981 au 31/01/1983, je veux que le programme m'affiche :
1981 : 1
1982 : 4
1983 : 0

Je suis novice en VBA, et je bloque un peu au niveau de l'algorithme à cause des années bissextiles.

Merci de votre aide.

bonsoir
Sans VBA : un tableau contenant une ligne pour chaque année (pour chaque contrat)
En colonne A : le début de l'année sauf le cas du début du contrat 01/01/19nn
En colonne B : la fin de l'année sauf le cas du fin du contrat 31/12/19nn
et en C :

Citation:

---

ARRONDI.INF((B2-A2)/90;0)

---

bonne continuation

Bonjour
Il s'agit là de durées calendaires et non de durées temporelles et donc --->>
Le nombre de trimestres complets entre deux dates s'obtient par exemple ainsi :
1) aller à la date de début d'un trimestre ( 1er janv ou 1er avril, etc ...) la plus proche au delà de la première date
2) calculer le nombre de mois entiers séparant la première date ainsi "reportée" et la seconde date
3) calculer la partie entière de la division par 3 du résultat obtenu en 2)
Commence sur ces bases.

Je vais (comme d'habitude en ce qui me concerne) te mettre "sur la voie" du raisonnement exposé dans mon message précédent --->>
regarde ce que fait ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Dim date1 As Date date1 = Range("A1").Value Select Case Month(date1) Case Is <= 4 date1 = IIf(Day(date1) = 1, DateSerial(Year(date1), 4, 1), DateSerial(Year(date1), 7, 1)) Case Is <= 7 date1 = IIf(Day(date1) = 1, DateSerial(Year(date1), 7, 1), DateSerial(Year(date1), 10, 1)) Case Is <= 10 date1 = IIf(Day(date1) = 1, DateSerial(Year(date1), 10, 1), DateSerial(Year(date1) + 1, 1, 1)) Case Is <= 13 date1 = DateSerial(Year(date1) + 1, 1, 1) End Select MsgBox "la date de début du 1er trimestre à considérer est le " & date1

---

ce code te permet de trouver la date du 1er jour du 1er trimestre logique (celui égal ou qui commence juste après la date).
Tu vois le genre de raisonnement ? --->> continue (je te regarde).

Bonsoir unparia,

Citation:

---

Envoyé par unparia

ce code te permet de trouver la date du 1er jour du 1er trimestre logique (celui égal ou qui commence juste après la date).

---

J'ai quelques doutes car le prochain trimestre pour aujourd'hui commencerait le 1/7/2017 ?

Bien cordialement

Bonjour anasecu

Ouille ! Tu as raison. Je me suis mélangé les pinceaux avec les chiffres.
Mais on va de toutes manières faire plus simple, ainsi :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub CommandButton1_Click() MsgBox deter_debut_trim(Range("A1").Value, 1) End Sub Private Function deter_debut_trim(D As Date, sens As Integer) As Date Y = Year(D) refs = Array(DateSerial(Y, 1, 1), DateSerial(Y, 4, 1), DateSerial(Y, 7, 1), DateSerial(Y, 10, 1), DateSerial(Y + 1, 1, 1)) For i = 0 To UBound(refs) If D <= refs(i) Then deter_debut_trim = refs(i) Exit For End If Next End Function

---

Tu auras repéré le paramètre sens.
Je ne l'utilise pas encore, mais je suis certain que tu as déjà deviné à quoi il allait servir. Je préfère pour l'instant qu'on laisse gentilgars analyser et tenter de compléter seul ;)

Bon
On va finalement aller un peu plus loin car :
1) ce n'est peut-être pas trop évident
2) il lui restera quand même du travail à faire (calcul du nombre de trimestres complets et décomposition par années)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Private Sub CommandButton2_Click() MsgBox deter_borne_trim(Range("A1").Value, 1) & _ vbCrLf & deter_borne_trim(Range("A2").Value, -1) End Sub Private Function deter_borne_trim(D As Date, sens As Integer) As Date Y = Year(D) Select Case sens Case 1 refs = Array(DateSerial(Y, 1, 1), DateSerial(Y, 4, 1), DateSerial(Y, 7, 1), DateSerial(Y, 10, 1), DateSerial(Y + 1, 1, 1)) For i = 0 To UBound(refs) If D <= refs(i) Then deter_borne_trim = refs(i) Exit For End If Next Case -1 refs = Array(DateSerial(Y, 12, 31), DateSerial(Y, 9, 30), DateSerial(Y, 6, 30), DateSerial(Y, 3, 31), DateSerial(Y - 1, 12, 31)) For i = 0 To UBound(refs) If D >= refs(i) Then deter_borne_trim = refs(i) Exit For End If Next End Select End Function

---

EDIT : une chose attise ma curiosité personnelle, bien que n'ayant pas de rapport direct avec le code du mécanisme à mettre en oeuvre.
C'est ce passage dans le tout premier message :

Citation:

---

J'aimerais faire un programme en VBA qui renvoie pour chaque contrat le nombre de trimestres complets pour chaque année du contrat

---

j'aimerais voir la disposition prévue de ces données sur la feuille considérée, avec par exemple ces deux contrats : l'un du 01/01/2000 au 29/02/2000 et l'autre du 30/04/2011 au 31/03/2027
Ce n'est pas le calcul, qui me parait compliqué, mais vraiment cette seule organisation de l'affichage des résultats calculés.

Merci pour votre aide

Voici le fichier. Les contrats sont sous le titre "Périodes de services civils "

Pièce jointe 246609

Bonjour gentilgars
Désolé, mais je n'ouvre (et n'ouvrirai) jamais un classeur tiers.
Si tu veux montrer comment tu disposes tes données et résultats de calculs, tu peux par contre le faire en mettant ici une copie d'écran.

Voici la copie d'écran. Les contrats sont sous le titre "Périodes de services civils "
Pièce jointe 246641

Bien. Vu.
Mais cela ne me dit pas où et comment tu comptes faire apparaître les résultats dont tu parles dans ton 1er message.
Pour mémoire (ce que tu as écrit) :

Citation:

---

Par exemple si un contrat va du 01/08/1981 au 31/01/1983, je veux que le programme m'affiche :
1981 : 1
1982 : 4
1983 : 0

---

Fais (on y verra clair) une copie d'écran avec simulation (dates de contrats et répartition du nombre de trimestre par année) d'un contrat du 01/01/2000 au 29/02/2000 et un autre du 30/04/2011 au 31/03/2027