Formulaire pour rechercher une valeur [Résolu/Fermé]

Signaler
Messages postés
62
Date d'inscription
dimanche 13 mai 2018
Statut
Membre
Dernière intervention
31 mars 2020
-
Messages postés
62
Date d'inscription
dimanche 13 mai 2018
Statut
Membre
Dernière intervention
31 mars 2020
-
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 :)

4 réponses

Messages postés
12381
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
9 juillet 2020
1 922
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

Messages postés
62
Date d'inscription
dimanche 13 mai 2018
Statut
Membre
Dernière intervention
31 mars 2020

Voici une illustration de ce que je voudrai faire :
Messages postés
12381
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
9 juillet 2020
1 922
Pourquoi veux tu remplacer par une macro ce qu'Excel te permet de faire par Rechercher (raccourci Ctrl+F) ?
Messages postés
62
Date d'inscription
dimanche 13 mai 2018
Statut
Membre
Dernière intervention
31 mars 2020

Je souhaiterai faire une recherche dans une plage spécifique (Ex : A1:A800).
Messages postés
12381
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
9 juillet 2020
1 922
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

Messages postés
62
Date d'inscription
dimanche 13 mai 2018
Statut
Membre
Dernière intervention
31 mars 2020

Ça fonctionne parfaitement !!! Merci beaucoup :)