Recherche optimisé

Bonjour,

Je souhaiterais savoir si vous avez en réserve un code permettant une recherche optimisée d'une chaine de caractère d'une cellule d'une feuille parmi une colonne d'une autre feuille ?

La data de l'autre feuille étant très grosse, le temps de parcours est très long et je souhaiterais raccourcir ce temps de recherche.

Cette data est triée par ordre alphanumérique.

Si vous avez des pistes je suis preneur.

Merci par avance.

Gloutoni.

bonjour

tenter Power Query

joins un extrait de ton fichier et un descriptif du résultat recherché

Bonjour,

dans l'aide vba fait une recherche sur Range.Find, méthode.

Ca sera presque instantané.

Il faut systématiquement définir les paramètres (optionnels) LookIn et LookAt

eric

Bonjour,

Si c'est juste pour savoir si une valeur est contenue dans une colonne, tu peux utiliser CountIf :

MsgBox Application.CountIf(Worksheets("Feuil2").Columns(1), Ton_Critère)

Bonjour,

La methode find.row fonctionne à merveille, merci beaucoup.

    Dim li As Long, der As Long, chaine$, chaine2$
    li = 2
    chaine = Cells(1, 1).Value
    Sheets("feuil2").Select
    der = Range("A1048576").End(xlUp).Row
    li = Range(Cells(1, 1), Cells(der, 1)).Find(chaine, lookat:=xlWhole).Row
    MsgBox chaine2

Bon week-end à vous

Gloutoni

Bonjour

heureusement que j'ai précisé de mettre lookin ET lookat

Si tu ne mets pas lookin et qu'un utilisateur à fait une recherche dans les formules tu risques d'être marron.

Et si .find ne trouve pas il est = Nothing. Tu auras une erreur dans li=... ).row

Donc à moins d'être sûr à 100% qu'il trouvera il faut tester sa valeur.

Donc ce n'est pas tout à fait ainsi qu'on l'utilise, et tu n'es pas obligé d'activer la feuille :

    Dim li As Long, der As Long, chaine$, chaine2$
    Dim c As Range
    chaine = Cells(1, 1).Value
    Set c = Sheets("feuil2").Columns(1).Find(chaine, lookat:=xlWhole, LookIn:=xlValues)
    If c Is Nothing Then
        li = 2    ' non trouvé
    Else
        li = c.Row
    End If
    MsgBox chaine2 ' ??

eric

Rechercher des sujets similaires à "recherche optimise"