creer un moteur de recherche surune feuille exel via vba

[AVORIAZ]

salut

j'ai creer un petit log qui permet de choisir differents classeur et ensuite differents feuilles que j'affiche sur exel .........

cependant il ya enormement de donner par feuille

je voudrais allors creer un moteur de recherche qui scan la feuille exel et qui me renvoie le resultat dans un texbox par exemple

exemple

rouge 3
bleu 8
vert 10
jaune 13

via un userform
je recherche par exemple rouge
le moteur trouve rouge sur la feuil 1 et m'affiche sa reference

ROUGE 3

merci pour votre aide

avo

 

[Creepy]

Bonsoir toutes & tous,

Voici le code d'un bouton rechercher que j'ai fait dans une Userformpour retrouver mes titres de DVD et à qui je les ai prêté.

Je peux pas mettre l'appli en PJ c'est trop gros

++

Creepy

Private Sub BtnRecherche_Click() 'MODE RECHERCHE STRING
Dim Cell As Range
Dim Cell1 As Range
Dim tab1(0 To 40, 0 To 2) As String
Dim i As Byte
Dim L As Byte

If TxtQuoi.Value <> "" Then
L = Len(TxtQuoi)
i = 1
tab1(0, 1) = "TITRE"
tab1(0, 0) = "QUI"
tab1(0, 2) = "SON"

For Each Cell In Sheets("DVD").Range("C3", "C" & Range("C65536").End(xlUp).Row)
If UCase(Left(Cell.Text, L)) = UCase(TxtQuoi.Text) Then
tab1(i, 1) = Cell.Text
tab1(i, 0) = Cell.Offset(0, -1).Text
tab1(i, 2) = Cell.Offset(0, 1).Text
i = i + 1
End If
Next Cell

Else
MsgBox "Veuillez entrer un critère de recherche", vbInformation + vbOKOnly, "Erreur de recherche"
Exit Sub
End If
LstResultat.Visible = True
LstResultat.ColumnCount = 3
LstResultat.ColumnWidths = "3cm" & ";" & "8cm" & ";" & "4cm"
LstResultat.List = tab1()

End Sub