Recherche en vba

Question

Bonjour,

Je viens demander de l'aide car je ne sais pas comment procéder.

J'ai crée une userform avec 2 textbox et un bouton.

- textbox1 est l'intitulé de ma recherche
- textbox2 est le résultat de ma recherche
- le bouton sert à lancer la recherche

Je souhaite rechercher dans la colonne "I" d'une feuille de calcul un mot clé (que je rentre dans la textbox1) et que le nom figurant dans la colonne "A" de la meme ligne s'inscrive dans la textbox2
 
Merci d'avance 
--

jordane45 · Answer

Bonjour.

Des questions équivalentes sont régulièrement 
Posées sur ce forum.
Exemple :

http://codes-sources.commentcamarche.net/forum/affich-10008780-recherche-et-copie-de-donnees
 
Cela devrait vous convenir.

yodjeseb · Answer

Bonjour,

Je suis bloqué là, et ça marche pas, si quelqu'un a une idée.

Private Sub CommandButton1_Click()
Dim Trouve As Range
Dim ligne As Integer
Dim col As Integer

With Sheets("Ma Cave")
Set Trouve = .Columns("I").Cells.Find(Me.TextBox1.Text, LookAt:=xlPart)
    
    If Trouve Is Nothing Then
        MsgBox "pas trouvé"
            
    Else
    ligne = Trouve.Row
    col = Trouve.Column
    TextBox2 = Sheets("Ma Cave").Cells(" & ligne & ", " & col & ").Offset(0, -8).Value
End If
End With
End Sub

yodjeseb · Answer

Merci Jordane, je pensais avoir tout essayer :-) 
 
--

yodjeseb · Answer

Et comment je pourrais continuer la recherche si le mot est présent dans d'autres cellules ?
 
--

Recherche en vba

4 réponses

Votre réponse

Discussions similaires