duninpohja
XLDnaute Nouveau
Bonjour a tous,
après avoir fouillé un long moment et essayé bon nombre de solutions, je n arrive pas a être satisfait du resultat.
Je cherche un petit bout de code vba pour effacer les cellules vides en decalant vers la gauche sur une selection donnée.
Mes problèmes sont les suivants: le temps de traitement est juste incroyablement long avec des codes de ce genre:
'Dim Data As Range, Lig%, Col%
'Set Data = Range("a9:m213")
' Application.ScreenUpdating = False
'With Data
'For Lig = 1 To .Rows.Count
'For Col = .Columns.Count To 1 Step -1
'If .Cells(Lig, Col) = "" Then .Cells(Lig, Col).Delete shift:=xlToLeft
'Next Col
'Next Lig
'End With
' Application.ScreenUpdating = True
ou bien
'For x = 1 To 2 'Faire tourner la macro 10 fois
' For i = 6 To 213
' For k = 13 To 1 Step -1
' If Cells(i, k) = "" Then
' Cells(i, k).Delete shift:=xlToLeft
' End If
'Next k
'Next i
'Next x
De plus ces codes ne m'effacent pas tous mes blancs. J ai l impression que si j ai un vide au milieu de deux cellues non vides alors il n'effectue pas la suppression.
Si vous aviez une idée je serais preneur.
Merci par avance
après avoir fouillé un long moment et essayé bon nombre de solutions, je n arrive pas a être satisfait du resultat.
Je cherche un petit bout de code vba pour effacer les cellules vides en decalant vers la gauche sur une selection donnée.
Mes problèmes sont les suivants: le temps de traitement est juste incroyablement long avec des codes de ce genre:
'Dim Data As Range, Lig%, Col%
'Set Data = Range("a9:m213")
' Application.ScreenUpdating = False
'With Data
'For Lig = 1 To .Rows.Count
'For Col = .Columns.Count To 1 Step -1
'If .Cells(Lig, Col) = "" Then .Cells(Lig, Col).Delete shift:=xlToLeft
'Next Col
'Next Lig
'End With
' Application.ScreenUpdating = True
ou bien
'For x = 1 To 2 'Faire tourner la macro 10 fois
' For i = 6 To 213
' For k = 13 To 1 Step -1
' If Cells(i, k) = "" Then
' Cells(i, k).Delete shift:=xlToLeft
' End If
'Next k
'Next i
'Next x
De plus ces codes ne m'effacent pas tous mes blancs. J ai l impression que si j ai un vide au milieu de deux cellues non vides alors il n'effectue pas la suppression.
Si vous aviez une idée je serais preneur.
Merci par avance
Pièces jointes
Dernière édition: