Excel, supprimer via VBA des lignes vides
Résolu
Behippie
Messages postés
14
Date d'inscription
Statut
Membre
Dernière intervention
-
bouliboula -
bouliboula -
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.
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 rond bleu whatsapp - Guide
- Liste déroulante excel - Guide
- Comment supprimer une page vide sur word - Guide
- Aller à la ligne excel - Guide
- Word et excel gratuit - Guide
4 réponses
Bonjour
pas besoin de boucle;essaies:
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
Bonjour tout le monde,
Michel, il faut lire Range("E1:E" & derlig) au lieu de Range("E1:EA" & derlig) non ?
eric
Michel, il faut lire Range("E1:E" & derlig) au lieu de Range("E1:EA" & derlig) non ?
eric
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+