Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
jb
Sub supprime_lignes_vides() dernière_ligne = ActiveCell.SpecialCells(xlLastCell).Row For i = dernière_ligne To 1 Step -1 If Application.WorksheetFunction.CountA(Rows(i)) = 0 Then Rows(i).Delete End If Next i End Sub
JB
Sub supprime_lignes_vides()
dernière_ligne = ActiveCell.SpecialCells(xlLastCell).Row
For i = dernière_ligne To 1 Step -1
If Application.WorksheetFunction.CountA(Rows(i)) = 0 Then
Rows(i).Delete
End If
Next i
End Sub
Sub supprime_lignes_vides() dernière_ligne = ActiveCell.SpecialCells(xlLastCell).Row For i = dernière_ligne To 1 Step -1 If Application.WorksheetFunction.CountA(Rows(i)) = 0 Then Rows(i).Delete End If Next i End Sub
