Lors du développement d’un classeur, vous devrez peut-être placer des suffixes tels que «st, nd, rd ou th» à la fin des dates, comme dans «9 mars».

Malheureusement, il n’existe aucun moyen de le faire en utilisant les formats de date intégrés que vous pouvez appliquer à des cellules individuelles. Vous pouvez créer des formats personnalisés pour chacun des quatre types de suffixes, si vous le souhaitez, mais ils devraient être appliqués individuellement en fonction du contenu de la cellule elle-même.

La seule autre option consiste à utiliser une sorte de formule de conversion. Ceux-ci sont assez faciles à assembler, mais la cellule résultante ne contiendra pas une vraie date Excel, mais du texte. Cela empêche le contenu de la cellule d’être utilisé dans d’autres fonctions liées à la date. Voici un exemple du type de formule de conversion que vous pouvez utiliser:

=DAY(A1)&IF(OR(DAY(A1)={1,2,3,21,22,23,31}), CHOOSE(1*RIGHT(DAY(A1),1),"st","nd ","rd "),"th")

&TEXT(A1,"mmmm, yyyy")

Il y en a d’autres, mais ils font tous essentiellement la même chose: séparer les différentes parties d’une date et les remettre ensemble avec le suffixe approprié.

Si vous préférez, vous pouvez également créer une fonction macro qui renverrait une date correctement formatée, avec le suffixe ordinal. Voici une de ces macros:

Function OrdinalDate(myDate As Date)

Dim dDate As Integer     Dim dText As String     Dim mDate As Integer     Dim mmmText As String

dDate = Day(myDate)

mDate = Month(myDate)



Select Case dDate         Case 1: dText = "st"

Case 2: dText = "nd"

Case 3: dText = "rd"

Case 21: dText = "st"

Case 22: dText = "nd"

Case 23: dText = "rd"

Case 31: dText = "st"

Case Else: dText = "th"

End Select

Select Case mDate         Case 1: mmmText = " January"

Case 2: mmmText = " February"

Case 3: mmmText = " March"

Case 4: mmmText = " April"

Case 5: mmmText = " May"

Case 6: mmmText = " June"

Case 7: mmmText = " July"

Case 8: mmmText = " August"

Case 9: mmmText = " September"

Case 10: mmmText = " October"

Case 11: mmmText = " November"

Case 12: mmmText = " December"

End Select

OrdinalDate = dDate & dText & mmmText End Function

Vous utilisez la macro en l’appelant simplement dans une formule de cellule. Par exemple, si vous avez une date stockée dans la cellule B7, vous pouvez utiliser ce qui suit dans n’importe quelle autre cellule:

=OrdinalDate(B7)

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites ExcelTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / excelribbon-ExcelTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

ExcelTips est votre source pour une formation Microsoft Excel rentable.

Cette astuce (10033) s’applique à Microsoft Excel 2007, 2010, 2013, 2016, 2019 et Excel dans Office 365. Vous pouvez trouver une version de cette astuce pour l’ancienne interface de menu d’Excel ici:

link: / excel-Adding_Ordinal_Notation_to_Dates [Ajout d’une notation ordinale aux dates].