B bob4112 XLDnaute Nouveau 12 Septembre 2013 #1 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
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.
Papou-net XLDnaute Barbatruc 12 Septembre 2013 #2 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: 12 Septembre 2013 Vote positif 0 Vote négatif
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)
JBARBE XLDnaute Barbatruc 12 Septembre 2013 #3 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 Vote positif 0 Vote négatif
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
B bob4112 XLDnaute Nouveau 12 Septembre 2013 #4 Re : macro qui supprimer ligne si les cellule de la colonne E sont vide merci à vous cela fonctionne!!! Vote positif 0 Vote négatif
Re : macro qui supprimer ligne si les cellule de la colonne E sont vide merci à vous cela fonctionne!!!