Recherche Valeur Textbox dans une colonne (excel)

Résolu
benji2031 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention   -  
benji2031 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,
Sur un classeur j'ai plusieurs feuilles dont une avec des ingrédients.
Je souhaite crée un bouton de recherche (sur une feuille différente de la feuille ingrédient) qui m'ouvre un formulaire (userform) de recherche( jusque là rien de complexe).

Dans ce formulaire j'ai une textbox et un bouton "rechercher".
J'aimerais que lorsque je rentre un mot dans la textbox et que je clique sur "rechercher", la macro m'envoie sur la feuilles des ingrédient et me sélectionne la ligne de ce mot.

Exemple : je tape "chocolat"---> rechercher et je tombe sur la cellule "chocolat" dans la feuille ingrédient.
En espérant avoir été clair et concis.
Merci d'avance
Benji2031
A voir également:

3 réponses

Réponse 1 / 3
gbinforme Messages postés 14946 Date d'inscription   Statut Contributeur Dernière intervention   4 724
 
Bonjour,

Comme tu as l'air de connaitre vba, ta réalisation n'est pas compliquée, il te suffit d'utiliser la fonction "range.find" dont l'utilisation est expliquée dans l'aide.
0
Réponse 2 / 3
benji2031 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour
je suis désolé mais je n'y connais absolument rien en codage pur vba, c'est comme si je partais de zéro.
Je n'ai pas réussi avec la fonction range.find ou alors je n'ai pas compris comment l'utiliser.
Merci d'avance
Benji2031
0
Réponse 3 / 3
gbinforme Messages postés 14946 Date d'inscription   Statut Contributeur Dernière intervention   4 724
 
Bonjour,

J'avais alors été présomptueux pour te laisser te débrouiller, cela devrait ressembler à ceci : 
Private Sub CommandButton1_Click()
Dim sel As Range
    Set sel = Sheets("ingrédients").Cells.Find(Me.TextBox1.Value, , xlValues, xlWhole)
    If sel Is Nothing Then
        MsgBox "Recherche absente"
    Else
        Sheets("ingrédients").Activate
        sel.Activate
    End If
End Sub

Tu mets bien sûr ton vrai nom de feuille et tes vrais noms de contrôles formulaire.
0
benji2031 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention  
 
Merci beaucoup d'avoir pris du temps pour faire ça !
Ca marche parfaitement !
vous êtes au top !
0