Discussion :

[typhoon751]

Bonjour à tous,

voilà, j'ai un code qui me permet d'effectuer des recherches dans une listbox, ce code marche très bien quand il s'agit de fichiers textes (nom, prénom...), mais quand c'est une date, il me retourne les résultats jusqu'au "/" est après il retourne rien.
Par exemple, je veux rechercher la date 12/03/2010:
- si je tape 12, ce code me retourne tout les resultats comprenant un 12 dans ma listbox (ex : 12/03/2010, 24/12/2009, 10/01/2012....)
- mais si je tape 12/ , il ne me retourne rien.

Voici mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Private Sub TextBox2_Change()
If Me.TextBox2 = "" Then
   B_tout_Click
   Exit Sub
 End If
 Set mondico = CreateObject("Scripting.Dictionary")
 Me.ListBox1.Clear
 i = 0
 Set plage = [BASE]
 Set plageRech = Application.Index(Range("Base2"), , 3)
 Set C = plageRech.Find(Me.TextBox2, , , xlPart)
 If Not C Is Nothing Then
      premier = C.Address
      Do
          If Not mondico.Exists(C.Row) Then
            mondico.Add C.Row, C.Row
            Me.ListBox1.AddItem
            lig = C.Row - plage.Row + 1
            For col = 1 To NbCol
              Me.ListBox1.List(i, col - 1) = plage.Cells(lig, col)
            Next col
            i = i + 1
          End If
          Set C = plageRech.FindNext(C)
      Loop While Not C Is Nothing And C.Address <> premier
  End If
End Sub

si quelqu'un avait une idée, car la je ne comprend pas...

Merci

[luca.donati]

Bonjour, moi aussi j'ai de sérieux problème à utiliser la méthode Find avec les Userform.
Quelqu'un saurait nous dire comment on fait?
Je pense que le plus gros problème est de gérer le format, n'est-ce pas?
Merci !