fonction recherche

[benl]

Salut a tous,

Je souhaiterais créer une fonction qui me permet de rechercher du texte dans une colonne,

le mot a rechercher est dans une textbox sur une userform

si le texte existe, il m'ouvre une msgbox sinon il m'en ouvre une autre.

et là, je dois avouer que je suis perdu...

merci d'avance

 

[Robert]

Re : fonction recherche

Bonjour Benl, bonjour le forum,

Peut-ête comme ça :

Dim r As Range 'déclare la variable r (Recherche)
With Sheets("Feuil1").Columns(1) 'prend en compte la colonne 1 de l'onglet "Feuil1" (à adapter à ton cas)
    Set r = .Find(UserForm1.TextBox1.Value, , xlValues, xlWhole)  'définit la recherche
    If Not r Is Nothing Then 'condition : si il existe au moins une occurrence trouvée
        MsgBox tc & " n'exite pas dans la colonne !" 'message
    Else 'sinon
        MsgBox tc & " se trouve à la ligne " & r.Row & " !" 'message
    End If 'fin de l.a condition
End With 'fin de la prose en compte de la colonne 1 de l'onglet "Feuil1"

Comme tu n'as pas daigné donner plus de renseignements ou un fichier en pièce jointe, je te laisse le soin d'adapter ce code et de le placer à l'endroit adéquat...

 

[benl]

Re : fonction recherche

merci bcp, je l'ai adapter et ca marche du tonnerre!!

 

[Robert]

Re : fonction recherche

Bonsoir Benl, bonsoir le forum,

Heureusement car le code contenant une erreur :

 MsgBox tc & " se trouve à la ligne " & r.Row & " !" 'message

devait être :

MsgBox UserForm1.TextBox1.Value & " se trouve à la ligne " & r.Row & " !" 'message