VB Excel moteur de recherche dans classeur Résolu/Fermé

Question

Bonjour à tous,

Je viens vous demander conseil. Je cherche à faire une macro qui cherche dans l'ensemble du classeur Excel une valeur saisie dans une zone de texte. 
Après recherche, la seule solution que j'ai trouvée serait de faire une boucle pour faire défiler les feuillets, et rechercher dans chaque feuillet la valeur saisie. Mais ce classeur Excel contient de nombreux feuillets, et ça va mouliner!!

J'ai essayé avec l'enregistrement auto de macro en testant une recherche sur l'ensemble du classeur, mais le code qu'il me fournit est du type :
    Sheets("feuilleA").Select
    Cells.Find(What:="truc", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
    Sheets("feuilleB").Select
    Cells.FindNext(After:=ActiveCell).Activate

Ce qui revient à faire une boucle et à défiler sur chaque feuillet...
Si quelqu'un a une solution plus efficace, je serais ravie de la connaître!
Merci à tous

gbinforme · Accepted Answer

bonjour

Pour rechercher dans un classeur entier avec cette macro tu peux vérifier que le temps de comptage des résultats n'est pas prohibitif.
Public Sub chercher(rech As String) 'recherche d'une chaine
Dim sel As Object   ' cellule trouvée
Dim c As Integer    ' colonne
Dim f As Integer    ' feuille
Dim l As Long       ' ligne
Dim n As Integer    ' éléments trouvés
n = 0
For f = 1 To Sheets.Count   ' boucle feuilles
With Sheets(f)
    l = 1: c = 1
    Do                      ' recherche
        Set sel = .Cells.Find(What:=rech, after:=.Cells(l, c), _
            LookIn:=xlValues, LookAt:=xlPart, _
            SearchOrder:=xlByColumns, _
            SearchDirection:=xlNext, MatchCase:=False)
        If sel Is Nothing Then Exit Do
        If sel.Column <= c And sel.Row <= l Then Exit Do
        c = sel.Column
        l = sel.Row
        n = n + 1       ' élément trouvé : traitement
    Loop
End With
Next f
MsgBox n & " éléments trouvés"
End Sub
Pour tester, tu peux remplacer : "rech As String" par espace et "rech" par un mot à chercher

Ensuite à toi de rajouter le traitement que tu veux à chaque élément trouvé et la macro peut être appelée dans ton formulaire en mettant les variables en "Public".

gbinforme · Answer

bonjour

Ce que tu veux faire est la procédure effectuée par ctrl + f et rechercher tout et elle est relativement rapide.

Au lieu de sélectionner toutes les occurrences (activate) au fur et à mesure de la recherche, il vaut mieux les enregistrer comme fait la fonction "recherche" pour les lister ensuite mais tout dépend de l'utilisation que tu veux faire de ta macro

gbinforme · Answer

bonjour

Qu'en penses-tu?

Je n'ai pas ton classeur devant les yeux mais ce que tu veux réaliser le parait tout à fait possible.

Tu pourrais même faire tes recherches avec ton userform sans avoir à ouvrir tes onglets et en affichant le résultat dans le formulaire.

Ludivine50 · Answer

Bonjour gbinforme!
Je viens de tester et c'est une excellente base de travail pour ce que je souhaite réaliser! Et en plus, ton code est très compréhensible! Je suis déjà en train de l'adapter à mon traitement. 
Je te remercies, tu m'as fournie la clé pour travailler sur ce traitement. 
Merci encore, et je te souhaite une bonne journée!

Ludivine50 · Answer

Gbinforme, je ne peux pas passer en résolu car entre-temps je suis devenue membre.
Peux-tu le faire à ma place?
Merci

gbinforme · Answer

bonjour

Content de voir que cela te permet de continuer : il ne faut souvent pas chercher trop compliqué car le plus simple est en général le plus efficace.

chacmhaal · Answer

Bonjour, 
gbinforme, le code que tu donne, il faut l'assigner à un bouton ou à la zone de texte dans laquelle on entre les mots à rechercher.
en tous cas merci pour les infos.

VB Excel moteur de recherche dans classeur

7 réponses

Discussions similaires