Extraction chaîne de caractères flèches bilaterales RESOLU

[maxime111]

Bonjour à toutes et à tous,

J'ai un souci d'extraction de données, je souhaite extraire à partir d'un texte situé dans la cellule A1, des données qui sont entre des flèches bilaterales pour les copier dans la colonne B (dans des cellules différentes), est-ce que quelqu'un a une idée svp?

Ci-joint un exemple.

Merci d'avance

Bonne semaine

 

[pierrejean]

Re : Extraction chaîne de caractères flèches bilaterales

Bonjour maxime111

Vois si cela te convient

 

[CISCO]

Re : Extraction chaîne de caractères flèches bilaterales

Bonjour à tous, bonjour Pierrejean

Une possibilité en pièce jointe, avec des cellules intermédiaires.

@ plus

 

[maxime111]

Re : Extraction chaîne de caractères flèches bilaterales

Bonjour maxime111

Vois si cela te convient

Bonjour Pierrejean, c'est parfait, cela fonctionne parfaitement, merci beaucoup

 

[maxime111]

Re : Extraction chaîne de caractères flèches bilaterales

Bonjour à tous, bonjour Pierrejean

Une possibilité en pièce jointe, avec des cellules intermédiaires.

@ plus

Bonjour CISCO, merci également c'est sympa!

 

[CPk]

Re : Extraction chaîne de caractères flèches bilaterales RESOLU

Bonjour à toutes et à tous...Trop tard tant pis.

Sub rgxp()
Dim reg As Object
Dim n, nn
Set reg = CreateObject("vbscript.regexp")
reg.Global = True
reg.ignorecase = True
reg.Pattern = ">\w*\.?\w*<"
Set nn = reg.Execute(Feuil1.[A1])
For Each n In nn
b = Replace(n, ">", vbNullString, 1, , vbTextCompare)
b = Replace(b, "<", vbNullString, 1, , vbTextCompare)
Feuil1.Cells(Rows.Count, 2).End(xlUp)(2) = b
Next
End Sub