XL 2016 Fonction Date

[KTM]

Bonjour chers tous
Je voudrais par vba transformer une date dd-mmm-yyyy en 1-mmm-yyyy

Merci

 

[job75]

Bonjour KTM,

Voyez le fichier joint et les 2 solutions par formule et VBA qui utilisent la fonction FIN.MOIS.

A+

 

[ChTi160]

Bonjour
Bonjour le Fil (job75) ,le Forum
Sans fichier exemple de ce que tu as , on peut tout imaginer lol
Ex :

Sub test()
Dim DateSource As Date
Dim MaDate As Date
DateSource = Date
MaDate = Format(DateSerial(Year(DateSource), Month(DateSource), 1), "dd-mmm-yyyy")
MsgBox MaDate
End Sub

Bonne Journée
Jean marie

 

[KTM]

Bonjour
Bonjour le Fil (job75) ,le Forum
Sans fichier exemple de ce que tu as , on peut tout imaginer lol
Ex :

Sub test()
Dim DateSource As Date
Dim MaDate As Date
DateSource = Date
MaDate = Format(DateSerial(Year(DateSource), Month(DateSource), 1), "dd-mmm-yyyy")
MsgBox MaDate
End Sub

Bonne Journée
Jean marie

Merci job75 et Merci ChT160 pour l'aide