Enregistrer le résultat d'une recherche

[Ity]

Bonjour tout le monde,

je sollicite une nouvelle fois votre savoir...

Est-il possible d'enregistrer les résultats d'une recherche dans une feuille Excel?

En passant par Edition/Rechercher, les resultats obtenus affichent le classeur, la feuille, le nom, la cellule, la valeur et la formule. Est-il possible d'enregistrer ces différents champs? Et si oui, comment?

Je vous remercie, par avance, de votre participation

 

[dg62]

Bonjour le iTY
Bonjour le Forum


Dans le lien ci-dessous tu trouveras peut-être ton bonheur.

mise en oeuvre de la focntion recherche avec sauvegarde dans une feuille du classeur. Le code est commenté.

 

[Ity]

Salut dg62,

mais je n'y connais pas gd chose en VBA et je ne suis pas en mesure de comprendre le code pour le réadapter à mon cas...

Merci quand même...

 

[dg62]

Bonjour Ity, le Forum


Pas beaucoup de temps en ce moment mais je viens de me pencher plus en détail sur ton problème.
La solution avancée hier ne correspondait pas à ce que tu cherches.

Voici ci-dessous un exemple de procédure qui récupère le résultat d'une recherche (edition/recherche).

Sub cherche()

With Worksheets(1).Range('a10:a500')
    Set c = .Find(2, LookIn:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            Range('a1') = c.Address
            Range('b1') = c.Cells
            Range('c1') = c.Value
            
            
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With

End Sub

cet exemple recherche la valeur 2 dans la plage A10: A500 et affiche en A1 l'adresse de la cellule, en B1 la feuille et en C1 la valeur.

exemple tiré de l'aide VBA et adapté

Cordialement

 

[Ity]

Salut tout le monde, dg62...

Merci de aide, je vais essayer de modifier le code pour qu'il colle exactement à ce que je veux...

A bientôt