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.
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()
VB:
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
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.
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
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()
VB:
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