Supprimer les espaces insécables d'une colonne

Jocelyn

XLDnaute Barbatruc

• 9 Novembre 2018

• #2

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

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 9 Novembre 2018

• #3

Bonjour Jocelyn

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

Cliquez pour agrandir...

Y a t-il code VBA pour supprimer ceci?

Merci

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 9 Novembre 2018

• #4

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+

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 9 Novembre 2018

• #5

Bonsoir Job

Je vous remercie sa fonctionne Nickel

Bonne soirée

Max

 

Vote positif 0 Vote négatif