Afficher dans un TexBox la date contenue dans une ListBox

Bonjour,
Je rencontre un petit probleme de recopie de données entre texBox et listBox.

J'ai une listBox qui affiche les données d'une feuille Excel. Je ne mets pas toutes les données à l'écran dans la listBox car il y a beaucoups de colonnes. J'ai donc mis certaines largeurs de colonnes à "0" . Parmis ces colonnes à "0" il y en a une qui contient une date et que je souhaite afficher dans un textBox avec la fonction "Change" de la ListeBox. Mais ce qui s'affiche est un nombre et non pas une date. J'ai essayé d'utiliser "TextBox Isdate" mais cela ne change rien. Pouvez-vous me conseiller ?

Merci
MichaSarah

bonjour MichaSarah,

en supposant que la colonne date est la troixieme colonne de la plage source et donc en colonne 2 de la ListBox (0-1-2),

Code:

---

Me.TextBox1 = Format(ListBox1.List(ListBox1.ListIndex, 2), "yyyy-mm-dd")

---

Bonjour,

il y a une raison à ton phénomène, vois le tutoriel suivant :

Comprendre et gérer les dates sous Excel et en VBA

sinon, dans un USF de test (1 bouton, 2 txtbox, 1 label (qui peut-être une approche sympa pour les affichages non modifiables)) le code suivant.

on rentre une date en C3, puis on lance l'USF...
Le stop est fait pour avancer en mode pas à pas ensuite (F8).

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub CommandButton1_Click() Stop With Cells(3, 3) .NumberFormat = "General" TextBox1 = .Value End With Label1 = TextBox1 TextBox2 = CDate(TextBox1) End Sub

---

cordialement,


Didier

Bonsoir sabzzz & Ormonth,
Je vous remercie à nouveau. C'est ce que je recherchais, mon pb est réglé.

Salutations
MichaSarah