excel/macro : Rechercher une référence dans une plage de données excel

Bonjour,

n'ayant quasient aucune base en VBA,

j'aurais besoin d'aide afin de créer une macro avec pops-up sur excel, afin de retrouver dans une plage de valeur, une valeur exacte.

Je m'explique :

La page de donnée irait par exemple de mac 0123456 à 0123800

le but serait d'avoir un bouton cliquable que j’appellerai ( Entrer la valeur a rechercher ), cette valeur serait dans la plage allant de 0123456 à 0123800.

-si la valeur est retrouvée, le but serait d'indiquer via un messagebox le message "valeur retrouvée !"

-si la valeur est non retrouvée, le but serait d'indiquer via un messagebox le message "valeur non retrouvée !"

PS je sais créer un bouton et y rattacher une macro :).

Merci d'avance de votre aide

Bonjour,

à lire …

Bonsoir !

_________________________________________________________________________________________________________

Je suis Paris, Charlie, Bardo, Sousse, Kenya Garissa University, Liban, Mali, …

Bonsoir Marc-L,

Désolé pour le manque d'informations.

J'ai uploadé un début de recherche via un fichier excel.

Mais je suis bloqué et ne sais pas par où commencer.

Bonjour, un peu de lecture et revient voir avec un début de code

https://msdn.microsoft.com/fr-fr/lib.../ff839746.aspx

;)

En fait pour cela tu n'as pas besoin de macro la formule RECHERCHEV le fait très bien

As-tu essayé ?

Citation:

---

PS je sais créer un bouton et y rattacher une macro .

---

Bonjour,
C'est déjà ça!

Bonjour Igloobel

De préférence je voudrais passer par une macro avec messBox

Voila mon début de code :

Code:

---

1 2 3 4 5 6 7

Sub test1() Dim rg As Range   Set rg = Range("A1:A3662").Find( ???, Range("A1"))   MsgBox rg.Address End Sub

---

Quand j'effectue le mode "pas à pas", j'aimerais rajouter un argument afin d'ouvrir une messbox qui me propose de rentrer une valeur et rechercher celle-ci dans la colonne A.

1/ si la valeur est présente afficher " un message personnalisé"
2/ si la valeur est absente afficher " un message personnalisé"

Merci à tous de votre aide :)

• Utiliser la fonction InputBox pour la valeur à rechercher.

• Bien lire l'aide VBA interne et son exemple quant à l'utilisation de la méthode Find …
   L'effectuer manuellement et en ayant au préalable activé l'Enregistreur de macro, un code est livré sur un plateau ‼

Bonjour
Code trouvé sur ce super site adapté peut être à tes besoins :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub Recxhrche() Dim X As Variant Dim Cel As Range X = Application.InputBox("Entrez la valeur recherchée", "Valeur", Type:=1) If X = False Then Exit Sub Set Cel = Sheets("Feuil1").UsedRange.Find(X, lookat:=xlPart) If Cel Is Nothing Then MsgBox (X & " : Valeur inéxistante ") If Not Cel Is Nothing Then PA = Cel.Address Do MsgBox ("Cette valeur se trouve en " & PA) Set Cel = Sheets("Feuil1").UsedRange.FindNext(Cel) Loop While Not Cel Is Nothing And Cel.Address <> PA End If End Sub

---

Bonne continuation

Salut BENNASR !

P'tite erreur de logique sur la ligne n°11 en cas de plusieurs occurrences trouvées …

La ligne n°13 peut être simplifiée ainsi :   Loop Until Cel.Address = PA   …

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Stockholm, London, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

Bonjour Marc-L, la forum
remarque prise ne considération :P
Pour toutes fins utiles

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub Recxhrche() Dim X As Variant Dim Cel As Range X = Application.InputBox("Entrez la valeur recherchée", "Valeur", Type:=1) If X = False Then Exit Sub Set Cel = Sheets("Feuil1").UsedRange.Find(X, lookat:=xlPart) If Cel Is Nothing Then MsgBox (X & " : Valeur inéxistante ") If Not Cel Is Nothing Then PA = Cel.Address Do MsgBox ("Cette valeur se trouve en " & PA) Set Cel = Sheets("Feuil1").UsedRange.FindNext(Cel) Loop Until Cel.Address = PA End If End Sub

---

:alerte:   Qu'afficherait donc la ligne de code n°11 dans le cas de plusieurs occurrences trouvées ?‼   :alerte:

Bonjour BENNASR

Merci pour ton aide :)

Par contre en modifiant le code avec la ligne proposée par Marc-L le bout de code suivant :

Code:

---

Loop Until Cel.Address = PA

---

Cela pose problème car la messbox ne disparait pas après avoir cliqué sur ok ( voir PJ )

j'ai rentrée une valeur erronée volontairement pour tester

Bonjour.

Dans la ligne 4, il faut remplacer Type:=1 (un nombre) par Type:=2 (du texte).

Code:

---

X = Application.InputBox("Entrez la valeur recherchée", "Valeur", Type:=2)

---

Avec Type:=1, si tu entres 02356, la valeur de X sera 2356 au lieu de 02356.