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

pierrejean

XLDnaute Barbatruc

• 25 Janvier 2016

• #2

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

Bonjour maxime111

Vois si cela te convient

 

Pièces jointes

• données flèches bilatérales.xlsm

  21.4 KB · Affichages: 32

Vote positif 0 Vote négatif

CISCO

XLDnaute Barbatruc

• 25 Janvier 2016

• #3

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

 

Pièces jointes

• données flèches bilatérales.xlsx

  9.3 KB · Affichages: 31
• données flèches bilatérales.xlsx

  9.3 KB · Affichages: 26

Vote positif 0 Vote négatif

M

maxime111

Guest

• 25 Janvier 2016

• #4

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

pierrejean à dit:

Bonjour maxime111

Vois si cela te convient

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

M

maxime111

Guest

• 25 Janvier 2016

• #5

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

CISCO à dit:

Bonjour à tous, bonjour Pierrejean

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

@ plus

Cliquez pour agrandir...

Bonjour CISCO, merci également c'est sympa!

 

Vote positif 0 Vote négatif

C

CPk

XLDnaute Impliqué

• 25 Janvier 2016

• #6

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

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

Code:

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

 

Vote positif 0 Vote négatif