Discussion :

[Menhir]

Bonjour à tous,

Ce problème étant régulière rencontré dans les demandes du forum, il pourrait être utile de l'intégrer aux Sources VBA Excel.

Partons de l'hypothèse que la date est saisie dans une TextBox nommée TextBox1 au format français (jj/mm/aa ou jj/mm/aaaa) et qu'elle est destinée à être placée dans la cellule A1 de la feuille active.
Si la date est simplement dans une variable String, il suffit de supprimer les deux premières lignes et de remplacer MaDate par le nom de la variable concernée.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim MaDate As String
MaDate = TextBox1.Value                                  ' Source des données
 
If Not IsDate(MaDate) Then                               ' Le contenu de TextBox ne correspond pas à une date valide
    MsgBox("La date saisie n'est pas conforme. Saisir la date au format jj/mm/aaaa")
Else If Val(Split(MaDate, "/")(1)) > 12 Then           ' le second élément de date ne correspond pas à un mois, évite les dates au format anglophone
    MsgBox("Le second élément de date n'est pas un numéro de mois. Saisir la date au format jj/mm/aaaa")
Else
    Range("A1").NumberFormat = "dd/mm/yyyy"      ' Format de la cellule
    Range("A1").Value = DateSerial(Split(MaDate, "/")(2), Split(MaDate, "/")(1), Split(MaDate, "/")(0))   ' Découpage du texte en année, jour et mois puis recomposition en Date
End If

Personnellement, je n'utilise jamais les UserForm. J'espère donc que la ligne 2 a une syntaxe correcte. Si ce n'est pas le cas, merci de le signaler.

[Pierre Fauconnier]

Salut Menhir.

J'ai testé ton code avec l'entrée 01 septembre 2020, et ça bugue... Elle bugue également avec une date mal saisie pour Excel, comme par exemple 20/02/0100. Elle bugue également avec les dates mm/dd/yyyy dont le jour est >12, alors que tu annonces qu'elle accepte ce format. De plus, tu as un Else If qui plante et qui devrait être en un seul mot, ce qui empêche la compilation. C'est assez gênant pour un truc "à intégrer dans les sources" ^^

De plus, ton code impose l'utilisation d'un textbox et de la cellule A1, et elle affiche des messages intempestifs à l'utilisateur. ce n'est pas à la fonction à afficher un message à l'utilisateur, et ce n'est pas à la fonction à décider où doit être placée la valeur de retour. Il faudrait avoir un truc du style Function StringToDate(Value As String) As Date, par exemple. C'est le code appelant qui doit décider ce qu'il fait de la valeur de retour, d'informer ou pas l'utilisateur. Je sais que, malheureusement, nos sources et faq sont remplies de mauvais exemples d'architecture, mais je pense que ce temps est révolu.

Pour qu'une source soit utilisable, il faut pour bien faire qu'elle puisse être utilisée telle quelle et greffée dans un code tel un snippet. Une fonction me semble répondre à ce besoin, avec soit une génération d'erreur si pb, soit le renvoi d'une valeur décidée pour l'erreur, par exemple 0, ou -1 (pas top car = TRUE), -2 ou autre... Ca pourrait être -2 = mauvais format, -3 = mois en dépassement, etc.

Bien entendu, une source ne peut pas buguer. Elle doit, a minima, prévoir une gestion d'erreur pour ne pas entrer en débogage... ^^