Suppression conditionnelle de lignes

Question

Bonjour,
j'ai un probl&#232;me &#233;nervant !!

dans mon tableau Excel, la premi&#232;re colonne est remplie ou bien avec un X, ou bien avec rien du tout (en gros, la cellule est remplie ou ne l'est pas).
Je dois supprimer toutes les lignes dont la premi&#232;re cellule ne contient rien (les lignes sans X, donc).

Quel code simple puis-je utiliser ? Je suis perdu :-(
Merci

jpleroisse · Answer

Sub SupprimerLignesVides()
Dim derniereLigne as Long
Dim r As Long
DerniereLigne = ActiveSheet.UsedRange.Row - 1
DerniereLigne = DerniereLigne + ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
For r = DerniereLigne To 1 Step -1
If Application.WorkSheetFunction.CountA(Rows(r)) = 0 Then
Rows(r).Delete
End If
Next r
Application.ScreenUpdating = True
End Sub

Cette fonction supprime les lignes vides, a condition que toutes les lignes soit vides.
Par exemple si tu n'as rien en A1,B1, ect...mais que tu as en Z1 quelque chose dans la cellule, cette ligne ne sera pas supprim&#233;e.

jpleroisse

Suppression conditionnelle de lignes

1 réponse

Discussions similaires