blanks galere

[teodormircea]

J'ai des soucis avec des blanks bizarres, j'ai tout essaye, trim gauche, droit, meme des macros qui fonctionne dans des conditions normales, rien a faire toujours pareil.
Si quelcun a une idee.J'ai un fichier comme example. Il ya 2 example si vous selectez les cellules vous aller comprendre de koi je parle.
Merci beacoup.

 

[Staple1600]

Re : blanks galere

Re

Sub test_II()
'(auteur: jindon)
Application.ScreenUpdating = False
[B] Dim X As String[/B]
    Dim r As Range
    'For Each r In Range("a1", Range("a" & Rows.Count).End(xlUp))
    X = InputBox("Quelle colonne?")
[B]     For Each r In Range(X & 1, Range(X & Rows.Count).End(xlUp))[/B]
        r.Value = CleanAll(r.Value)
        r.WrapText = False
    Next
Application.ScreenUpdating = True
End Sub

 

[teodormircea]

Re : blanks galere

Merci gars tu m'as sauve, on apprend des chose