mais ou c'est-il donc ???

[Nicko]

Bonjour à tous,

J'avais trouvé il y a quelques temps une macro permettant de faire une recherche "intelligente"

> A partir de la saisie dans une textbox, il y avait une selection automatique de la correspondance dans une listbox avec diminution des choix possible!!!
(je ne sais pas si c'est bien clair tout ca !)

Est-ce que cela dit quelque chose à l'un ou l'une d'entre vous ???

Si c'est le cas, je suis preneur d'un lien car pas moyen de formuler une recherche qui fonctionne :-o

C'est peut etre parce qu'il commence à etre tard ;-)

D'avance merci ...

 

[Modeste]

Re : mais ou c'est-il donc ???

Bonjour Nicko,

Difficile de savoir si c'est cette discussion que tu avais trouvée, mais sur
https://www.excel-downloads.com/threads/ajouter-et-modifier-dans-un-userform.121349/ ... une proposition de Bebere au message #9

Modeste

 

[klin89]

Re : mais ou c'est-il donc ???

Bonjour Modeste, Nicko
Bonjour à tous,

Pas sûr d'avoir compris, mais vois ce fil et l'exemple de Boisgontier.

https://www.excel-downloads.com/threads/2-combobox-alimentant-une-listbox.96474/

Je pense plutôt à cela : toujours et encore Boisgontier

https://www.excel-downloads.com/threads/recherche-intuitive.117800/

Klin89

 

[Nicko]

Re : mais ou c'est-il donc ???

Bonjour à tous,

Merci pour votre aide, c'est tout à fait ce que je recherchais !

par contre j'aimerais apporter une modif a un code
(j'ai pris la solution de Boisgontier avec la recherche intuitive)

le code du bouton recup:
Private Sub B_recup_Click()
Sheets("Result").Cells.ClearContents
Sheets("Result").Range("A2").Resize(Me.ListBox1.ListCount, nbcol) = Me.ListBox1.List
For i = 1 To nbcol
Sheets("Result").Cells(1, i) = Me("label" & i).Caption
Sheets("Result").Cells(1, i).Font.Bold = True
Next
End Sub

J'aimerais que la fonction recup ne soit valable que pour la ligne sélectionnée dans la listbox.

Si quelqu'un peut m'aiguiller ...

D'avance merci

 

[Nicko]

Re : mais ou c'est-il donc ???

bonjour,

Personne pour m'aiguiller vers une solution ... ?

Merci

 

[BOISGONTIER]

Re : mais ou c'est-il donc ???

Bonjour,

Private Sub B_recup_Click()
  Sheets("Result").Cells.ClearContents
  Sheets("Result").Range("A2").Resize(, nbcol) = _
     Application.Index(Me.ListBox1.List, Me.ListBox1.ListIndex + 1)
  For i = 1 To nbcol
    Sheets("Result").Cells(1, i) = Me("label" & i).Caption
    Sheets("Result").Cells(1, i).Font.Bold = True
  Next
End Sub

http://boisgontierjacques.free.fr/fichiers/Formulaire/FormIntuitive42.xls

JB

 

[Nicko]

Re : mais ou c'est-il donc ???

Merci pour le code, c'est nickel !!!

A bientôt

 

[Nicko]

Re : mais ou c'est-il donc ???

Une autre question ...

comment faire pour que la recherche ne s'effectue que sur la 1ere colonne ???

Merci

 

[BOISGONTIER]

Re : mais ou c'est-il donc ???

Set plage = [MaBD].Resize(, 1)

Private Sub TextBox1_Change()
 Me.ListBox1.Clear
 i = 0
 Set plage = [MaBD].Resize(, 1)
 Set c = plage.Find(Me.TextBox1, , , xlPart)
 If Not c Is Nothing Then
      premier = c.Address
      Do
          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
        Set c = plage.FindNext(c)
      Loop While Not c Is Nothing And c.Address <> premier
  End If
End Sub

JB

 

[Nicko]

Re : mais ou c'est-il donc ???

Une fois de plus parfait !!!

un grand merci