comme cela concerne plus excel que la programmation, peut etre devrais-tu demander le transfert de ton sujet dans la section bureautique?

Message original par paupiau

Bonjour, voici mon problème, j'aimerais rechercher du texte dans une colonne excel qui commence par < et qui finit par > et qui m'affiche tout ce qu'il a trouvé dans une autre colonne.
Par exemple dans ma colonne A j'ai :

blablablalbal
pouet<texte1>blabla
leoeoeoeo
kekeek<texte2>pouetete

Dans ma colonne B j'aurais donc:
<texte1>
<texte2>


Merci de votre aide

Sub test()
i = 1
For Each o In Range("A:A")
If InStr(o.Value, "<") <> 0 Then
Cells(i, 2).Value = Mid(o.Value, InStr(o.Value, "<"), InStr(o.Value, ">") - InStr(o.Value, "<") + 1)
i = i + 1
End If
Next
End Sub