Sub Supprimer_les_lignes_vides()
Range("A1:A65536").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub
Sub supprimelignesvides()
Dim i As Long
For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
If Application.CountA(Rows(i)) = 0 Then Rows(i).Delete
Next i
End Sub
Sub Supprimer_les_lignes_vides()
Dim Ws As Worksheet, dl As Long
'Boucle sur toutes les feuille de calcul du classeur. Les onglets graphiques ne sont pas pris en compte.
'ThisWorkbook correspond à l'objet classeur contenant la macro
For Each Ws In ThisWorkbook.Worksheets
With Ws
On Error Resume Next 'ignore erreur au cas où il n'y a pas de cellule vide
dl = .UsedRange.Rows.Count 'derniere ligne non vide
.Range("A1:A" & dl).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End With
Next Ws
End Sub
Sub deleteEmptyRowOnUsedrange()
Dim i As Long, p As Range
With ActiveSheet.UsedRange
For i = 1 To .Rows.Count
If Application.CountA(.Rows(i)) = 0 Then
If p Is Nothing Then Set p = .Rows(i) Else Set p = Union(p, .Rows(i))
End If
Next i
End With
p.Delete
End Sub
Sub deleteEmptyRowOnsheet()
Dim i As Long, p As Range
With ActiveSheet
For i = 1 To .UsedRange.Cells(.UsedRange.Cells.Count).Row
If Application.CountA(.Rows(i)) = 0 Then
If p Is Nothing Then Set p = .Rows(i) Else Set p = Union(p, .Rows(i))
End If
Next i
End With
p.Delete
End Sub
Moi itou. C'est qu'il me mettrait le bourdon, le Hervé...merci de ressortir mes post de 2006, ca ne me rajeunit pas
Bonjour @mapomme,Bonjour à tous ,
Il y a quelques temps, j'avais fait une macro de suppression de lignes conditionnées à une plage de cellules. Si une ligne de cette plage est entièrement vide (la chaine vide est considérée comme vide) alors on supprime la ligne entière de la feuille. La macro était assez rapide.
Les cellules en beige sont les cellules qui contiennent la chaine vide.