Supprimer les espaces insécables d'une colonne

maval

XLDnaute Barbatruc
Bonjour

J'ai dans ma colonne "A" une série de nom que je transfère d'un autre logiciel et sa me donne à chaque fin de nom un espace insécables.

J'avais mis ceci en formule
=SUBSTITUE(A35;CAR(160);"")
Sa fonctionne mais trop de manipulation
Y a t-il un code en VBA qui fasse la même chose

Je vous remercie d'avance
 

Pièces jointes

  • espace_insecable.xlsm
    8.8 KB · Affichages: 16

Jocelyn

XLDnaute Barbatruc
Bonjour le Forum,
Bonjour maval,

Dans le fichier joint ce sont des espace normaux car(32),

après si tu as vraiment des insécable il te suffit de sélectionner les données de cliquer sur rechercher => remplacer dans rechercher maintenir ALT et taper 0160 ne rien mettre dans le champ remplacer par et cliquer sur remplacer tout

même manip avec car(32) en cas de besoin

Cordialement
 

job75

XLDnaute Barbatruc
Bonjour maval, Jocelyn,
Code:
Sub Epure()
Dim t, i&
With ActiveSheet
    If .FilterMode Then .showalldta 'si la feuille est filtrée
    With .UsedRange.Columns(1)
        .Replace Chr(160), " ", xlPart
        t = .Value
        If Not IsArray(t) Then .Value = RTrim(t): Exit Sub
        For i = 1 To UBound(t)
            t(i, 1) = RTrim(t(i, 1))
        Next
        .Value = t
    End With
End With
End Sub
A+
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 939
Membres
101 844
dernier inscrit
pktla