Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Macro supprimer ligne ne fonctionne pas

Laurentl

XLDnaute Nouveau
Bonjour à tous!

Je ne comprends pas mon erreur dans cette macro pour supprimer la ligne dont la cellule en colonne B est vide:

Sub Macro()
For i = 1 To Range("A6000").End(xlUp).Row
If Cells(i, 3).Value = "" Then
Rows(i).EntireRow.Delete
End If
Next i
End Sub

Vous le verrez dans mon fichier joint.

Merci!
 

Pièces jointes

  • TEST (2).xlsm
    132.4 KB · Affichages: 40
  • TEST (2).xlsm
    132.4 KB · Affichages: 45
  • TEST (2).xlsm
    132.4 KB · Affichages: 39
Dernière édition:

Pierrot93

XLDnaute Barbatruc
Re : Macro supprimer ligne ne fonctionne pas

Bonjour,

pas ouvert ton fichier, mais lorsque tu supprimes des lignes il faut commencer par la fin et remonter, essaye peut être en modifiant comme suit :
Code:
Option Explicit
Sub Macro()
Dim i As Long
For i = Range("A6000").End(xlUp).Row To 1 Step -1
    If Cells(i, 3).Value = "" Then Rows(i).Delete
Next i
End Sub
bon après midi
@+

Edition : bonjour Roland
 

Pierrot93

XLDnaute Barbatruc
Re : Macro supprimer ligne ne fonctionne pas

Re,

modifie comme suit :
Code:
Option Explicit
Sub Macro()
Dim i As Long
For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
    If Cells(i, 3).Value = "" Then Rows(i).Delete
Next i
End Sub
 

Roland_M

XLDnaute Barbatruc
Re : Macro supprimer ligne ne fonctionne pas

re

voir ceci fonctionne !

Code:
Sub Macro()
Application.ScreenUpdating = False
For i = Columns(1).Rows(ActiveSheet.Rows.Count).End(xlUp).Row To 1 Step -1
If Cells(i, 3).Value = "" Then Rows(i).EntireRow.Delete
Next i
Application.ScreenUpdating = True
End Sub
 

Laurentl

XLDnaute Nouveau
Re : Macro supprimer ligne ne fonctionne pas

Merci beaucoup à vous deux!

La macro de pierro93 rend l'opération tres longue cependant, alors j'opte pour celle de Roland_M.

Ca fonctionne très bien merci encore à vous deux!

Bon aprem!
 

Discussions similaires

Réponses
2
Affichages
132
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…