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

[jpajot]

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]

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

Bonsoir.

Cette fonction perso en VBA devrait faire l'affaire

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]

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

Bonjour,

Dans le même esprit :

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]

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

Bonjour jpajot, Dranreb,

Ou bien peut-être par formule ?

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

 

[jpajot]

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

Bonsoir.

Cette fonction perso en VBA devrait faire l'affaire

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]

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

Bonjour jpajot, Dranreb,

Ou bien peut-être par formule ?

=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]

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]

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

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