Formulaire pour rechercher une valeur
Résolu
andy2092
Messages postés
78
Date d'inscription
Statut
Membre
Dernière intervention
-
andy2092 Messages postés 78 Date d'inscription Statut Membre Dernière intervention -
andy2092 Messages postés 78 Date d'inscription Statut Membre Dernière intervention -
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 :)
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
-
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
-
Voici une illustration de ce que je voudrai faire :
-
Pourquoi veux tu remplacer par une macro ce qu'Excel te permet de faire par Rechercher (raccourci Ctrl+F) ?
-
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
