[Résolu] Problème recherche intuitive

Lone-wolf · 10 Février 2016

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 · 10 Février 2016

Re : Problème recherche intuitive

Bonjour Lone-wolf
Salut à JB

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

Si... · 10 Février 2016

Re : Problème recherche intuitive

salut

ou encore (?)

Lone-wolf · 10 Février 2016

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 · 10 Février 2016

Re : Problème recherche intuitive

Re

Chez moi cela fonctionne !!

Lone-wolf · 10 Février 2016

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 · 10 Février 2016

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 · 10 Février 2016

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 · 10 Février 2016

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

[Résolu] Problème recherche intuitive

Lone-wolf

XLDnaute Barbatruc

Pièces jointes

pierrejean

XLDnaute Barbatruc

Pièces jointes

Si...

XLDnaute Barbatruc

Pièces jointes

Lone-wolf

XLDnaute Barbatruc

pierrejean

XLDnaute Barbatruc

Pièces jointes

Lone-wolf

XLDnaute Barbatruc

Pièces jointes

pierrejean

XLDnaute Barbatruc

Lone-wolf

XLDnaute Barbatruc

Lone-wolf

XLDnaute Barbatruc

Discussions similaires