Différence de Date

Bonsoir Denis,

Pas sûr d'avoir bien compris vu la simplicité de la question en comparaison de ce que tu as déjà fait dans le fichier joint... Enfin ptet que çà t'a échappé ... lol

Private Sub Calendrier_click()
Dim LaDate1 As Date
If txtRemise <> "" Then LaDate1 = txtRemise

If cboDateAValider.ListIndex = 0 Then
txtRemise.Value = Calendrier.Value
cboDateAValider.ListIndex = 1

Else
If Calendrier < LaDate1 Then
MsgBox "Changer de date de Parution"
Exit Sub
Else
TxtParution.Value = Calendrier.Value
End If

End If
End Sub

Si c'est ce que tu voulais.....
Bonne Nuit
@+Thierry

Bonjour,

Voici une autre méthode, là il faut saisir les dates (moins bien),
mais il y a un controle de date

il faut utiliser donnéés validation date

c'est mois joli qu'une boite de dialogue mais c'est efficace

Merci a vous
C'est bien ça, encore une fois

Merci thierry et Pyrof

@ +