Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Convertir date en Trimestre

chaelie2015

XLDnaute Accro
Bonsoir Forum
je cherche une formule qui me permet de convertir une date en Trimestre
exemple :
12/12/2019 => 4T 2019
12/03/2018 => 1T 2018
Salutations
 

Robert

XLDnaute Barbatruc
Repose en paix
Bonsoir Chaelie, bonsoir le fil, bonsoir le forum,

Peut-être avec cette fonction personnalisée à mettre dans un module standard :

VB:
Public Function TrimDate(Cel As Range)
Dim D As Date
Dim A As Integer
Dim R As String

If Not IsDate(Cel.Value) Then MsgBox "Date non valide": TrimDate = "": Exit Function
D = DateSerial(Year(Cel.Value), Month(Cel.Value), Day(Cel.Value))
A = Year(D)
Select Case D
    Case Is > DateSerial(A, 9, 30)
        TrimDate = "4T " & A
    Case Is > DateSerial(A, 6, 30)
        TrimDate = "3T " & A
    Case Is > DateSerial(A, 3, 31)
        TrimDate = "2T " & A
    Case Is > DateSerial(A - 1, 12, 31)
        TrimDate = "1T " & A
End Select
R = TrimDate
End Function
 

Modeste geedee

XLDnaute Barbatruc
Bonsour® plus simplement Robert ..
 

Modeste geedee

XLDnaute Barbatruc
Bonsour®
Bonjour chaelie2015, eriiiic, Modeste geedee, Robert,

Elle me plaît bien cette fonction VBA Format(cel, "Q") dommage qu'il n'y ait pas l'équivalent pour Excel.

Bonne journée.
????
directement de l'aide en ligne :
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…