[Résolu] Problème recherche intuitive

pierrejean

XLDnaute Barbatruc

• 10 Février 2016

• #2

Re : Problème recherche intuitive

Bonjour Lone-wolf
Salut à JB

Vois si cela va mieux
NB: F1 et Find !!!!

 

Pièces jointes

• Alimenter ListBox.xlsm

  24.9 KB · Affichages: 59
• Alimenter ListBox.xlsm

  24.9 KB · Affichages: 51

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 10 Février 2016

• #3

Re : Problème recherche intuitive

salut

ou encore (?)

 

Pièces jointes

• Recheche(UsF ListBox).xlsm

  24 KB · Affichages: 49

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 10 Février 2016

• #4

Re : Problème recherche intuitive

Bonjour pierrejean,

merci d'avoir pris le temps de regarder le fichier. Malheureusement, il n'y a pas de changement.

En tapant par exemple FC - DD la listbox se vide.

EDIT: Super Si..., c'est nickel, merci beaucoup. Fallait penser à créer un tableau.
@Si..., comme mettre les dates au format dd.mm.yyyy comme dans la feuille ?




A+ 😎

 

Dernière édition: 10 Février 2016

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 10 Février 2016

• #5

Re : Problème recherche intuitive

Re

Chez moi cela fonctionne !!

 

Pièces jointes

• lone_wolf.jpg

  24.8 KB · Affichages: 28

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 10 Février 2016

• #6

Re : Problème recherche intuitive

Re pierrejean,

et bien là je ne comprends pas 😕 (si tu parle du fichier que tu as modifié). Je viens de le ré-ouvrir, fait la recherche, la listbox est vide.





A+ 😎

 

Pièces jointes

• usf.gif

  4.7 KB · Affichages: 37

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 10 Février 2016

• #7

Re : Problème recherche intuitive

Re

Salut Si (soluce Impeccable !!!!)

je parle bien du fichier que j'ai modifié

Tu n'aurais pas 2 espaces entre le C et le - ?

 

Dernière édition: 10 Février 2016

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 10 Février 2016

• #8

Re : Problème recherche intuitive

Re pierrejean,

non. Il y a bien un espace entre FC el le tiret. (FC - DD)

Salut Si (soluce Impeccable !!!!)

Cliquez pour agrandir...

Le problème c'est que dans la ListBox, les dates sont au format "dd/mm/yyyy" et non "dd.mm.yyyy" . Et il n'y a que Si (enfin je crois) qui peut modifier celà.




A+ 😎

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 10 Février 2016

• #9

Re : Problème recherche intuitive

Re pierrejean, Si...

Problème résolu, encore merci à vous deux pour votre aide.

Solution

Code:

Private Sub UserForm_Initialize()

 n = [Tb].Columns.Count
  ListBox1.ColumnCount = [Tb].Columns.Count
  ListBox1.ColumnWidths = "50;90;80;70;70;70;60"
  For k = 1 To n
    Me("Label" & k) = [Tb].Item(0, k)
    Me("Label" & k).Top = Me("Label" & k).Top + 5
  Next
  
With Sheets("Factures")
lig = .Range("a65536").End(xlUp).Row
For x = 2 To lig
ListBox1.AddItem .Range("a" & x)
        For j = 2 To 7
        ListBox1.List(ListBox1.ListCount - 1, j - 1) = .Cells(x, j)
        If IsDate(ListBox1.List(ListBox1.ListCount - 1, j - 1)) Then _
        ListBox1.List(ListBox1.ListCount - 1, j - 1) = Format(.Cells(x, j), "dd.mm.yyyy")
        Next j
    Next x
End With
End Sub

Amicalement

Lone-wolf 😎

 

Vote positif 0 Vote négatif