Modifier date sans le jour

[sev]

Bonjour à tous
Comment modifier de dates sans le jour par rapport à AUJOURDUI ?
Fichier joint

Merci pour votre aide

 

[sousou]

Re : Modifier date sans le jour

Bonjour
Voici ta formule dans une cellule au foramat date
=DATEVAL((JOUR(A2)&"/"&MOIS(C1)&"/"&ANNEE(C1)))

 

[abcd]

Re : Modifier date sans le jour

Bonjour,

Remplacer la date en C1 par : =DATE(ANNEE(AUJOURDHUI());MOIS(AUJOURDHUI());5)
5 étant le jour à conserver.
Pour C2 : 5 est à remplacer par 26

abcd

 

[pierrejean]

Re : Modifier date sans le jour

bonjour sev

macro:

Private Sub Worksheet_Activate()
mois = Month(Range("A2"))
an = Year(Range("A2"))
For n = 1 To Range("C65536").End(xlUp).Row
  Range("C" & n) = CDate(Day(Range("C" & n)) & "/" & mois & "/" & an)
Next n
End Sub