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

blanks galere

teodormircea

XLDnaute Occasionnel

Pièces jointes

Staple1600

XLDnaute Barbatruc

teodormircea

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency