Textbox date en format nombre

Bonjour,

Je voudrais convertir ma textebox qui affiche ma date en format de nombre.

17/02/2019 => 43513

Est ce que quelqu'un aurait une astuce ?

Merci d'avance

Bonjour,

Par exemple :

Private Sub UserForm_Initialize()
Me.TextBox1 = CDate(Range("A1")) 'si date dans une cellule
Me.TextBox1 = CDate(Date) 'pour la date du jour
End Sub

Bonne soirée

Je vais tester la 2e solution.

Car je passe pas par une cellule dans une Feuille.

Merci en tout cas pour votre aide

La date est affichée en format date et non en numérique donc cela ne fonctionne pas.

je ne veux pas avoir 18/08/2022 mais 44791 dans le textbox a l'initialisation de l'userform.

je vais continuer les recherches merci en tout

Bonjour,

J'avais lu à l'envers...

Utilise le convertisseur CLng...

Me.TextBox1 = CLng(Date)

Bonne journée

top!!! Ça marche nickel

mervi beaucoup :)