Calcul d'une date aprés saisie du jour

[BAP38]

Bonjour,
Novice, je tourne en rond pour le pb suivant:
Je souhaite que l'utilisateur saisisse un jour (1 à 31) sur mon userform et que la date s'inscrive en format jj.mm.aaaa sous une plage excel.
Ma cochonnerie:
Dim Dat, M, Y,D ListBox2 As Date
Y = Year()
D = Listbox2
If D > Day() Then
M = Month()
Else
M = Month() + 1
End If
Manque plus que le
range("Macell")=??
Merci d'avance!!

 

[Guest]

Re : Calcul d'une date aprés saisie du jour

Bonjour,

Range("maCell")= dateserial(Y,M,D)

A+

 

[BAP38]

Re : Calcul d'une date aprés saisie du jour

Rapide précis efficace,

Merci merci!!