Excel, supprimer via VBA des lignes vides Résolu

Question

Bonjour à tous, 

Voici mon problème:

Dans la colonne E j'ai plusieurs valeurs sur plusieurs lignes :

D           E
1          
2          435
3
4          121
5
6          
7         3546

J'aimerai avoir une macro lié à un bouton (ou qui s'execute dès l'ouverture du fichier) pour supprimer toutes les lignes de la colonne E qui sont vide !!!

Avec la macro suivante je peux supprimer les premières lignes, mais comme ce n'est pas une boucle, elle s'arrête quand elle tombe sur une cellule non vide:

Sub Supp_line()

Dim I     As Long
Dim Plage As Range
Set Plage = Range("E1:E" & Range("E1").End(xlDown).Row)
For I = Plage.Cells.Count To 1 Step -1
  If Plage.Cells(I).Value = "" Then
    Plage.Cells(I).EntireRow.Delete
  End If
Next

End Sub

Comme puis-je procéder  ???
Par avance merci de votre aide.

michel_m · Answer

Bonjour
pas besoin de boucle;essaies:

Sub virerligvide()
Dim derlig As Long

derlig = Range("E65536").End(xlUp).Row
Range("E1:EA" & derlig).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

eriiic · Answer

Bonjour tout le monde,

Michel, il faut lire Range("E1:E" & derlig) au lieu de Range("E1:EA" & derlig) non ?
eric

michel_m · Answer

Hé Oui! Parkinson a encore frappé :-)
Merci Eric

bouliboula · Answer

bonjour
est il possible d'efectuer à l'aide d'une macro de supprimer une ligne ou il y a une cellule vide mais à l'intérieur une fonction si. en effet, pour la valeur fausse j'ai mis "".

Merci de m'indiquer si c'est possible ou non 

Cdt

bouliboula

Excel, supprimer via VBA des lignes vides

4 réponses

Discussions similaires

Newsletters