Date

Bonjour,

j'ai un problème de date, dans une condition si j'ai une valeur j'aimerai que la date mois en cours et année plus 5 mois soit saisie dans une cellule mais j'ai pour octobre par exemple 201615 au lieu de 201705

Cells(i, 28) = "Date Echéance  " & Year(Date) & Month(Date) + 5

voila ce que j'avais mis

Bonjour,

Essaie ainsi :

Cells(i, 28) = "Date Echéance  " & Format(Application.EDate(Date, 5), "yyyymm")

Par contre, ce ne sera qu'un décalage de 5 mois par rapport à la date du jour, et non par rapport à la date inscrite dans une cellule...

Bon courage

Bonjour,

Essaie ainsi :

msg = "Date échéance : "
Cells(i, 28) = msg & DateAdd("m", 5, Date)

nickel ça marche !!!

un grand merci