Utilisation date dans textbox
Bonjour,
Malgré la consultation des tuto sur les dates, j'ai un truc qui coince.
Je demande à l'utilisateur de saisir une date dans un texte box
Je teste si c'est bien une date
Pour différentes raisons (appelle d'une requete sql sur une base externe), je passe par l'écriture de la date dans une cellule qui me sert ensuite de variable.
pour cela j'utilise CDATE de ma saisie, mais malgré les apparences ce n'est toujours pas une vraie date.
J'ai trouvé un contournement en soustrayant à "DATE" la différence entre la date et la date saisie mais c'est moche, et surtout j'aimerais comprendre
Code:
1
2
3
4
5
6
7
8
9
| Private Sub CommandButton1_Click()
If Not IsDate(Me.TextBox6) Then MsgBox "Veuillez saisir une date correcte": Exit Sub
If Num_Machine = "" Then MsgBox "Merci de choisir une machine": Exit Sub
' ThisWorkbook.Sheets("TRG").Range("BA2") = CDate(Me.TextBox6) <========= pourquoi ça marche pas ?
' la méthode brute qui marche
Dim Horizon As Integer
Horizon = Date - CDate(Me.TextBox6)
ThisWorkbook.Sheets("TRG").Range("BA2") = Date - Horizon |
Merci
Denis
