Macro supprimer ligne ne fonctionne pas

[Laurentl]

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!

 

[Roland_M]

Re : Macro supprimer ligne ne fonctionne pas

bonjour

avec delete ligne il faut commencer par le bas et remonter !

For i = Range("A6000").End(xlUp).Row to 1 step - 1

 

[Pierrot93]

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 :

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

 

[Laurentl]

Re : Macro supprimer ligne ne fonctionne pas

Bonjour à vous deux et merci pour vos réponse!

Ni l'un ni l'autre ne fonctionne...

Je ne comprends pas pourquoi

 

[Pierrot93]

Re : Macro supprimer ligne ne fonctionne pas

Re,

modifie comme suit :

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]

Re : Macro supprimer ligne ne fonctionne pas

re

voir ceci fonctionne !

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

 

[Guest]

Re : Macro supprimer ligne ne fonctionne pas

Bonjour,

Pierrot, Roland

supprimer la ligne dont la cellule en colonne B est vide:

La colonne B ne serait-ce pas Cells(i,2) et non Cells(i,3). A moins que le demandeur ne dise B alors qu'il s'agit de C!?

A+

 

[Laurentl]

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!

 

[Laurentl]

Re : Macro supprimer ligne ne fonctionne pas

PS, pardon c'est bien la colonne C, je me suis trompé dans ma demande

 

[Pierrot93]

Re : Macro supprimer ligne ne fonctionne pas

Re, bonjour Hasco bien vu...

La macro de pierro93 rend l'opération tres longue

ceci pour l'accélérer

Application.ScreenUpdating = False
'code
Application.ScreenUpdating = True