Si date égale alors

Bonjour,

J'ai un UF de type formulaire à remplir par l'utilisateur avec un date picker. Je souhaiterai vérifier que l'utilisateur ai changé la valeur par défaut de cette date.

La valeur par défaut du date picker est 01/2015, avec vous l'aurez compris le format MM/yyyy.

Je ne trouve pas bcp d'info concernant les date picker ou plutôt l'utilisation des dates. Il serait tellement facile d'utiliser Date.Value mais évidemment ça ne marche pas avec les dates !

Voici un essai de code qui ne fonctionne pas :

'----Vérification du changement de la date-----

If Date = 1 / 2015 Then
    MsgBox "Vous n'avez pas changé la date par défaut. Voulez-vous la modifier ?", vbYesNoCancel + vbQuestion + vbApplicationModal, "Vérification de la date de l'offre"
    ldate.ForeColor = RGB(255, 0, 0)
End If

Merci d'avance pour votre aide,

Cordialement,

Antoine

Bonjour,

Et en utilisant If CDate(DTPicker1) = "01/2015" then

Au passage, rappelons que ceci ne peut pas fonctionner

If Date = 1 / 2015 Then

car une date est un nombre entier ... et ici 1/2015 est interprété comme une division !

le 1er janvier 2015 est stocké sous le nombre 42005 !

Bonjour JeremyW, Steelson, le forum

Merci JeremyW, c'est ce que je cherchais.

Et merci Steelson pour cette aide à la compréhension des dates sur VBA !

Ce forum est toujours aussi génial !!

Batoine

Bonjour,

Steelson, pourrais tu me dire où je peux trouver à quel date correspond quel numéro ? (cf exemple que tu donnes pour le 01/2015)

Merci

Bien sûr ... tu tapes la date dans une cellule d'excel, et tu changes le format (qui s'est mis en automatique) en nombre.

ha oui j'aurais dû y penser ! je suis bête !

Merci. Ca me sera surement utile un jour