[Résolu] Problème recherche intuitive

[Lone-wolf]

Bonjour le Forum,


j'ai repris un bout de code de Jacques Boisgontier pour une recherche intuitive avec une TextBox. Le problème c'est que le code fait la recherche sur 3 colonnes et non les 7.

Pour vous rendre compte, faite une recherche avec le n° de facture (colonne 7).

Votre aide est la bienvenue.



Lone-wolf

 

[pierrejean]

Re : Problème recherche intuitive

Bonjour Lone-wolf
Salut à JB

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

 

[Si...]

Re : Problème recherche intuitive

salut

ou encore (?)

 

[Lone-wolf]

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+

 

[pierrejean]

Re : Problème recherche intuitive

Re

Chez moi cela fonctionne !!

 

[Lone-wolf]

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+

 

[pierrejean]

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 - ?

 

[Lone-wolf]

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 !!!!)

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+

 

[Lone-wolf]

Re : Problème recherche intuitive

Re pierrejean, Si...

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

Solution

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