Discussion :

[LANGAZOU]

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.

[Kimy_Ire]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[LANGAZOU]

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 :/

[bboy-eazy]

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

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

[Kimy_Ire]

LANGAZOU,

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

Peut-être comme cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[LANGAZOU]

Merci beaucoup et bonne journée ;-)