Réduction des lignes de code

satwaf · 31 Janvier 2012

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 · 31 Janvier 2012

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 · 31 Janvier 2012

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 · 31 Janvier 2012

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 · 31 Janvier 2012

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 · 31 Janvier 2012

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

Réduction des lignes de code

satwaf

XLDnaute Occasionnel

flyonets44

XLDnaute Occasionnel

satwaf

XLDnaute Occasionnel

francedemo

XLDnaute Occasionnel

satwaf

XLDnaute Occasionnel

JNP

XLDnaute Barbatruc

Discussions similaires