Calcule fin de trimestre selon date d'entrée

Bonjour

La formule

=DATE(ANNEE(Effectif!B1);ENT((MOIS(Effectif!B1)-1)/3)*3+4;0)

Merci

Bonjour,

Une proposition via VBA.

A te relire.

Cdlt.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$B$1" Then
        Me.Cells(4).Value = IIf(IsEmpty(Target), vbNullString, EOQuarter(Target.Value))
    End If
End Sub

Public Function EOQuarter(dtm As Date) As Date
Dim iMonth As Integer
    iMonth = Int((VBA.Month(dtm) - 1) / 3) * 3 + 4
    EOQuarter = DateSerial(Year(dtm), iMonth, 0)
End Function

Je le mets en macro ?

Bonjour Theyoshi,

Essayez en remplaçant "date d'entrée de l'information" par

soit sa valeur, "29/02/2020" entre guillemets,

soit son adresse par ex. C8

dans votre formule à peine modifiée ci-dessous.

=DATE(ANNEE("date d'entrée de l'information");ENT((MOIS("date d'entrée de l'information")-1)/3)*3+4;0)

Bonjour,

Que veux-dire ?

Je le mets en macro ?

Merci à vous deux. Ta formule fonctionne