Supprimer caractères

[maval]

Bonjour,

J'ai sur une feuille "A1" une liste de nom comme ceci "34 095 - FABREGUES (*)"
et je cherche à supprimer tous les caractères avant et après le nom, pour arriver avoir ceci en nom propre:
Fabrégues

Je vous remercie de votre aide

Cordialement

Max

 

[maval]

Re,

Je vous remercie j'ai trouvé ceci.

Sub Remplacer()
    Dim c As Range
    Application.ScreenUpdating = False
    With Columns(1).SpecialCells(xlCellTypeConstants) ' numéro de colonne adapter
        .Replace What:="*- ", Replacement:="", LookAt:=xlPart
        .Replace What:=" (*)", Replacement:="", LookAt:=xlPart
    End With
    Application.ScreenUpdating = True
End Sub

Bonne journée

 

[DoubleZero]

Bonjour, maval, le Forum,

... Je vous remercie j'ai trouvé ceci...

Oui, c'était là !

A bientôt 🙂

 

[maval]

Bonjour DoubleZero

Oui exact c'est toi qui ma donner ce code j'avais oublié de le signaler je te remercie encore et te souhaite une bonne journée

 

[Victor21]

Bonjour maval, 00, le forum.

Pour vous exonérer du VBA, vous pouvez tenter :

=STXT(A2;SIERREUR(TROUVE("-";A2)+2;1);SIERREUR(TROUVE("(";A2)-1;9^9)-SIERREUR(TROUVE("-";A2)+2;1))

 

[maval]

Bonjour Patrick

Je te remercie sa fonctionne Nickel

Bonne journée

 

[job75]

Bonjour maval, DoubleZero, Patrick,

Pourquoi tous ces SIERREUR Patrick ? Un seul suffit :

=SIERREUR(STXT(A1;TROUVE("- ";A1)+2;TROUVE("(";A1)-TROUVE("- ";A1)-3);""&A1)

A+

 

[Victor21]

Bonjour maval, DoubleZero, Patrick,

Pourquoi tous ces SIERREUR Patrick ? Un seul suffit :

=SIERREUR(STXT(A1;TROUVE("- ";A1)+2;TROUVE("(";A1)-TROUVE("- ";A1)-3);""&A1)

A+

Bonjour, Gérard 😉

Les "(" ne sont pas systématiques...

 

[job75]

Re Patrick,

En toute logique on peut penser que s'il n'y a pas de "- " il n'y a pas non plus de "(".

A+

 

[Victor21]

Re, Gérard

En toute logique on peut penser que s'il n'y a pas de "- " il n'y a pas non plus de "(".

L'inverse semble ne pas toujours se vérifier : je vois en ligne 3 de l'exemple "82 057 - FABAS"
🙂

 

[job75]

Re,

Tu as raison Patrick, je n'avais pas ouvert le fichier.

A+