Discussion :

[the java lover]

Bonjour,

Comment rechercher dans une feuille EXCEL une cellule contenant un mot (mais pas contenant uniquement le mot).
Par exemple je cherche toutes les cellules contenant le mot "TEST"

les cellules contenant TEST, TEST1, TEST2, 33TEST33 ect... doivent être retournées.

Merci

[ouskel'n'or]

Avec find, tu fais ça, mais tu mets LookAt:=xlpart à la place de xlwhole

Code :

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

1
2
3
MotCherché = "TEST"
                Selection.Find(What:=MotCherché, After:=ActiveCell, LookIn:=xlValues, _
                    LookAt:=xlpart , SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate

Et tu mets ça dans une boucle

Tu règles SearchOrder:=xlByRows ou columns selon tes besoins

A+

[the java lover]

Pas moyen de faire ça sans boucle.

Du style je suis sur ma feuille, et je cherche la(les) cellule(s) contenant "TEST" ?

[Megaxel]

Si!
Tu mets "Cells" à la place de "Selection".
Par contre, attention, si Excel ne trouve pas le mot que tu cherches, Excel va planter... Mais il est possible de faire une vérification pour éviter ça.

[ouskel'n'or]

Hello magasel, tu peux approfondir ? Comment récupère-t-il sa plage ?

Peut-il faire :

Code :

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

1
2
3
MotCherché = "TEST" 
                MaPlage = Cells.Find(What:=MotCherché, After:=ActiveCell, LookIn:=xlValues, _ 
                    LookAt:=xlpart , SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate

C'EST UNE QUESTION !

Merci Passemoilesel

[the java lover]

Code :

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

1
2
3
 
Set xlsSheet = ActiveWorkbook.Worksheets(1)
Set xlsRange = xlsSheet.Cells.find("TEST")

Marche TRES BIEN

Merci

[Megaxel]

Et donc, pour éviter le plantage si le mot que tu cherches n'est pas dans ta feuille, tu peux rajouter ça:

Code :

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

1
2
3
4
5
6
7
 
Set MaCellule = Cells.Find(What:=MaRecherche, After:=ActiveCell, LookIn:=xlValues, _
                LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext)
    If Not MaCellule Is Nothing Then
        MsgBox ("Trouvé!")
        MaCellule.Interior.ColorIndex = 5
    End If

Enfin, un truc du même genre.