Microsoft 365 VBA : Calculer la date de fin de trimestre

[VBA_dev_Anne_Marie]

Bonjour,

Je n'arrive pas à dérouler la date de fin trimestre sur 10 ans par rapport à la date paramétrée.
En fait, je ne trouve pas de fonction VBA qui calcule cette date. Voici mon code :

Sub Trimestre()


Dim iMonth As Integer
    iMonth = Int((Month(Sheets("Paramétrage").Cells(3, 3).Value) - 1) / 3) * 3 + 4


Sheets("Paramétrage").Cells(12, 2).Value = EOQuarter = DateSerial(Year(Sheets("Paramétrage").Cells(3, 3).Value), iMonth, 0)
 
If Month(Sheets("Paramétrage").Cells(3, 3).Value) >= 1 And Month(Sheets("Paramétrage").Cells(3, 3).Value) <= 3 Then
Sheets("Paramétrage").Cells(12, 1).Value = "T1"
End If


If Month(Sheets("Paramétrage").Cells(3, 3).Value) > 3 And Month(Sheets("Paramétrage").Cells(3, 3).Value) <= 6 Then
Sheets("Paramétrage").Cells(12, 1).Value = "T2"
End If
 
 
If Month(Sheets("Paramétrage").Cells(3, 3).Value) > 6 And Month(Sheets("Paramétrage").Cells(3, 3).Value) <= 9 Then
Sheets("Paramétrage").Cells(12, 1).Value = "T3"

End If
 
 
If Month(Sheets("Paramétrage").Cells(3, 3).Value) > 9 And Month(Sheets("Paramétrage").Cells(3, 3).Value) <= 12 Then
Sheets("Paramétrage").Cells(12, 1).Value = "T4"
End If
 
 
 
End Sub

J'ai joint le fichier xlsm avec les résultats attendus.

 

[Phil69970]

Bonjour @VBA_dev_Anne_Marie

Tirer de l'aide en ligne de Bilou je te propose ceci :

Sub MonTrimestre()
Dim TheDate As Date    ' Déclare les variables.
Dim Msg
TheDate = [C3]
Msg = "Trimestre: " & DatePart("q", TheDate)
MsgBox Msg
[C12] = Msg

End Sub

Après il suffit d’associer chaque trimestre à la date qui va bien

Le 1er trimestre à Janv-Fev-Mars etc...

Merci de ton retour

@Phil69970

 

[JHA]

Bonjour à tous,

Une solution par formule

JHA

 

[VBA_dev_Anne_Marie]

Bonjour à tous,

Une solution par formule

JHA

Bonjour,
Merci, mais je souhaiterais transcrire les formules en code VBA.

Merci pour votre aide.

 

[patricktoulon]

bonjour
selon le résultat attendu
par formule aussi
en B12
=DATE(ANNEE(C3);MOIS(C3)+1;0)
et en dessous donc an B13
=DATE(ANNEE(D12); MOIS(D12)+4;0)
et étendre la formule de b 13 jusqu’à (la ligne que vous voulez

 

[Deadpool_CC]

Bonjour,
formule aussi pour trouver le denier jour du trimestre de la date en $C$3

=DATE(ANNEE($C$3)+SI(MOIS($C$3)>9;1;0);SI(MOIS($C$3)<4;4;SI(MOIS($C$3)<7;7;SI(MOIS($C$3)<10;10;1)));1)-1

 

[Deadpool_CC]

Et en passant, la même en code VBA (ou tu passe en paramètre la cellule de la date Origine et la cellule de la cible ou mettre ta date de fin de trimestre

Sub Trimestre(Origine As Range, Target As Range)

    Dim AjusteAnnée As Integer
    Dim Année As Integer
    Dim Mois As Integer

    Année = Year(Origine.Value)

    ' Calcule du 1er du mois suivant le trimestre ... moins 1 jour
    '  => pour éviter d'avoir à calculer les 30 ou 31 possibles en fin de mois

    If Month(Origine.Value) > 9 Then
        AjusteAnnée = 1
        Else
        AjusteAnnée = 0
    End If
    
    Select Case Month(Origine.Value)
        Case 1, 2, 3
            Mois = 4
        Case 4, 5, 6
            Mois = 7
        Case 7, 8, 9
            Mois = 10
        Case Else
            Mois = 1
    End Select
    
    Target.Value = DateSerial(Année + AjusteAnnée, Mois, 1) - 1

End Sub

 

[Phil69970]

Bonjour à tous

Après une petite absence dans l’après midi voici ma version

Merci de ton retour

@Phil69970

 

[Laurent78]

Bonsoir,
en formule Excel :
si une date est saisie en A1
en B1, la formule pour obtenir le dernier jour du trimestre peut être :

=DATE(ANNEE(A1);(ENT((MOIS(A1)-1)/3)+1)*3+1;1)-1

Ci joint le classeur Excel avec une fonction personnalisée (à tester bien sûr)

Public Function DJDT(d) As Date
Rem Fonction calculant le Dernier Jour Du Trimestre
DJDT = DateSerial(Year(d), (Int((Month(d) - 1) / 3) + 1) * 3 + 1, 1) - 1

End Function

Bonne soirée

 

[dysorthographie]

bonsoir,

Dim d As Date
d = Format(Sheets("Paramétrage").Cells(3, 3).Value, "yyyy-mm-dd")
 'dernier jour du trimestre!
Debug.Print DateSerial(Year(d), (((Month(d) - (Month(d) Mod 3)) / 3 + Abs(CBool(Month(d) Mod 3))) * 3) + 1, 1) - 1

'T1 à T4
Sheets("Paramétrage").Cells(12, 1).Value = Array("", "T1", "T2", "T3", "T4")((Month(d) - (Month(d) Mod 3)) / 3 + Abs(CBool(Month(d) Mod 3)))

 

[mapomme]

Bonsoir à tous ,

Bon, j'y vais aussi .

Function Trimestre$(ByVal x As Date): Trimestre = "T" & Format(x, "q"): End Function

 

[dysorthographie]

j'y ai pas pensé!

le géni c'est des chose simple auquel personne a pensé!

Dim T As Integer
T = Format(Sheets("Paramétrage").Cells(3, 3).Value, "Q")
 
Debug.Print DateSerial(Year(d), (T * 3) + 1, 1) - 1 'dernier jour du trimestre!
Sheets("Paramétrage").Cells(12, 1).Value = mapomme

Merci MaPomme

 

[VBA_dev_Anne_Marie]

bonsoir,

Dim d As Date
d = Format(Sheets("Paramétrage").Cells(3, 3).Value, "yyyy-mm-dd")
 'dernier jour du trimestre!
Debug.Print DateSerial(Year(d), (((Month(d) - (Month(d) Mod 3)) / 3 + Abs(CBool(Month(d) Mod 3))) * 3) + 1, 1) - 1

'T1 à T4
Sheets("Paramétrage").Cells(12, 1).Value = Array("", "T1", "T2", "T3", "T4")((Month(d) - (Month(d) Mod 3)) / 3 + Abs(CBool(Month(d) Mod 3)))

Bonjour,

Merci pour votre message, mais le code ne donne pas la date fin.

 

[Phil69970]

Re

As tu essayé mon code post #8 ?

@Phil69970

 

[dysorthographie]

Ça ça donne le dernier jour du trimestre

Debug.Print DateSerial(Year(d), (((Month(d) - (Month(d) Mod 3)) / 3 + Abs(CBool(Month(d) Mod 3))) * 3) + 1, 1) - 1