Différence de Date

[Denis]

Me revoila salut a tous.

avec le fichier joint , je n'arrive pas à: ce que la date de parution soit supérieur a la date de remise.
Et si en plus il y a un méssage d'avertissement là c'et top.

merci à vous
@+

 

[@+Thierry]

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

 

[pyrof]

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

 

[Den]

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

Merci thierry et Pyrof

@ +