VBA: Supprimer toutes les cellules vides

[yeti_yeti]

Bonjour,

J'ai un petit soucis avec une partie de code VBA. J'aimerais qu'Excel puisse supprimer toutes les cellules vides vers le haut afin que toutes les cellules non-vides se retrouvent les unes à coté des autres.

Voilà le code qui me fait une erreur à la 2ème ligne

last_cell = ActiveCell.SpecialCells(xlLastCell)
For i = last_cell To 1 Step -1
If Application.WorksheetFunction.CountA(Cells(i, i)) = 0 Then
Cells(i, i).Delete Shift:=xlUp
End If
Next i

En gros, voilà comment c'est maintenant:


Et voilà comment j'aimerais que ça soit:


Y a-t-il qqn pour m'aider?

Merci d'avance!

 

[flo2002]

Re : VBA: Supprimer toutes les cellules vides

bonjour,
en espeant pouvoir t'aider, j'avais le meme probleme et on m'a donner ce code:
Range("A1").Select
Do While ActiveCell.Value = ""
Selection.Delete Shift:=xlUp
Loop

a toi de voire ce que tu peux en faire...

 

[yeti_yeti]

Re : VBA: Supprimer toutes les cellules vides

Merci!

Mais je viens de trouver la solution par moi même avec un code beaucoup plus facile:

Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.Delete Shift:=xlUp

 

[JeanMarie]

Re : VBA: Supprimer toutes les cellules vides

Bonjour

Tu peux raccourcir en une seule ligne
Selection.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp

il y a un avantage à supprimer le select, la cellule active ne change pas.

@+Jean-Marie

 

[JANO]

Re : VBA: Supprimer toutes les cellules vides

bonjour le forum,

j'aimerai supprimer les cellules contenant la valeur "-"
(vers le haut afin que toutes les cellules d'accoté reste en phase) Range("A1").Select


mais le petit bout de code ne fait rien


Do While ActiveCell.Value = "-"
Selection.Delete Shift:=xlUp
Loop

merci de votre aide