blanks galere

teodormircea · 14 Avril 2008

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 · 14 Avril 2008

Re : blanks galere

Re

Code:

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 · 14 Avril 2008

Re : blanks galere

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

blanks galere

teodormircea

XLDnaute Occasionnel

Pièces jointes

Staple1600

XLDnaute Barbatruc

teodormircea

XLDnaute Occasionnel

Discussions similaires