Supprimer caractères

maval · 16 Février 2018

Bonjour

J'ai sur une colonne "A" des noms de villes avec des caractères a supprimer " - et " guillemets "
Je joins mon fichier exemple.

Je vous remercie de votre aide

Max

DoubleZero · 16 Février 2018

Bonjour, maval, le Forum,

L'enregistreur de macro, notre ami, permet d'obtenir aisément le résultat souhaité. Il suffit, simplement, d'oser le solliciter pour l'écriture de ceci :

Code:

Option Explicit
Sub a()
    Columns("A:A").Select
    Selection.SpecialCells(xlCellTypeConstants, 23).Select
    Selection.Replace What:="""", Replacement:="", LookAt:=xlPart, _
                      SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
                      ReplaceFormat:=False
    Selection.Replace What:="-", Replacement:=" ", LookAt:=xlPart, _
                      SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
                      ReplaceFormat:=False
End Sub

Un petit "nettoyage" ne laisse que cela :

Code:

Option Explicit
Sub Caractères_supprimer()
    With Columns("a:a").SpecialCells(xlCellTypeConstants)
        .Replace What:="""", Replacement:="", LookAt:=xlPart
        .Replace What:="-", Replacement:=" ", LookAt:=xlPart
    End With
End Sub

A bientôt 🙂

DoubleZero · 16 Février 2018

Re-bonjour,

Une demande similaire ici...

😵🙂

Supprimer caractères

maval

XLDnaute Barbatruc

Pièces jointes

DoubleZero

XLDnaute Barbatruc

DoubleZero

XLDnaute Barbatruc

Discussions similaires

Supprimer caractères

maval

XLDnaute Barbatruc

Pièces jointes

DoubleZero

XLDnaute Barbatruc

DoubleZero

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency