Formulaire pour rechercher une valeur Résolu

Question

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 :)

via55 · Answer

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

andy2092 · Answer

Voici une illustration de ce que je voudrai faire :

via55 · Answer

Pourquoi veux tu remplacer par une macro ce qu'Excel te permet de faire par Rechercher (raccourci Ctrl+F) ?

via55 · Answer

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

Formulaire pour rechercher une valeur

4 réponses

Votre réponse

Discussions similaires