Afficher une textbox en format date et récupérer la donnée en format numérique

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 :calim2: alors que je dois la récupérer en long pour des calculs ultérieur.

Merci de votre aide

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

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

Code:

---

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 8-)

re
sans passer par l'intermediaire d'une cellule

Code:

---

1 2 3 4

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

---

Bonjour,

Ou encore :

Code:

---

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

---

Bonjour

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

Code:

---

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:

---

glngDebutMois = CLng(TBoxDebutMois.Value)

---

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

Il faut transmettre une chaine à la textbox

Code:

---

1 2 3

Dim glngDebutMois as long TBoxDebutMois.Value = format(glngDebutMois,"dd/mm/yyyy") glngDebutMois = cdate(TBoxDebutMois.Value)

---

eric

C'est parfait :mrgreen: merci beaucoup eriiic.

Merci à tous ceux qui ont répondus et à votre réactivité.