excel

[vincent]

comment suprimer une ligne lorsqu'elle est vide sous forme de condition

 

[CBernardT]

Bonjour Vincent

Pour supprimer une ligne sous condition, une macro qui se régle sur la plage utilisée :

Sub SupLignesVides()
Dim Mat As Variant
Dim j As Long
k = 1
Mat = ActiveSheet.UsedRange
For j = 1 To UBound(Mat)
Cells(j, 1).Select
If Application.CountA(Cells(j, 1).EntireRow) = 0 Then
Cells(j, 1).EntireRow.Delete
j = j - 1
End If
Next j
End Sub

Cordialement

CBernardT

 

[CBernardT]

Re Vincent

Petit correctif pour arrêter la macro qui s'emballe toute seule :

Sub SupLignesVides()
Dim Mat As Variant
Dim j As Long
Mat = ActiveSheet.UsedRange
For j = 1 To UBound(Mat)
Mat = ActiveSheet.UsedRange
Cells(j, 1).Select
If j > UBound(Mat) Then Exit Sub
If Application.CountA(Cells(j, 1).EntireRow) = 0 Then
Cells(j, 1).EntireRow.Delete
j = j - 1
End If
Next j
End Sub

Salut

CBernardT