Macro pour supprimer des lignes

[Brice]

Salut les gens du Forum,

je cherche à faire une macro pour supprimer les lignes ou la cellule de la colonne C est vide.
Voici ce que j'ai fait :

Sub SupprimerLigne()
For n = 1 To 3000
If Range('C' & n).Value = 'VIDE' Then
Rows(n).Delete
End If

Next n
End Sub

Ca marche pas du tout...🙁

Merci d'avance.

 

[PascalXLD]

Bonjour

essaies plutot

Sub SupprimerLigne()
application.screenupdating =false
For n = 3000 to 1 step -1
If Range('C' & n) = '' Then Rows(n).Delete
Next n
application.screenupdating = true
End Sub

Message édité par: Pascal76, à: 15/06/2006 13:20

 

[Papaye]

Coucouc à tous,

Une autre solution :

Sub Exo_13()

With ActiveSheet.UsedRange
DerLi = .Row + .Rows.Count - 1
End With

For r = DerLi To 1 Step -1
If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete
Next r

End Sub

Papaye

 

[PascalXLD]

Re

Papaye tu es sur que ton code remplisse cette condition

ou la cellule de la colonne C est vide

Bonne journée

 

[Papaye]

Salut Pascal,

Bien sur que non !! 😱

Désolé ... ma macro efface les lignes vides et ne fais pas le test sur la colonne C !

Merci pour ta relecture !

Papaye