Chargement Auto de la date du jour dans une text box

Bonjour,

Je souhaite que dans une textbox la date du jour s'affiche en auto à l'ouverture de l'UserForm correspondant.

J'utilise la macro suivante qui remplit d'autres fonctions, mais ça ne marche pas.

Private Sub UserForm_Choix_Salarie_Initialize()

TextBoX_Date.Value = DateValue(Now)
Dim tb()
Dim i As Integer
tb = Range("tb_liste[#all]").Value
For i = 1 To UBound(tb, 2)
Me.ComboBox_Choix_Themes = tb(1, i)
Next i
Me.ComboBox_Choix_Themes.ListIndex = 0
ComboBox_Choix_Themes.List = Application.Transpose([tb_liste].Rows(0).Value)
ComboBox_Choix_Themes = ""

End Sub

Si quelqu'un peut m'expliquer pourquoi ça plante et ou j'ai fait l'erreur.

Cordialement.

Bonjour,

.TextBox_Date = Date

Bonjour Eric,

Merci de la réponse

J'avais essayé mais ça ne fonctionne pas

Xavier

Attention à la syntaxe :

TextBoX_Date = Date

Bonjour,
Pour le principe :

Private Sub UserForm_Initialize()
Dim lo As ListObject, tbl

    Set lo = Range("tb_Liste").ListObject
    tbl = lo.ListColumns(2).DataBodyRange.Value

    Me.txtDate = Format(VBA.Date, "dd/mm/yyyy")
    With Me.cboChoixThemes
        .List = tbl
        .ListIndex = 0
    End With

End Sub

Je ne comprends pas la suite.
Cdlt.

Bonjour Jean-Eric,

Merci pour la macro, elle facilite la mienne.

En revanche la date ne s'alimente toujours pas je n'y comprends plus rien. :-)

Cordialement.

Re,
Regarde ce fichier.
dlt.

Encore une fois merci,

je ne comprends pas pourquoi mais ça ne fonctionne pas quand je transpose la macro.

Je te joins le fichier car il y a certainement quelque chose que je fais mal, mais je ne vois

pas quoi.

Cordialement.

L'initialisation n'est pas correcte. Vous avez des commandes appartenant à l'autre userform. Il vous manque une combobox.

Merci beaucoup pour l'aide fournie.

J'ai enfin retrouvé mes petits.

Bonne soirée cordialement.