Discussion :

[jokair]

Je fais un classeur Excel de mes comptes persos et je cherche à faire une petite macro de recherche.

J'ai trouvé comment faire cette recherche pour l'intitulé EXACT (nom recherché = nom de cellule) mais pas pour le CONTENU du nom de la cellule (nom recherché = contenu dans la cellule) .

Si quelqu'un pouvait m'aider.

Merci d'avance et @ bientôt.

[mordrhim]

tu veux faire ça par macro ?
à étudier la fonction find

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Find(What:="Texte à chercher", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, atchCase:= _
        False)

La fonction te rend la cellule qui contient "Texte à chercher" si cependant tu as plusieurs fois le texte, il faut la lancer autant de fois qu'il y a d'occurence pour toute les trouver.

Sinon il y a la technique du CTRL+F dans excel si tu ne veux pas faire ça par macro.

PS: Je donne ma solution non experte, toute critique est toujours bonne à prendre.

[jokair]

Merci pour ta réponse, ça ma donné une diection.

Finalement, je suis parti là-dessus, mais il me fout une erreur quand je lui demande de remplir ma textbox ???

Merci pour votre aide.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
With Worksheets("Janvier").Range("C11:C200")
Set c = .Find(txt_rechercher.Text, LookIn:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            txt_resultat.Text = txt_resultat.Text + Chr(13) + Str(c.Adress) + vbTab + Str(c.Value)
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With

[SfJ5Rpw8]

.. mais il me fout une erreur...

et elle à un nom cette erreur ..?

[jokair]

bien vu...

Désolé, euh, erreur débogage 438 sur cette ligne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

txt_resultat.Text = txt_resultat.Text + Chr(13) + Str(c.Adress) + vbTab + Str(c.Value)

Ce qui m'énerve, c'est que je sens que c'est tout bête...
Et ça plante pas sur l'objet de ma question mais sur comment remplir ma satanée Textbox...

M'enfin... J'y retourne !
@+

[dadavyvy]

C'est quoi "Adress"? Ca serait pas plutot avec 2 "d" : Address comme tu l'as ecrit un peu plus haut...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

txt_resultat.Text = txt_resultat.Text + Chr(13) + Str(c.Adress) + vbTab + Str(c.Value)

[ouskel'n'or]

+1
Certainement c.address
Remplace Str(c.Adress) par c.address, pas besoin de str