Supprimer les espaces insécables d'une colonne

[maval]

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

 

[Jocelyn]

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

 

[maval]

Bonjour Jocelyn

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

Y a t-il code VBA pour supprimer ceci?

Merci

 

[job75]

Bonjour maval, Jocelyn,

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+

 

[maval]

Bonsoir Job

Je vous remercie sa fonctionne Nickel

Bonne soirée

Max