okianos | Citation :
En remplacant la ligne : "If IsEmpty(Cells(i + 1, 2)) And IsEmpty(Cells(i + 2, 2)) And IsEmpty(Cells(i + 3, 2)) And IsEmpty(Cells(i + 4, 2)) Then"
par celle-ci : "If WorksheetFunction.CountA(Activesheet.Range(Cells(i, 2), Cells(65536, 2))) = 0 Then"
|
Ca a marché, merci beaucoup !
Citation :
à 17h30 ?
|
Oui je suis stagiaire, j'ai la chance de pouvoir sortir tôt
Citation :
Bonjour, je n'ai pas tout compris, mais est-ce que cela peut répondre au problème:
Dim i As Double
Application.ScreenUpdating = False For i = 9000 to 3 step -1 If IsEmpty(Cells(i, 2)) Then
Cells(i, 2).Select
Selection.Delete Shift:=xlUp
End If
Next i
Application.ScreenUpdating = true
|
Ca marche aussi, merci ! Le temps d'exécution est juste un peu plus long puisque je remplace 9000 par 65536 (je veux que ca marche pour n'importe quelle base de données)
Merci pour votre aide ! |