Application.ScreenUpdating = False toto = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row With Range("A5:A" & toto) .SpecialCells(xlCellTypeBlanks).EntireRow.Delete End With Application.ScreenUpdating = True
For I = dernièreligne to premièreligne step - 1 if .......ta condition..... then .....entirerow.delete end if Next
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionsub nitho() Dim x Dim i As Integer i = 1 Application.ScreenUpdating = False x = Application.Calculation Application.Calculation = xlCalculationManual Do While i < 200 If Cells(i, 1).Value = "" Then Rows(i).Delete shift:=xlUp Debug.Print i Debug.Print Range(("A" & i)).Value i = i - 1 End If If i = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row Then i = 200 End If i = i + 1 Loop Application.ScreenUpdating = True Application.Calculation = x End Sub
réponse N°2 c'est tout à fait ça.
Application.ScreenUpdating = False With Range("A:A") .SpecialCells(xlCellTypeBlanks).EntireRow.Delete End With Application.ScreenUpdating = True___