Discussion :

[Didpa]

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 :

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

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

[mercatog]

Tu as une listbox ListBox1, un textbox TB_date1

Code :

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

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

[Didpa]

Merci

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

[mercatog]

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

[Didpa]

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

[mercatog]

Code :

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

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