Drôle d'espace

[poipoi]

Bonjour à tous
Dans le tableau joint, je souhaite supprimer cette "espèce" d'espace avant les caractères qui me pourrit la vie car il empêche le format nombre.
Or les différentes macros trouvées sur le net sont inopérantes, comme si cet espace n'était pas considéré comme tel.
Il me faut préciser que ce tableau est un copié collé d'une page web, d'où peut être l'explication.
Auriez-vous une astuce car j'ai des dizaines de ligne à traiter. D'avance grand merci

 

[david84]

Re : Drôle d'espace

Bonjour,
à tester et à adapter :

Sub toto()
Dim Pl As Range, c As Range
Set Pl = Range("C5:C17")
For Each c In Pl
  c = Replace(c.Value, Chr(160), vbNullString)
Next c
End Sub

A+

 

[phlaurent55]

Re : Drôle d'espace

Bonjour poipoi,

avec ceci:

Dim cellule As Range
For Each cellule In Range("C5:C17")
If cellule <> "" Then cellule = cellule * 1
Next cellule

à+
Philippe

Edit: Bonjour David

 

[pierrejean]

Re : Drôle d'espace

bonjour poipoi

Teste cette macro

Sub test()
For n = 1 To Range("C" & Rows.Count).End(xlUp).Row
 Range("C" & n) = Replace(Range("C" & n), Chr(160), "")
Next
Columns("C").NumberFormat = "General"
End Sub

Edit Salut David, SalutPhilippe

 

[poipoi]

Re : Drôle d'espace

Bonjour David, Philippe, pierrejean...
toutes vos macros évidemment fonctionnent!!
bravo.. merci, merci bien...

ça va commencer à me coûter cher en apéro cette histoire...
bonne journée

 

[Modeste geedee]

Re : Drôle d'espace

Bonsour® les barbatrucs ...😉

autre proposition (oneliner😎), quasi brute d'enregistreur...🙄

Sub Macro1()
    Columns("C:C").Replace What:=Chr(160), Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub

 

[poipoi]

Re : Drôle d'espace

Bonjour Modeste geedee
mes excuses, je n'avais pas vu ta réponse...
et donc à toi aussi Merci