listbox et format Date

Bonjour

voilà, j'ai une Listbox, qui récupère des date au moment de l'inialize de l'USF, le format des date récupérées sont 10/10/2010.
donc j'aimerais récupérer certaine de ces date, mais je n'arrive pas à reproduire le format, quand je clic sur une date il en ressort un nbre à 5 chiffres, j'ai essayé, plusieur choses
TB_date1=format(TB_Date1, dddd,mmmm,yyyy)
mais rien ne fait.
et même le prévious ne fonctionne pas, quelqu'un à une idée.

Cordialement

Code:

---

1 2 3 4 5 6 7 8

Private Sub ListBox1_Click() Worksheets("Variable").Select TB_date1 = ListBox1 Range("D2").Select nom = TB_date1 Columns(1).Find(nom, , , , , Previous).Select   End Sub

---

Tu as une listbox ListBox1, un textbox TB_date1

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub ListBox1_Change() Dim nom As Date Dim c As Range   Me.TB_date1 = Format(ListBox1, "dd/mm/yyyy") nom = CDate(Me.TB_date1) Set c = Sheets("Variable").Columns(1).Find(nom, SearchDirection:=xlPrevious) If Not c Is Nothing Then MsgBox c.Address End Sub

---

Merci

j'ai bien le bon format dans ma textbox, mais cela ne vas pas rechercher la date selectionné dans ma feuille variable
cordialement

Et pourtant j'ai testé et ça fonctionne. donc, mauvaise adaptation ou cas non similaires

Ok, je crois savoir pourquoi cela ne fonctionne pas.
Dans ma feuille variable, la premiere cellule la date est bien noté, ensuite la date est notée sous forme de formule style A2=A1+7
cordialement

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub ListBox1_Change() Dim nom As Date Dim c As Range   Me.TB_date1 = Format(ListBox1, "dd/mm/yyyy") nom = CDate(Me.TB_date1) Set c = Sheets("Variable").Columns(1).Find(nom, LookIn:=xlValues, lookat:=xlWhole) If Not c Is Nothing Then MsgBox c.Address End Sub

---

Bonjour

merci encore pour ton aide, mais est t'il possible a la place d'avoir msgbox, avec l'adresse de la cellule de l'avoir plutot en range("adresse").select.
Cordialement

Et pourquoi tu veux sélectionner cette cellule?

afin de pouvoir remplacer la date, par une autre à l'aide d'un "calendar"

Pour cela, tu n'as pas besoin de sélectionner cette cellule

Code:

---

If Not c Is Nothing Then c.value=TaNouvelleDate

---