Supprimer une chaîne de caractères entre 2 caractères

jpajot · 11 Mars 2015

Bonsoir,
Après avoir essayer de multiples formules et réponses sur le forum je ne parviens pas à trouver une solution à mon problème.

Je cherche une formule unique pour nettoyer les cas de libellés suivants:
CAS 1: "CUBE LETTRE R .300X300X300 ROSE" je souhaite obtenir "CUBE LETTRE R ROSE"
CAS 2: "MORCEAU DE PODIUM .1000X140X650 BOIS" je souhaite obtenir "MORCEAU DE PODIUM BOIS"
CAS 3: "EXTENSION DE CINTRE .150X80 METAL" je souhaite "EXTENSION DE CINTRE METAL"
CAS 4: "CINTRE VESTE BLANC GRAND . BOIS" je souhaite "CINTRE VESTE BLANC GRAND BOIS"

Comme vous le voyez l'idée est de supprimer toute chaîne entre "[espace]." et le prochain [espace] rencontré.

J'ai trouvé des formules pour traiter chaque cas, mais j'aurai besoin d'une formule unique pour tous les cas (22 000 intitulés à retraiter).

Je vous remercie par avance pour vos lumières 😉

Julien

Dranreb · 11 Mars 2015

Re : Supprimer une chaîne de caractères entre 2 caractères

Bonsoir.

Cette fonction perso en VBA devrait faire l'affaire

VB:

Function Nettoyé(ByVal Z As String) As String
Dim TSpl() As String, P As Long
TSpl = Split(Z, " .")
For P = 1 To Ubound(Tspl)
   TSpl(P) = Mid$(TSpl(P), Instr(TSpl(P) & " ", " ") + 1)
   Next P
Nettoyé = Join(Tspl, " ")
End Function

Theze · 11 Mars 2015

Re : Supprimer une chaîne de caractères entre 2 caractères

Bonjour,

Dans le même esprit :

Code:

Function VirerDim(Texte As String) As String

    VirerDim = Split(Texte, ".")(0) & " " & Split(Split(Texte, ".")(1), " ")(1)
    
End Function

mais attention, je me suis aperçu que les espaces devait être supprimés et recréés est-ce dû au copier coller ? A voir !

Hervé.

mapomme · 11 Mars 2015

Re : Supprimer une chaîne de caractères entre 2 caractères

Bonjour jpajot, Dranreb,

Ou bien peut-être par formule ?

Code:

=SIERREUR(GAUCHE(A1;TROUVE(" .";A1)-1) & DROITE(A1;NBCAR(A1)-TROUVE(" ";A1;TROUVE(" .";A1)+2)+1);"" & A1)

jpajot · 11 Mars 2015

Re : Supprimer une chaîne de caractères entre 2 caractères

Dranreb à dit:
Bonsoir.

Cette fonction perso en VBA devrait faire l'affaire

VB:

Function Nettoyé(ByVal Z As String) As String Dim TSpl() As String, P As Long TSpl = Split(Z, " .") For P = 1 To Ubound(Tspl) TSpl(P) = Mid$(TSpl(P), Instr(TSpl(P) & " ", " ") + 1) Next P Nettoyé = Join(Tspl, " ") End Function

Merci Dranreb,
Je ne sais pas faire de VBA 😱 et je suis encore moins sûr de savoir où le trouver sur Mac...
J'aimerais plutôt partir sur de la formule si possible.

jpajot · 11 Mars 2015

Re : Supprimer une chaîne de caractères entre 2 caractères

mapomme à dit:
Bonjour jpajot, Dranreb,

Ou bien peut-être par formule ?

Code:

=SIERREUR(GAUCHE(A1;TROUVE(" .";A1)-1) & DROITE(A1;NBCAR(A1)-TROUVE(" ";A1;TROUVE(" .";A1)+2)+1);"" & A1)

Merci mapomme, j'ai essayé cette formule qui me renvoie exactement la même valeur d'origine sans modification 😕

mapomme · 11 Mars 2015

Re : Supprimer une chaîne de caractères entre 2 caractères

Bonjour jpajot,

Le fichier en retour avec la même formule qui semble donner le bon résultat 😕
(après avoir toutefois remplacé IZQUIERDA par GAUCHE)

jpajot · 11 Mars 2015

Re : Supprimer une chaîne de caractères entre 2 caractères

C'est génial! Ça marche parfaitement 😀
Merci encore pour votre aide.

Supprimer une chaîne de caractères entre 2 caractères

jpajot

Guest

Dranreb

XLDnaute Barbatruc

Theze

XLDnaute Occasionnel

mapomme

XLDnaute Barbatruc

jpajot

Guest

jpajot

Guest

Pièces jointes

mapomme

XLDnaute Barbatruc

Pièces jointes

jpajot

Guest

Discussions similaires

Supprimer une chaîne de caractères entre 2 caractères

jpajot

Guest

Dranreb

XLDnaute Barbatruc

Theze

XLDnaute Occasionnel

mapomme

XLDnaute Barbatruc

jpajot

Guest

jpajot

Guest

Pièces jointes

mapomme

XLDnaute Barbatruc

Pièces jointes

jpajot

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency