Supprimer caractères

maval

XLDnaute Barbatruc

• 10 Septembre 2017

• #2

Re,

Je vous remercie j'ai trouvé ceci.

Code:

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

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 10 Septembre 2017

• #3

Bonjour, maval, le Forum,

maval à dit:

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

Cliquez pour agrandir...

Oui, c'était là !

A bientôt

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 10 Septembre 2017

• #4

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

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

• 10 Septembre 2017

• #5

Bonjour maval, 00, le forum.

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

Code:

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

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 10 Septembre 2017

• #6

Bonjour Patrick

Je te remercie sa fonctionne Nickel

Bonne journée

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 10 Septembre 2017

• #7

Bonjour maval, DoubleZero, Patrick,

Pourquoi tous ces SIERREUR Patrick ? Un seul suffit :

Code:

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

A+

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

• 10 Septembre 2017

• #8

job75 à dit:

Bonjour maval, DoubleZero, Patrick,

Pourquoi tous ces SIERREUR Patrick ? Un seul suffit :

Code:

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

A+

Cliquez pour agrandir...

Bonjour, Gérard

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 10 Septembre 2017

• #9

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+

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

• 10 Septembre 2017

• #10

Re, Gérard

job75 à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 10 Septembre 2017

• #11

Re,

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

A+

 

Vote positif 0 Vote négatif