Suppression de tous les caracteres a gauche du deuxième espace et de l'apostrophe(')

[phibi]

Bonjour a tous
Dans la colonne A de ma feuille excel j'ai 35 000 références dont les libelles sont les suivantes:
DISTRICT DE BAMAKO
CERCLE DE KATI
CERCLE DE SIKASSO
CERCLE D'ANSONGO
CERCLE D'ABEIBARA
etc....
J'aimerais avoir une macro en vba pour avoir en fin de traitement les transformations suivantes:
BAMAKO
KATI
SIKASSO
ANSONGO
ABEIBARA
C'est à dire supprimer tous les caractères à gauche du deuxième espace et de l'apostrophe(')
Merci

 

[R@chid]

Re : Suppression de tous les caracteres a gauche du deuxième espace et de l'apostroph

Salut,
une proposition par formule si tu veux bien.
Voir PJ
Amicalement

 

[BOISGONTIER]

Re : Suppression de tous les caracteres a gauche du deuxième espace et de l'apostroph

Bonjour,

=DROITE(A1;EQUIV(" ";STXT(SUBSTITUE(A1;"'";" ");NBCAR(A1)-LIGNE($1:$255);1);0))
Valider avec maj+ctrl+entrée

En VBA

Sub essai()
  For Each c In Range([A1], [A65000].End(xlUp))
    c.Offset(, 1) = Mid(c, InStrRev(Replace(c, "'", " "), " ") + 1, 99)
  Next
End Sub

JB

 

[Pierrot93]

Re : Suppression de tous les caracteres a gauche du deuxième espace et de l'apostroph

Bonjour,

une solution vba :

Option Explicit
Sub test()
Dim i As Long
For i = 1 To Range("A65536").End(xlUp).Row
    Cells(i, 1) = Split(Split(Cells(i, 1))(UBound(Split(Cells(i, 1)))), "'") _
        (UBound(Split(Split(Cells(i, 1))(UBound(Split(Cells(i, 1)))), "'")))
Next i
End Sub

bonne journée
@+

 

[phibi]

Re : Suppression de tous les caracteres a gauche du deuxième espace et de l'apostroph

Bonjour
Je remercie Rachid_0661,Boisgontier et Pierrot93 pour vos solutions car elles marchent tous impeccablement.
Merci beaucoup
a+
amicalement