Format date débutant par 1er

[Aimedjie]

Bonjour,

J'ai une question assez simple. J'ai inscrit une date en format j-mmmm-aaaa, mais j'aimerais que s'il s'agit du premier jour du mois, qu'il soit inscrit 1er plutôt que 1. Par exemple, je veux qu'il soit inscrit 1er janvier plutôt que 1 janvier. Idéalement, il faudrait que le er soit en exposant.

Merci.

 

[Sly le globe trotter]

Re : Format date débutant par 1er

Salut Aimedjie,

Je ne suis pas un expert mais ça ne parait pas simple ton histoire...
En fonction de la date, tu peux modifier, via une fonction si par exemple, son format d'affichage pour afficher 1er plutôt que 1 mais de la à passer le "er" en exposant...

=si(jour(cellule avec date)=1;"1er " & mois(cellule avec date) & " " & annee(cellule avec date) ;cellule avec date)

Bonne continuation
Sly

 

[Aimedjie]

Re : Format date débutant par 1er

Merci Sly le globe trotter, mais j'aimerais obtenir un code VBA.

Merci!

 

[Sly le globe trotter]

Re : Format date débutant par 1er

Il y a surement plus simple mais ceci fonctionne

Sub test()
Dim DateATester As Date
Dim Mois As String

DateATester = Sheets("Feuil1").Cells(1, 1)

Select Case Month(DateATester)
    Case 1
        Mois = "Janvier"
    Case 2
        Mois = "Février"
    Case 3
        Mois = "Mars"
End Select

If Day(DateATester) = 1 Then
    Sheets("Feuil1").Cells(2, 1) = "1er " & Mois & " " & Year(DateATester)
End If

End Sub

A compléter pour les autres mois...
Je suis parti du fait que la date est en A1 et que l'on écrit en A2.

Sly

 

[Pierrot93]

Re : Format date débutant par 1er

Bonjour Aimedjie, Sly

une autre solution vba, qui consiste à formater la cellule, permet de conserver une date date reconnue comme telle par excel :

If Day(Range("A1").Value) = 1 Then Range("A1").NumberFormat = "d""er ""mmmm yyyy"

perso, vois pas trop de solution pour utiliser des exposants sur ces 2 caractères lors du formatage.

bonne journée.
@+