Texte dans listbox

[Laurent]

Bonjour à tous,

Voici mon problème, je voudrais placer les expressions suivantes dans un listbox ou un combobox en VBA.
CStr(Right(Date, 1)) & CStr(Date - CDate("01/01/" & Right(Date, 2)) + 1)
CStr(Right(Date, 1)) & CStr(Date - CDate("01/01/" & Right(Date, 2)))
CStr(Right(Date, 1)) & CStr(Date - CDate("01/01/" & Right(Date, 2)) - 1)

Je les places actuellement dans un textbox par la commande suivante:
TextBox1.Text = CStr(Right(Date, 1)) & CStr(Date - CDate("01/01/" & Right(Date, 2)) + 1)

Mais je ne parviens pas à placer ce texte dans un listbox.

Merci d'avance à ceux qui pourront m'aider,
Bonne journée,

A++
Laurent

 

[Hervé]

bonjour

essaye ceci :

Private Sub UserForm_Initialize()
Me.ListBox1.AddItem CStr(Right(Date, 1)) & CStr(Date - CDate("01/01/" & Right(Date, 2)) + 1)
Me.ListBox1.AddItem CStr(Right(Date, 1)) & CStr(Date - CDate("01/01/" & Right(Date, 2)))
Me.ListBox1.AddItem CStr(Right(Date, 1)) & CStr(Date - CDate("01/01/" & Right(Date, 2)) - 1)

End Sub

résultat pour controle
4293,4292,4291

Salut
Hervé

 

[Laurent]

Merci Hervé,

Formidable ça fonctionne, je ne faisait qu'une simple erreur de mise en forme...

En tout cas merci beaucoup et bonne journée.

A++
Laurent