Fonction recherche sous excel évoluéeRésolu

Question

Salut tout le monde,

J'ai d&#233;velopp&#233; un petit programme de base de donn&#233;es d'adresses de
sites internet avec excel(vous trouverez le code source  dans les
sources de ce site &#224; BDDNET)

Pour compl&#233;ter mon programme j'aimerai y ajouter la fonction recherche,
or je suis un peu perdu et je n'ai pas trouver mon bonheur ni dans le
forum ni dans les sources, le truc c'est que j'aimerai que la fonction
recherche puisse trouver les mots sans pour autant les avoir rentr&#233;s
exactement, par exemple si je cherche des sites avec une description
contenant le mot "&#233;lectronique", je souhaite pouvoir lancer la
recherche avec juste le mot "elec".

Merci d'avance et si vous n'avais pas compris n'h&#233;sitez pas &#224; me le dire.

Pierre_faucon · Accepted Answer

Tu disposes pour cela de FindNext

Il existe cependant deux particularit&#233;s &#224; la recherche dans Excel

1. Excel, en vba, boucle ind&#233;finiment
2. Lorsque l'on effectue un FindNext, Excel reste sur la m&#234;me cellule...

D&#232;s lors, le code &#224; d&#233;velopper est un peu plus long.

Il faut m&#233;moriser la premi&#232;re cellule correspondant &#224; la recherche, de mani&#232;re &#224; comparer les adresses des cellules suivantes trouv&#233;es et de sortir de la boucle lorsque Excel revient sur la premi&#232;re cellule.

Il faut &#233;galement, lors du FindNext, sp&#233;cifier &#224; Excel de chercher apr&#232;s la cellule trouv&#233;e...

Voici le code complet, &#224; adapter selon tes besoins. Dans le cas pr&#233;sent, Excel colorie les cellules trouv&#233;es en rouge. Tu peux bien s&#251;r adapter en renvoyant les adresses dans un tableau ou une collection, puis it&#233;rer sur le tableau ou la collection des adresses trouv&#233;es.

Sub Recherche()
    Dim Premiere_Cellule_Trouvee As Range ' Sert &#224; &#233;viter une boucle sans fin
    Dim Cellule_Suivante As Range ' Correspond &#224; la cellule suivante trouv&#233;e
    Set Premiere_Cellule_Trouvee = _
        Range("a1:a10").Find(What:="elec", LookIn:=xlValues, LookAt:=xlPart)
    
    ' Si aucune correspondance, on sort de la proc&#233;dure
    If Premiere_Cellule_Trouvee Is Nothing Then Exit Sub
    
    Set Cellule_Suivante = Premiere_Cellule_Trouvee
    Do
        Cellule_Suivante.Interior.Color = vbRed
        Set Cellule_Suivante = Range("a1:a10").FindNext(after:=Cellule_Suivante)
        ' Si correspondance entre les cellules, on a boucl&#233; et on sort
        If Cellule_Suivante Is Nothing Then Exit Sub
        If Cellule_Suivante.Address = Premiere_Cellule_Trouvee.Address Then Exit Sub
    Loop
End Sub

Ok?

Pierre Fauconnier

Pierre_faucon · Answer

Bonjour

La m&#233;thode Find d'un objet Range renvoie un objet Cell que l'on peut s&#233;lectionner ou affecter &#224; une variable objet Range.

Pour s&#233;lectionner la cellule contenant "elec" en colonne A, tu peux utiliser ceci:

Range("a:a").Find(what:="elec", LookIn:=xlValues, lookat:=xlPart).Select

Ok?

Bon travail

Pierre Fauconnier

masterjedi · Answer

Bonjour, 

tout d'abord merci, mais j'aurai une petite question en plus, puis-je
imbriquer cette commande dans une boucle pour tout trouver et d&#233;tecter
lorsqu'il n'y a plus rien &#224; trouver, lorsque l'on est sous excel un
message  apparait pour nous le dire, ce doit &#234;tre possible alors
de d&#233;tecter &#231;a  ou alors est-ce qu'il faut que je teste chaque
cellule et que je d&#233;tecte la fin de fichier?

encore merci.

masterjedi · Answer

Re bonjour, c'est g&#233;nial, &#231;a me fait une base s&#251;re pour ma fonction de
recherche merci beaucoup de ton aide, avec &#231;a j'ai d&#233;j&#224; les id&#233;es plus
claires sur mon code.

merci encore, et bonne continuation.



ps: en esp&#233;ant pouvoir te renvoyer la balle un de ces jours.

Fonction recherche sous excel évoluée

4 réponses

Discussions similaires