Excel, supprimer via VBA des lignes vides

Résolu/Fermé

Behippie Messages postés 14 Date d'inscription mardi 18 août 2009 Statut Membre Dernière intervention 31 janvier 2011 - 24 nov. 2009 à 16:26
bouliboula - 27 nov. 2009 à 16:22

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.

A voir également:

Excel, supprimer via VBA des lignes vides
Supprimer une page word - Guide
Supprimer compte instagram - Guide
Liste déroulante excel - Guide
Aller à la ligne excel - Guide
Formule excel - Guide

4 réponses

Réponse 1 / 4

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
24 nov. 2009 à 16:45

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

Behippie Messages postés 14 Date d'inscription mardi 18 août 2009 Statut Membre Dernière intervention 31 janvier 2011
25 nov. 2009 à 09:05

Bonjour à tous,

Merci bien michel_m

Tout fonctionne à merveille, rien besoin de modifier

Je cherchais trop loin, comme quoi, il ne faut pas se prendre le chou en VBA

Encore merci... ;-)

A+

Réponse 2 / 4

eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 213
24 nov. 2009 à 19:24

Bonjour tout le monde,

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

Réponse 3 / 4

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
25 nov. 2009 à 09:12

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

Réponse 4 / 4

bouliboula
27 nov. 2009 à 16:22

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

Discussions similaires

EXCEL : Supprimer des lignes vides à la fin

Afficher toutes les lignes masquées excel

Discussions similaires

Newsletters