Formulaire pour rechercher une valeur

Résolu/Fermé
andy2092 Messages postés 78 Date d'inscription dimanche 13 mai 2018 Statut Membre Dernière intervention 7 février 2024 - 5 avril 2019 à 14:27
andy2092 Messages postés 78 Date d'inscription dimanche 13 mai 2018 Statut Membre Dernière intervention 7 février 2024 - 5 avril 2019 à 15:22
Bonjour,

J'ai une plage de données contenant plus de 800 types d'abréviations (ex. DPP, FTT, ...).

J'aimerai (avec un formulaire, une zone de texte et un bouton "Recherche") créer une macro qui recherchera la valeur contenu dans la zone de texte et ainsi me renvoyer à la ligne où est placé la valeur recherchée.

Exemple : Je souhaite trouver l'abréviation DPP qui se trouve dans la cellule A500. En cliquant sur "Rechercher", la macro m'envoie à la cellule A500.

Quelqu'un pourrait m'aider sur ce sujet ?

Merci d'avance :)
A voir également:

4 réponses

via55 Messages postés 14402 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 18 avril 2024 2 702
5 avril 2019 à 14:43
Bonjour andy

On t'aidera avec plaisir si tu fournis un exemple de ton fichier en le postant sur mon-partage.fr, tu fais alors créer un lien que tu copies et reviens coller ici

Cdlmnt
Via

0
andy2092 Messages postés 78 Date d'inscription dimanche 13 mai 2018 Statut Membre Dernière intervention 7 février 2024
5 avril 2019 à 15:02
Voici une illustration de ce que je voudrai faire :
0
via55 Messages postés 14402 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 18 avril 2024 2 702
5 avril 2019 à 15:06
Pourquoi veux tu remplacer par une macro ce qu'Excel te permet de faire par Rechercher (raccourci Ctrl+F) ?
0
andy2092 Messages postés 78 Date d'inscription dimanche 13 mai 2018 Statut Membre Dernière intervention 7 février 2024
5 avril 2019 à 15:08
Je souhaiterai faire une recherche dans une plage spécifique (Ex : A1:A800).
0
via55 Messages postés 14402 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 18 avril 2024 2 702
5 avril 2019 à 15:14
Code à associer au bouton de l'UF :
Private Sub CommandButton1_Click()
On Error GoTo erreur
If TextBox1.Value <> "" Then
ligne = Range("A1:A800").Find(TextBox1.Value, , , xlWhole, xlByColumns, xlPrevious).Row
Range("A" & ligne).Select
Exit Sub
End If
erreur:
MsgBox "Ce code n'existe pas"
End Sub

0
andy2092 Messages postés 78 Date d'inscription dimanche 13 mai 2018 Statut Membre Dernière intervention 7 février 2024
5 avril 2019 à 15:22
Ça fonctionne parfaitement !!! Merci beaucoup :)
0