[VBA] Moteur de recherche Répétitions

[TheLio]

Salut l'forum,
Je me demandais si un mordu du sub avait une idée sur la possibilité de créer un moteur de recherche dans un classeur de notre tableur préféré.
Je m'explique:
A l'image d'un CTRL+F dans mozilla firefox, tous les mots correspondants se retrouvent surlignés.
Donc pensez vous qu'il soit possible de rentrer un mot dans une cellule définie et que toutes les autres cellules (160'000) qui contiennent se mot se retrouvent mise en évidence.
Etant donné que les cellules contiennent plus de 100 caractères et que la recherche se ferait sur un seul mot, je vois comment utiliser la MFC

Merci pour votre dévouement

A++

TheLio

 

[skoobi]

Re : [VBA] Moteur de recherche Répétitions

Bonsoir,
une proposition:

Sub essai()
With Worksheets(1).Cells
    Set c = .Find(Range("a1").Value, LookIn:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            c.Interior.ColorIndex = 8
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With

End Sub

 

[TheLio]

Re : [VBA] Moteur de recherche Répétitions

Nickel skoobi,
C'est exactemnt ce que je chechais. thanks a lot
Penses-tu que l'on pourrait-on réinitialiser le projet de recherche en enlevant toutes les couleurs du tableau si la cellule "A1" est vide.
A+
TheLio

 

[JCGL]

Re : [VBA] Moteur de recherche Répétitions

Bonsoir à tous,

Une autre approche : isole les lignes de la colonne B qui contiennent le mot ou la lettre

Un clique sur Go, initialise la base

Validation de la Recherche par Enter

A+

Edition : Spécial TheLio 🙂

 

[TheLio]

Re : [VBA] Moteur de recherche Répétitions

Merci pour l'Edit 😉
A++