Discussion :

[MichaSarah]

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

[sabzzz]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Didier Gonard]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[MichaSarah]

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

Salutations
MichaSarah