Discussion :

[seb13016]

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

[Marc-L]

Bonjour,

à lire …

Bonsoir !

_________________________________________________________________________________________________________

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

[seb13016]

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.

[Nicolas JACQUIN]

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

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

[Igloobel]

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

As-tu essayé ?

[seb13016]

Bonjour Igloobel

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

Voila mon début de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Marc-L]

• 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 ‼

[BENNASR]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Marc-L]

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, …

[Invité]

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

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