Réduction des lignes de code

[satwaf]

Bonjour à tous,
j'aimerai savoir comment je peux réduire ce code , j'ai peur de faire une bétise

ActiveCell.SpecialCells(xlLastCell).Offset(0, 0).Range("a1").EntireRow.Delete
ActiveCell.SpecialCells(xlLastCell).Offset(-1, 0).Range("a1").EntireRow.Delete
ActiveCell.SpecialCells(xlLastCell).Offset(-2, 0).Range("a1").EntireRow.Delete
ActiveCell.SpecialCells(xlLastCell).Offset(-3, 0).Range("a1").EntireRow.Delete
ActiveCell.SpecialCells(xlLastCell).Offset(-4, 0).Range("a1").EntireRow.Delete
ActiveCell.SpecialCells(xlLastCell).Offset(-5, 0).Range("a1").EntireRow.Delete
ActiveCell.SpecialCells(xlLastCell).Offset(-6, 0).Range("a1").EntireRow.Delete

Merci par avance

 

[flyonets44]

Re : Réduction des lignes de code

Bonjour
il suffit de définir une variable I et de l'incrémenter dans une boucle for next
comme suit
for i=0 to -6
ActiveCell.SpecialCells(xlLastCell).Offset(i, 0).Range("a1").EntireRow.Delete
=i-1
next
cordialement
flyonets

 

[satwaf]

Re : Réduction des lignes de code

Merci flyonets44, j'ai mis le code dans ma macro, mais je crois qu'il manque quelque chose devant le =i-1 (car la ligne passe en rouge)

 

[francedemo]

Re : Réduction des lignes de code

bonjour,

ecrit "i=i-1" ou alors dans la ligne d'incrémentation, tu mets "for i=0 to -6 step -1" (et là, tu supprime "i=i-1")
a+

 

[satwaf]

Re : Réduction des lignes de code

C'est bon j'avais mis step-1 dans le code, et tout fonctionne bien, encore merci

 

[JNP]

Re : Réduction des lignes de code

Bonjour le fil ,
On peux savoir quel est le but de ces lignes ?
On pourrait penser que c'est pour supprimer les 7 dernières lignes utilisées, mais le comportement est ératique ...
Car entre 2 déclenchements, la 2ème fois, elle ne fait rien, considérant toujours la dernière ligne comme utilisée, même après effacement ...
Bonne soirée