Discussion :

[Denis_67]

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 :

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

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

[Thautheme]

Bonjour Denis, bonjour le forum,

Essaie comme ça :

Code :

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

ThisWorkbook.Sheets("TRG").Range("BA2") = DateSerial(Year(Me.TextBox6.Value), Month(Me.TextBox6.Value), Day(Me.TextBox6.Value))

[Denis_67]

Merci Thauthème !

Ca fonctionne

j'avaisi beau lire et relire les tutos sur les dates .....
pour mémo
http://https://didier-gonard.develop...-excel-et-vba/
et
https://mhubiche.developpez.com/vba/...ions/datetime/
où on parle de dateserial

encore falait-il savoir l'utiliser .

en tout cas
Merci ! je me coucherai (un peu) moins bête.

Denis