Aide pour modifier une macro

[drareg78]

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

 

[Pierrot93]

Re : Aide pour modifier une macro

Bonjour,

en l'état ta boucle est ajustée au nombre de lignes de la plage...

ActiveSheet.UsedRange.Rows.Count

donc cela devrait coller... fais un test pas à pas, utilisation de la touche F8 dans l'éditeur vba, tu verras bien par quelle ligne cela commence..

bonne journée
@+

 

[mercant76]

Re : Aide pour modifier une macro

bonjour,

à priori, partir de la dernière ligne ou de la 200 ème, ne te fera rien gagner en rapidité de traitement, si ce n'est un pouillème.

@+