Discussion :

[Liloo14]

Bonjour à tous,
J'ai un petit code qui me permet de savoir quel jour de la semaine correspond une date saisie dans une textbox.
Cela me pose un soucis lorsque l'utilisateur saisie une date avant le 01/01/1900 et pour cause.
J'aimerais donc que si l'utilisateur saisie une date antérieure au 01/01/1900, un message apparaisse lorsqu'on quitte la textbox1.
J'ai tenté ça mais sans résultat.
Si la date est postérieure au 01/01/1900 cela fonctionne bien, sinon j'ai un bug avec un message d'erreur 1004 défininis par l'application ou par l'objet.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
         If IsDate(TextBox1) < "01/01/1900" Then
        MauvaisFormatDate.Show
       Else
    End If
 
End Sub

Quelqu'un pourrait-il m'aiguiller sur les dates car je n'en suis pas très au fait.
Merci par avance
Laurent

[Marc-L]

Bonjour,

là ce n'est pas vraiment une question de date mais une question de logique …

Ligne n°2 : je ne crois pas qu'une fonction booléenne comme IsDate,
renvoyant donc Vrai ou Faux, puisse être comparée à une date !

A décomposer en deux tests distincts …


__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[nibledispo]

Bonjour,

Après plusieurs essais il semblerait que ce qui suit marche.
Il est vrai que la gestion des dates n'est pas simple sur VBA et qu'il vaut mieux dès lors comparer deux nombres (d'ou clng).

Sans doute y a t-il plus simple mais je ne l'ai pas trouvé.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Private Sub essaidate()
    If CLng(DateValue(Range("a1"))) < CLng(DateValue("01/01/1900")) Then
         MsgBox "date non acceptée"
    End If
End Sub

Cordialement,

[Liloo14]

Bonsoir Nibledispo,
en effet la gestion des dates semble complexe pour un débutant comme moi.
Merci pour ta réponse, je l'essai dés demain.
Bonne soirée

[78chris]

Bonjour

un peu de lecture http://didier-gonard.developpez.com/...-excel-et-vba/

Pour VBA le 19/01/1900 correspond au chiffre 2 : donc si la date est <=2 c'est antérieur.

Le problème c'est que pour contrôler des dates il faut vérifier que c'est une date. Mais pour Excel la valeur 2012 correspond à une date située 2012 jours après le 31/12/1899, donc c'est une date.
Il faut donc vérifier la présence des / et l'ordre jour et mois si on veut être sûr...

[nibledispo]

Bonsoir 78CHRIS,

J'ai lu le dossier de Didier mais ne suis absolument pas sur de l'avoir bien assimilé : Je suis même sur du contraire. c'est une occasion de me replonger dedans.

Si je te comprends bien, il faudrait passer par "dateserial" ?

Tu penses que le passage par clng n'est pas une solution viable et peut poser problème dans certaines circonstances ? mes essais semblent pourtant répondre à la problématique des dates.

Cordialement,

[78chris]

Re

Saisis 2012 ou 5/25/2013 dans ta textbox et vois ce que donne ton code.

Quand on demande à un utilisateur de saisir il peut faire n'importe quoi : il faut donc tout vérifier et déjà que c'est bien une date au format français.

Je n'ai pas parlé de dateserial. On peut vérifier la présence des / puis si ce qui se trouve entre les / est compris entre 1 et 12 avant de tenter un isdate qui marche même pour des saisis fantaisistes ou bien comparer par double conversion : clng remis en texte donne-t'il la même chose que la saisie ?

[nibledispo]

Bonjour,

Voici un code dénicher sur le net qui me semble intéressant concernant la validité de la date saisie.

Il n'y a qu'à modifier la date mini et maxi dans le code.

Cordialement.