D
drareg78
Guest
Bonjour à tous.
Une macro qui me permet de supprimer, jusqu’à la ligne 7, les lignes vides dans un tableau en partant de la dernière ligne de ma feuille.
Dim i As Long
For i = ActiveSheet.UsedRange.Rows.Count To 7 Step -1
If Application.WorksheetFunction.CountBlank(Cells(i, 2).Resize(, 2)) = 2 Then
Rows(i).Delete
End If
Next
Afin de gagner en rapidité de traitement, plutôt que de partir de la dernière ligne de cette page, je souhaiterai la faire partir depuis la ligne 200 dans la mesure ou ce tableau ne contiendra jamais plus de 200 lignes
Je ne doute pas de recevoir l’aide de l’un d’entre vous
Merci par avance
Une macro qui me permet de supprimer, jusqu’à la ligne 7, les lignes vides dans un tableau en partant de la dernière ligne de ma feuille.
Dim i As Long
For i = ActiveSheet.UsedRange.Rows.Count To 7 Step -1
If Application.WorksheetFunction.CountBlank(Cells(i, 2).Resize(, 2)) = 2 Then
Rows(i).Delete
End If
Next
Afin de gagner en rapidité de traitement, plutôt que de partir de la dernière ligne de cette page, je souhaiterai la faire partir depuis la ligne 200 dans la mesure ou ce tableau ne contiendra jamais plus de 200 lignes
Je ne doute pas de recevoir l’aide de l’un d’entre vous
Merci par avance