macro qui supprimer ligne si les cellule de la colonne E sont vide

bob4112

XLDnaute Nouveau
Bonjour,
je souhaite supprimer les lignes si les cellules de la colonne E sont vide. Mais je veux que la macro s'applique sur E13 jusqu'a E1100.
Je vous met mon document en ligne.
 

Pièces jointes

  • test.xls
    20.5 KB · Affichages: 53
  • test.xls
    20.5 KB · Affichages: 59
  • test.xls
    20.5 KB · Affichages: 60

Papou-net

XLDnaute Barbatruc
Re : macro qui supprimer ligne si les cellule de la colonne E sont vide

Bonjour bob4112,

Ci-joint copie de ton fichier avec macro de suppression lancée par le bouton Démo.

Cette macro est située dans le module Module1.

Pour info: la lecture des lignes se fait dans la colonne F, et ne porte que sur les cellules non vides afin d'optimiser la rapidité de la boucle.

Cordialement.

Edit: fichier modifié suite à erreur de logique (merci à JBARBE que je salue)
 

Pièces jointes

  • Copie de test Bob4112.xls
    30.5 KB · Affichages: 65
Dernière édition:

JBARBE

XLDnaute Barbatruc
Re : macro qui supprimer ligne si les cellule de la colonne E sont vide

Bonjour à tous,

Essayez ceci :

Code:
Sub SupprimerLignes()
Dim L As Long
For L = 1100 To 13 Step -1
   If Feuil1.Cells(L, 5).Value = False Then Feuil1.Rows(L).Delete
   Next L
End Sub

bonne journée
 

Discussions similaires

Réponses
2
Affichages
366
Réponses
26
Affichages
789