VBA: Supprimer toutes les cellules vides

flo2002

XLDnaute Impliqué

• 27 Juillet 2006

• #2

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...

 

Vote positif 0 Vote négatif

Y

yeti_yeti

XLDnaute Junior

• 27 Juillet 2006

• #3

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:

Code:

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

 

Vote positif -1 Vote négatif

JeanMarie

XLDnaute Barbatruc

• 27 Juillet 2006

• #4

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

 

Vote positif 0 Vote négatif

J

JANO

XLDnaute Occasionnel

• 12 Juin 2013

• #5

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

 

Vote positif 0 Vote négatif