Supprimer caractères

maval

XLDnaute Barbatruc
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
 

Pièces jointes

  • sup_caracteres.xlsm
    9.4 KB · Affichages: 22

maval

XLDnaute Barbatruc
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
 

Discussions similaires

Réponses
2
Affichages
353

Membres actuellement en ligne

Statistiques des forums

Discussions
311 725
Messages
2 081 942
Membres
101 849
dernier inscrit
florentMIG