trouver un texte dans du texte

[sonskriverez]

Bonjour le forum

Je charche en VBA comment trouver une partie de texte dans un autre texte:

Exemple : 'Excel Downloads c'est good'

je voudrais reperer dans la colonne J les cellule contenant 'Downloads' et copier les lignes sur une nouvelle feuille

merci de votre aide

 

[le Fnake]

Bonsoir sonskriverez, le forum

la commande magique pourrait bien être 'InStrRev', en tout cas, ca marche bien :

Sub recherche_mot()
Application.ScreenUpdating = False

objectif = 'download'
derligne = Range('Feuil1!J65000').End(xlUp).Row
compteur = Range('Feuil2!J65000').End(xlUp).Row+1
For Each cell In Range('Feuil1!J1:J' & derligne)
    If InStrRev(cell.Value, objectif, , vbTextCompare) > 0 Then
        cell.EntireRow.Copy
        Set Dest = Sheets('Feuil2').Range('A' & compteur)
        Dest.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=True, Transpose:=False
        compteur = compteur + 1
    End If
Next

Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

Bon courage

le Fnake

[file name=textedanstexte.zip size=10559]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/textedanstexte.zip[/file]

 

[sonskriverez]

Super La Fnake, je pense que ça me convient, j'essaye d'inclure ton code dans ma macro et je te dit si cela fonctionne.

N'enp^che que c'est vrai que 'Excel Downloads c'est good'

 

[Sonskriverez]

Désolé le Fnake mais je ne retrouvais pas ce post alors j'ai reposter, ca ne marche pas avec mon code, je sais pas pourquoi