VBA EXCEL: suppression des lignes vides

Bonjour,

Après l'exécution de ma macro, la taille de mon fichier EXCEL augmente de 700 ko à 2.7 Mo ce qui ralentira son réouverture. le problème est dû au lignes vides ajoutées sur les 3 feuilles après l'exécution de ma macro ( En défilant le curseur de haut en bas il ne s’arrête pas à la 700 ième ligne non vide mais il continu jusqu'à la la ligne 100000 ). Existe t-il une astuce ou un code qui pourra remédier à mon problème ?

Merci d'avance.

Bonjour LANGAZOU,

Si tu ne précises pas d'avantage ton problème il va être difficile à la communauté de t'aider...
Quelque chose comme cela, peut-être ?

Code:

---

1 2 3 4 5 6 7 8

Sub Macro1()   With Worksheets("Feuil1") Range(.Rows("700:700"), .Rows("700:700").End(xlDown)).Delete Shift:=xlUp End With   ActiveWorkbook.Save End Sub

---

N'hésite pas à revenir avec d'avantage d'explications.

Cordialement,
Kimy

Bonjour Kimy,

Merci pour votre réponse.

le problème c'est que ma macro crée toujours une nouvelle ligne (3ème ligne) sur laquelle elle insère les données du USERFORM alors on ne peut pas figer le nombre de ligne à 700 :/

il y a plusieurs méthodes pour toruver la dernière ligne :

http://www.developpez.net/forums/d45...ees-d-feuille/

LANGAZOU,

Avec Excel, il n'y a jamais de problème ! L'erreur se situe toujours à 30 cm de l'écran ! :ccool:
Ne panique pas ! :mrgreen:

Peut-être comme cela :

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub Macro1() Dim oRng As Range   With Worksheets("AM") Set oRng = .Cells(Rows.Count, 1).End(xlUp) Range(oRng.Offset(1, 0), oRng.Offset(1, 0).End(xlDown)).Delete Shift:=xlUp End With   ActiveWorkbook.Save End Sub

---

Cordialement,
Kimy

Merci beaucoup et bonne journée ;-)