Recherche Valeur Textbox dans une colonne (excel) [Résolu/Fermé]

Signaler
Messages postés
3
Date d'inscription
mardi 17 janvier 2017
Statut
Membre
Dernière intervention
19 janvier 2017
-
Messages postés
3
Date d'inscription
mardi 17 janvier 2017
Statut
Membre
Dernière intervention
19 janvier 2017
-
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

3 réponses

Messages postés
14934
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 395
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.
Messages postés
3
Date d'inscription
mardi 17 janvier 2017
Statut
Membre
Dernière intervention
19 janvier 2017

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
Messages postés
14934
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 395
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.
Messages postés
3
Date d'inscription
mardi 17 janvier 2017
Statut
Membre
Dernière intervention
19 janvier 2017

Merci beaucoup d'avoir pris du temps pour faire ça !
Ca marche parfaitement !
vous êtes au top !