Macro recherche par inputbox

**ptitgoud** · 26/07/2011, 11h49

Bonjour,

Je suis débutant en vba et je souhaiterais réaliser la recherche d'un mot dans un fichier excel grâce à l'inputbox. J'ai lu les tutos présents sur les forums, mais malgré tout je n'arrive pas à créer cette macro - j'arrive juste à me servir de l'inputbox pour remplir une cellule du texte que l'on inscrit dans la boite.

J'ai pensé au principe suivant :
1) Créer l'inputbox

Code :

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

Valeur = inputbox("Texte recherché ?")

Ceci permettrait donc de récupérer le mot recherché ... (Valeur)?

2) Rechercher ce mot (Valeur)
C'est la que ca se complique pour ma part ...
Comment je peux faire pour effectuer la recherche dans tout le classeur?

Code :

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

1
2
3
4
5
6
7
Range("A1").Select 
For I = 1 To 65536 
If ActiveCell.Value = Valeur Then ActiveCell.Select
If ActiveCell.Value = "" Then GoTo Fin 
Next 
Fin :
End Sub

Forcement tout ça ne fonctionne pas ... et n'était prévu que pour recherché dans la colonne A1
Si quelqu'un pourrait m'expliquer comment associer la fonction recherche à l'inputbox et comment effectuer la recherche sur tout le classeur, je le remercie d'avance!

**Orhleil** · 26/07/2011, 12h00

Salut à toi !

Envoyé par ptitgoud

1) Créer l'inputbox

Code :

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

Valeur = inputbox("Texte recherché ?")

Ceci permettrait donc de récupérer le mot recherché ... (Valeur)?

Tout à fait.

Envoyé par ptitgoud

2) Rechercher ce mot (Valeur)
C'est la que ca se complique pour ma part ...
Comment je peux faire pour effectuer la recherche dans tout le classeur?

Code :

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

1
2
3
4
5
6
7
Range("A1").Select 
For I = 1 To 65536 
If ActiveCell.Value = Valeur Then ActiveCell.Select
If ActiveCell.Value = "" Then GoTo Fin 
Next 
Fin :
End Sub

Moi j'utilise la méthode match. En général je ne recherche que dans une seule colonne mais ça doit fonctionner aussi pour un espace de recherche plus grand.

Voilà comment je verrais les choses (non testé) :

Code :

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

1
2
3
4
5
6
7
8
9
10
Public Sub Rechercher()
   Dim Valeur 'Volontairement non explicite, la méthode match fonctionne avec différents types de données
   Valeur = InputBox("Que voulez-vous rechercher ?")
   Dim Trouve As Double
   On Error Resume Next
   For Each Sheet In Worksheets
      Trouve = Application.WorksheetFunction.Match(Valeur, Sheet.UsedRange, 0)
      If Trouve > 0 Then Sheet.Cells(Trouve).Select: Exit Sub
   Next Sheet
End Sub

EDIT : par contre du coup ça te renvoie uniquement à la première valeur trouvée

EDIT 2 : bon j'ai fait un test, il y a un souci avec la fonction Match, j'essaie de trouver le problème et je te dis

EDIT 3 : voilà ça fonctionne, en fait je suis bien obligé de circuler ligne par ligne

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Public Sub Rechercher()
    Dim Valeur 'Volontairement non explicite, la méthode match fonctionne avec différents types de données
    Valeur = InputBox("Que voulez-vous rechercher ?")
    Dim Trouve As Double
    On Error Resume Next
    For Each Sheet In Worksheets
        For Each Ligne In Sheet.UsedRange.Rows
            Trouve = Application.WorksheetFunction.Match(Valeur, Intersect(Ligne, Sheet.UsedRange), 0)
            If Trouve > 0 Then Sheet.Cells(Trouve).Select: Exit Sub
        Next Ligne
    Next Sheet
End Sub

**ptitgoud** · 26/07/2011, 12h10

EDIT : par contre du coup ça te renvoie uniquement à la première valeur trouvée

Ce n'est pas un soucis ça, il s'agit en fait de recherches de codes présents chacun en un seul exemplaire ^^

Merci de t'intéresser à mon problème, je vais également chercher de ce côté!

Au passage, j'ai également vu la fonction .find ... serait-ce viable pour essayer d'obtenir un résultat?

**Orhleil** · 26/07/2011, 12h19

Envoyé par ptitgoud

Ce n'est pas un soucis ça, il s'agit en fait de recherches de codes présents chacun en un seul exemplaire ^^

Merci de t'intéresser à mon problème, je vais également chercher de ce côté!

Au passage, j'ai également vu la fonction .find ... serait-ce viable pour essayer d'obtenir un résultat?

J'ai trouvé entre temps, ça fonctionne :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Sub Rechercher()
    Valeur = InputBox("Que voulez-vous rechercher ?")
    Dim Trouve As Double
    On Error Resume Next
    Dim IterLigne As Integer
    For Each Sheet In Worksheets
        IterLigne = 0
        For Each Ligne In Sheet.UsedRange.Rows
            Trouve = Application.WorksheetFunction.Match(Valeur, Intersect(Ligne, Sheet.UsedRange), 0)
            IterLigne = IterLigne + 1
            If Trouve > 0 Then: Sheet.Cells(IterLigne, Trouve).Select: Exit Sub
        Next Ligne
    Next Sheet
End Sub

EDIT : voilà ça marche ^^

**ptitgoud** · 26/07/2011, 12h28

Je l'ai essayée (la macro avec Match) mais elle ne fonctionne pas chez moi
Sur la feuille ou je lance la macro, lorsque le mot est présent la case sélectionnée est celle située sur la ligne 1
Lorsque le mot est présent sur une autre feuille, la recherche ne s'effectue pas non plus

Concernant

Code :

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

Range("A4:A20").Find(Valeur, LookIn:=xlValues).Select

Comment élargir la recherche à tout le classeur et non pas sur la plage A4:A20 ?

**Orhleil** · 26/07/2011, 12h31

Envoyé par ptitgoud

Je l'ai essayée (la macro avec Match) mais elle ne fonctionne pas chez moi
Sur la feuille ou je lance la macro, lorsque le mot est présent la case sélectionnée est celle située sur la ligne 1
Lorsque le mot est présent sur une autre feuille, la recherche ne s'effectue pas non plus

Je sais je m'étais trompé, c'est corrigé et ça fonctionne (le premier test que j'avais fait mon texte était sur la première ligne alaors j'avais rien vu), c'est corrigé maintenant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Sub Rechercher()
    Valeur = InputBox("Que voulez-vous rechercher ?")
    Dim Trouve As Double
    On Error Resume Next
    Dim IterLigne As Integer
    For Each Sheet In Worksheets
        IterLigne = 0
        For Each Ligne In Sheet.UsedRange.Rows
            Trouve = Application.WorksheetFunction.Match(Valeur, Intersect(Ligne, Sheet.UsedRange), 0)
            IterLigne = IterLigne + 1
            If Trouve > 0 Then: Sheet.Cells(IterLigne, Trouve).Select: Exit Sub
        Next Ligne
    Next Sheet
End Sub

@MarcelG : j'ai jamais réussi à faire fonctionner correctement Find perso... Du coup je me débrouille à ma façon, ça marche bien ^^

**MarcelG** · 26/07/2011, 12h27

Bonjour,

La fonction VBA

Code :

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

Match

est la traduction de la fonction Excel "Equiv". Elle renvoie donc la position de la cellule trouvée.

Comme mentionné, je préconiserais plutôt la méthode

Code :

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

Find

.

Celle-ci renvoie un objet Range, dont la sélection reste par conséquent possible.

Par exemple (à adapter)

Code :

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

1
2
3
4
Public Sub ESSAI()
valeur = InputBox("Donner la valeur à chercher", "Recherche")
Range("A4:A20").Find(valeur, LookIn:=xlValues).Select
End Sub

Voir l'aide en ligne qui indique un code intéressant en exemple.

Macro recherche par inputbox [XL-2003]

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager