Supprimer ligne vide

[Gullycousse]

Bonjour au Forum,
Y a-t-il quelqu'un qui pourrait me dire si il est possible de supprimer des lignes vide automatiquement voir explication dans pièces jointe.

 

[laetitia90]

Re : Supprimer ligne vide

bonjour Gullycousse
une soluc.. par macro

Sub es()
 Dim i As Long
 Application.ScreenUpdating = 0
 For i = Cells(Rows.Count, 2).End(3).Row To 1 Step -1
 If Cells(i, 2).Interior.ColorIndex = 6 Then Rows(i).Delete
 Next i
End Sub

 

[Jack2]

Re : Supprimer ligne vide

Bonsoir Gullycousse & laetitia90,

S'il s'agit de supprimer toutes les lignes vides sans distinction de couleur, il suffit de remplacer une ligne de code :

If Cells(i, 2).Interior.ColorIndex = 6 Then Rows(i).Delete

par

If Cells(i, 2) = "" and Cells(i, 3) = "" Then Rows(i).Delete

Pour une ligne vide et jaune :

If Cells(i, 2).Interior.ColorIndex = 6 and Cells(i, 2) = "" and Cells(i, 3) = "" Then Rows(i).Delete

Mettre la ligne suivante avant End Sub

Application.ScreenUpdating = True

A+ JAck2

 

[laetitia90]

Re : Supprimer ligne vide

re,tous

Application.ScreenUpdating = True

pas forcement indispensable dans ce type de code le End Sub ....le fait trés bien

 

[Jack2]

Re : Supprimer ligne vide

Bonjour le fil,

pas forcement indispensable dans ce type de code le End Sub ....le fait très bien

Je pensais le contraire. Ca voudrait dire que le End Sub réactive automatiquement le rafraîchissement, le calcul automatique...

Merci

A+ Jack2

 

[Gullycousse]

Re : Supprimer ligne vide

Un grand merci à tous cela m'a fait gagner une bonne heure car j'avais plusieurs sheet a traiter