XL 2019 Supprimer conditionnellement les lignes vides

[Dadi147]

Bonjour. Je voulais de l'aide avec un code qui me permet de supprimer des lignes à condition que je vérifie un espace à partir de la cellule A à M de la feuille de calcul. À partir de la ligne 11 vers le bas.

 

[Wayki]

Bonjour,
Un fichier SVP merci
A +

 

[Dadi147]

Bonjour,
Un fichier SVP merci
A +

 

[Wayki]

Bonjour. Je voulais de l'aide avec un code qui me permet de supprimer des lignes à condition que je vérifie un espace à partir de la cellule A à M de la feuille de calcul. À partir de la ligne 11 vers le bas.

Vous pouvez essayer ce code

Sub test()
Dim derlig%, i%, j%
Thisworksheet.activate
derlig = activesheet.range("a" & rows.count).end(xlup).row
For i = 1 to 13
For j = 11 to derlig
 if cells(j,i) = " " then cells(j, i).entirerow.delete
 Next j
Next i
End sub

A +

 

[Dadi147]

Malheureusement, le code ne supprime pas les lignes

 

[Wayki]

Malheureusement, le code ne supprime pas les lignes

Normal, vous parliez d'espace alors qu'il s'agit de cellule vide.
Il y avait cependant une petite erreur dans le code, voici la correction :
Sub test()

Sub test()
Dim derlig%, j%

derlig = ActiveSheet.Range("a" & Rows.Count).End(xlUp).Row

For j = 11 To derlig
 If Cells(j, 1) = "" Then Cells(j, 1).EntireRow.Delete
 Next j

End Sub

A +