Menu

Formulaire pour rechercher une valeur [Résolu]

Messages postés
58
Date d'inscription
dimanche 13 mai 2018
Statut
Membre
Dernière intervention
5 avril 2019
- - Dernière réponse : andy2092
Messages postés
58
Date d'inscription
dimanche 13 mai 2018
Statut
Membre
Dernière intervention
5 avril 2019
- 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 :)
Afficher la suite 

Votre réponse

4 réponses

Messages postés
10518
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
20 avril 2019
1383
0
Merci
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

Commenter la réponse de via55
Messages postés
58
Date d'inscription
dimanche 13 mai 2018
Statut
Membre
Dernière intervention
5 avril 2019
0
Merci
Voici une illustration de ce que je voudrai faire :
Commenter la réponse de andy2092
Messages postés
10518
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
20 avril 2019
1383
0
Merci
Pourquoi veux tu remplacer par une macro ce qu'Excel te permet de faire par Rechercher (raccourci Ctrl+F) ?
andy2092
Messages postés
58
Date d'inscription
dimanche 13 mai 2018
Statut
Membre
Dernière intervention
5 avril 2019
-
Je souhaiterai faire une recherche dans une plage spécifique (Ex : A1:A800).
Commenter la réponse de via55
Messages postés
10518
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
20 avril 2019
1383
0
Merci
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

andy2092
Messages postés
58
Date d'inscription
dimanche 13 mai 2018
Statut
Membre
Dernière intervention
5 avril 2019
-
Ça fonctionne parfaitement !!! Merci beaucoup :)
Commenter la réponse de via55