Macro recherche par inputbox

Version imprimable

Voir 40 message(s) de cette discussion en une page

Merci ca fonctionne!!

Mais j'ai encore une petite question, voici le code que j'ai :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub recherche_dans_la_feuille()
    Dim valeur As Variant
    Dim premiere As Variant
    Dim Wsh As Object
    Dim cellule As Range
 
    valeur = InputBox("Donner la valeur à chercher", "Recherche")
    If valeur <> "" Then
        For Each Wsh In ThisWorkbook.Worksheets
 
        With Wsh.Cells
        Set cellule = .Find(valeur, LookIn:=xlValues)
        If Not cellule Is Nothing Then
            Select Case MsgBox("Valeur trouvée, s'y rendre ?", vbYesNo, "blabla")
                Case vbYes
                    Wsh.Activate: cellule.Select: Exit Sub
                Case vbNo
                    Exit Sub
            End Select
 
 
        End If
        End With
        Next
    End If
 
End Sub

Ce que je voudrais c'est de rajouter un msgbox "Valeur non trouvée" si la valeur n'est pas trouvée mais je ne comprends pas le fonctionnement du If Not ... Is Nothing Then, qui d'après ce que je comprends s'applique juste en cas de condition vraie, si la condition est fausse je le spécifie ou?

27/07/2011, 10h28
Philippe Tulliez
Bonjour,
Code:

1 2 Set cellule = .Find(valeur, LookIn:=xlValues) If Not cellule Is Nothing Then
cellule est une variable objet (Range) qui contient, soit la valeur trouvée soit rien (Nothing)
Donc si tu veux un message dans le cas d'une recherche infructueuse et comme tu quittes la procédures dès que tu as trouvé, tu places le msgbox "Pas trouvé" juste avant de quitter la procédure (avant le End Sub)

Merci corona!
Et merci à vous tous pour votre aide !
La macro fonctionne niquel!

Au cas ou ca intéresserait quelqu'un d'autre la voici :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub recherche_dans_le_classeur()
    Dim valeur As Variant
    Dim Wsh As Object
    Dim cellule As Range
 
    valeur = InputBox("Donner la valeur à chercher", "Recherche")
    If valeur <> "" Then
        For Each Wsh In ThisWorkbook.Worksheets
 
        With Wsh.Cells
        Set cellule = .Find(valeur, LookIn:=xlValues)
        If Not cellule Is Nothing Then
            Select Case MsgBox("Valeur trouvée, s'y rendre ?", vbYesNo, "blabla")
                Case vbYes
                    Wsh.Activate: cellule.Select: Exit Sub
                Case vbNo
                    Exit Sub
            End Select
 
        End If
        End With
        Next
    Msgbox ("Valeur non trouvée")
    End If
 
End Sub

27/07/2011, 10h49
pijaku
merci à Corona d'avoir pris le relais sur ce sujet.
Juste une petite suggestion quant au code finalisé. Tu dis :
Code:

1 2 3 4 5 valeur = InputBox("Donner la valeur à chercher", "Recherche") If valeur <> "" Then 'bla bla bla End If MsgBox ("Valeur non trouvée")
ce qui fait que, même en cas d'annulation de la recherche (clic sur "annuler" ou sur la croix de fermeture de l'InputBox), le message à l'utilisateur : "Valeur non trouvée" sera affiché.
Je sais bien que je pinaille, mais j'aurais placé ce message juste avant le End If, comme ceci :
Code:

1 2 3 4 5 6 valeur = InputBox("Donner la valeur à chercher", "Recherche") If valeur <> "" Then 'bla bla bla Next MsgBox ("Valeur non trouvée") End If
27/07/2011, 10h57
ptitgoud

Ah oui, merci de la précision! ^^

bonjour a tous

allez je remet mon grain de sel;)

voila 2 sub qui communiquent entre elles
la première boucle sur toutes les feuilles du classeur
transporte avec elle la valeur et l'index du sheets

la deuxième récupère ces deux variable et boucle sur toutes les cellules du sheet pour trouver le mot recherché

a chaque occurrences trouvée le nom du sheet et l'adresse de la cellule ou est trouvée la valeur s'inscrit dans le sheets résultat
tu peut adapter les nom de sheet

on pourrait aussi ajouter un mesgbox te demandant si tu cherche le mot en entier ou une partie du mot mais je me suis arrêté la mais si tu y tiens je peut te le faire
le code est commenté pour une compréhension plus facile

voila tu n'a plus qu'a appeler la macro "recherche générale" celle ci se charge d'appeler l'autre toute seule

assez de blabla voila le code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
 
Sub recherche_generale()
    Dim a As Long
    Dim valeur As Variant
 
    valeur = InputBox("Donner la valeur à chercher", "Recherche")    'on inscrit la valeur recherche dans le inpubox
    If valeur <> "" Then    ' si la valeur est différente de rien alors
 
        For a = 1 To Sheets.Count
            'on saute le sheets"resultat" pour qu'il ne soit pas pris en compte dans la recherche _au cas ou le sheets"resultat ne soit pas le dernier sheets
            If Sheets(a).Name = "resultat" And a < Sheets.Count Then a = a + 1
            recherche_dans_la_feuille a, valeur' on appele la macro en emportant l'index du sheet et le mot recherché
        Next
    End If
End Sub
 
 
Sub recherche_dans_la_feuille(num As Long, valeur As Variant)    ' j'ai mis volontairement la variable "valeur " de type variant au cas ou elle serai numerique ou text
    Dim premiere As Variant
    Dim e As Long
 
    With Sheets(num).Cells    'on va chercher dans toute la feuille 1' a adapter a ton cas
 
 
        Set celulle = .Find(valeur, LookIn:=xlValues)    'on recherche valeur la variable cellule est l'address ou elle se trouve
        If Not celulle Is Nothing Then    'si la valeur est trouvé
            premiere = celulle.Address    ' la variable premiere prend la  l'addresse de la celule ou on a trouvé la valeur
 
            Do
                'ici je vais enregistrer dans la variable liste toute les adresses ou ce trouve la valeur
                e = Sheets("resultat").Range("a65530").End(xlUp).Row + 1    ' e = la derniere ligne utilisée dans le sheets resultat je l'ai placer ici pour que a chaque boucle la derniere ligne soit trouvée
 
 
                Sheets("resultat").Range("a" & e).Value = Sheets(num).Name
                Sheets("resultat").Range("b" & e).Value = celulle.Address
 
                'action a faire dès que la ligne est trouvée
                Set celulle = .FindNext(celulle)
            Loop While Not celulle Is Nothing And celulle.Address <> premiere
        End If
    End With
 
 
 
 
End Sub

n'esite pas si tu a besoins d'aide

bon courage
au plaisir

27/07/2011, 16h13
Philippe Tulliez
Citation:
Envoyé par pijaku

merci à Corona d'avoir pris le relais sur ce sujet.
Juste une petite suggestion quant au code finalisé. Tu dis :

Code:

1 2 3 4 5 valeur = InputBox("Donner la valeur à chercher", "Recherche") If valeur <> "" Then 'bla bla bla End If MsgBox ("Valeur non trouvée")

ce qui fait que, même en cas d'annulation de la recherche (clic sur "annuler" ou sur la croix de fermeture de l'InputBox), le message à l'utilisateur : "Valeur non trouvée" sera affiché.
Je sais bien que je pinaille, mais j'aurais placé ce message juste avant le End If, comme ceci :

Code:

1 2 3 4 5 6 valeur = InputBox("Donner la valeur à chercher", "Recherche") If valeur <> "" Then 'bla bla bla Next MsgBox ("Valeur non trouvée") End If
Dans le code montré par ptigoud, il n'y a pas de danger car dans les deux cas il y avait un Exit Sub d'où ma proposition de placer le message avant la fin de la procédure.
J'ai failli suggérer de continuer la recherche dans le cas où on ne fait pas le Select
Code:

1 2 3 4 5 6 Select Case MsgBox("Valeur trouvée, s'y rendre ?", vbYesNo, "blabla") Case vbYes Wsh.Activate: cellule.Select: Exit Sub Case vbNo Exit Sub End Select
27/07/2011, 16h49
pijaku

Re-
@ Corona :

Citation:

Dans le code montré par ptigoud, il n'y a pas de danger car dans les deux cas il y avait un Exit Sub d'où ma proposition de placer le message avant la fin de la procédure.

Oui effectivement. Le souci que je soulevais tiens dans le début de la macro. On dit :

Code:

If valeur <> "" then

Mais, en fait si valeur = "" alors il affichera le MsgBox "Valeur non trouvée"...
C'est tout. Mais j'admets que c'est du pinaillage. On pourrait également traiter ça avec un Else. Etc... Etc...
Bonne fin de journée

Voir 40 message(s) de cette discussion en une page