Discussion :

[yves354]

Bonjour

Je force l’affichage d'une textbox avec CDATE pour afficher une date compréhensible.
L'utilisateur a le choix de modifier ou pas la textbox. Je récupère la valeur de la textbox dans un long.

Malheureusement CDate transforme ma variable en string alors que je dois la récupérer en long pour des calculs ultérieur.

Merci de votre aide

[eriiic]

Bonjour,

c'est sûrement pas cdate qui met ta date en string.
C'est plus probablement ton textbox qui, comme son nom l'indique, te retourne une chaine.
Essaie Clng(Cdate(Textbox1))
Comme tu ne livres pas ton code ça s'arrêtera là.
eric

[Transitoire]

Bonjour,
En ce qui me concerne, le code ci dessous fonctionne correctement:

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub CommandButton1_Click()
Dim y As Long
y = CDate(TextBox1.Value)
Range("A3").Value = y
End Sub
 
Private Sub UserForm_Initialize()
TextBox1.Value = Range("A2").Value
End Sub

Cordialement

[patricktoulon]

re
sans passer par l'intermediaire d'une cellule

Code :

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

1
2
3
4
 if isdate(textbox1.text) then 
date_numerique=clng(cdate(textbox1.text))
end if
msgbox date_numerique  &"--->" & typename( date_numerique)

[Theze]

Bonjour,

Ou encore :

Code :

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

1
2
 
LaDate = CDate(TextBox1.Text) * 1

[yves354]

Bonjour

Je n'y arrive pas.
J'affiche ma date dans une textbox grace à ça :

Code :

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

TBoxDebutMois.Value = CDate(glngDebutMois)

J'utilise CDate pour que la date sois compréhensible.
Ensuite je récupère la valeur de ma textbox grace à ça:

Code :

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

glngDebutMois = CLng(TBoxDebutMois.Value)

Mais ça me dit incompatibilité de type.
J'ai aussi essayé de passer par une cellule même problème.