XL 2013 Supprimer caractères

[maval]

Bonjour,
j'ai une liste de nom comme ceci
59 001 - ABANCOURT (*) et j'aimerai avoir ceci 59 001 - Abancourt
Je joint mon fichier je vous remercie d'avance
Max

 

[excfl]

Bonjour le forum, maval

=SUBSTITUE(A5;"(*)";"")

Bonsoir soan, sylvanu

 

[soan]

Bonjour maval, excfl,

je te propose 2 solutions :

* fichier "ESSAI v1"

formule en B5 (déjà tirée vers le bas jusqu'en B25) :

=SUBSTITUE(A5;" (*)";"")

note bien qu'il y a 1 espace avant la parenthèse gauche de l'argument ancien_texte pour éviter que cet espace reste en fin de chaîne de caractères après la substitution : ça ferait un caractère supplémentaire en trop !​

---

* fichier "ESSAI v2"

cette fois, il n'y a qu'une seule colonne ; fais Ctrl e ➯ travail effectué !

j'ai utilisé la méthode des tableaux ➯ ça sera très rapide, même sur plusieurs milliers de lignes.

Sub Essai()
  Dim n&: n = Cells(Rows.Count, 1).End(3).Row: If n < 5 Then Exit Sub
  Dim T, i&: n = n - 4: T = [A5].Resize(n)
  For i = 1 To n
    T(i, 1) = Replace$(T(i, 1), " (*)", "")
  Next i
  Application.ScreenUpdating = 0: [A5].Resize(n) = T
End Sub

---

merci de me dire quelle méthode tu as préférée ; perso, je te conseille le 2ème fichier.

si besoin, tu peux demander une adaptation.
à te lire pour avoir ton avis. ​

---

EDIT : grâce au post #4 de sylvanu, je me suis rendu compte que j'ai zappé les minuscules ! les nouvelles versions corrigées des fichiers sont dans mon post #5 ; cliquer sur CE LIEN.​

soan

 

[sylvanu]

Bonjour Maval, Excfl, Soan,
Un essai par formule avec :

=SUBSTITUE(GAUCHE(A5;CHERCHE(" - ";A5)+3)&MINUSCULE(STXT(A5;CHERCHE(" - ";A5)+4;1000));"(*)";"")

59 001 - ABANCOURT (*) donne 59 001 - Abancourt avec le respect majuscules/minuscules.

 

[soan]

Bonjour sylvanu,

tu as raison ! excfl et moi, on a zappé les minuscules !

nouvelles versions de mes 2 fichiers précédents :

* fichier "Essai v3"

formule en B5 (déjà tirée vers le bas jusqu'en B25) :

=NOMPROPRE(SUBSTITUE(A5;" (*)";""))

---

* fichier "Essai v4"

même utilisation : Ctrl e ➯ travail effectué !

(toujours avec la méthode très rapide des tableaux)

Sub Essai()
  Dim n&: n = Cells(Rows.Count, 1).End(3).Row: If n < 5 Then Exit Sub
  Dim T, i&: n = n - 4: T = [A5].Resize(n)
  For i = 1 To n
    T(i, 1) = WorksheetFunction.Proper(Replace$(T(i, 1), " (*)", ""))
  Next i
  Application.ScreenUpdating = 0: [A5].Resize(n) = T
End Sub

---

@maval : bien sûr, mes 2 fichiers précédents sont devenus inutiles !

soan

 

[sylvanu]

Re,
Et dans le même esprit par formule, cela se simplifie :

=SUBSTITUE(NOMPROPRE(A5);"(*)";"")

Je n'y avais pas pensé.

 

[maval]

Je vous remercie c'est super
Bonne soirée