teodormircea
XLDnaute Occasionnel
Re sal le forum
J'ai fait une macros qui détecte et efface tout les espaces des cellules dans les blancs.
Le truc c'est que c'est tres lent,il y a t'il une méthode pour faire çà plus vite, ou améliorer mon truc
J'ai fait une macros qui détecte et efface tout les espaces des cellules dans les blancs.
Code:
Sub Blancs()
Dim X As Integer
Dim r As Range
X = CLng(InputBox(Prompt:="Quelle colonne?"))
If (X < 1) + (X > Columns.Count) Then Exit Sub
lastRow = ActiveSheet.Cells(Rows.Count, X).End(xlUp).Row
For Each r In Range(Cells(1, X), Cells(Rows.Count, X).End(xlUp))
If r.Value = "" Then
r.ClearContents
End If
Next
End Sub