VBA EXCEL: Suppression des lignes vides

[Aragon10]

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.

 

[pierrejean]

Re : VBA EXCEL: Suppression des lignes vides

Bonjour Aragon10

Une astuce: Eviter d'ajouter des lignes vides !!!

PS: avec un petit fichier exemple dénué de données confidentielles aiderait à la résolution du problème

 

[Aragon10]

Re : VBA EXCEL: Suppression des lignes vides

Bonjour Pierre,

Ma macro n'ajoute pas des lignes vides ! elle crée uniquement une nouvelle ligne ( 3ème ligne)sur laquelle elle insère les données du USERFORM.

 

[mutzik]

Re : VBA EXCEL: Suppression des lignes vides

bonjour Aragon, PierreJean

et donc la demande de Pierre-Jean est de plus en plus d'actualité et nécessaire ...

 

[pierrejean]

Re : VBA EXCEL: Suppression des lignes vides

Excuse moi , j'avais cru lire :

le problème est dû au lignes vides ajoutées sur les 3 feuilles après l'exécution de ma macro

 

[Aragon10]

Re : VBA EXCEL: Suppression des lignes vides

c'est bon j'ai su l'origine du problème. En supprimant ce code ma macro fonctionne très bien sans avoir une plage de lignes vides au dessous:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

  Set champ = Range("A1:U10000")
  If Not Intersect(champ, Target) Is Nothing And Target.Count = 1 Then
     champ.Interior.ColorIndex = xlNone
     col1 = champ.Column
     col2 = col1 + champ.Columns.Count - 1
     Range(Cells(Target.Row, col1), Cells(Target.Row, col2)).Interior.ColorIndex = 34
     
  End If

comment faire svp pour remplacer le Range(A1:U10000) par la dernière cellule non vide ?

Merci et désolé pour le dérangement.

 

[mutzik]

Re : VBA EXCEL: Suppression des lignes vides

re,

Range(A1:U10000) doit être Range("A1:U10000")
ensuite :
Range("A1:U" & range("A"&rows.count).end(xlup).row)

 

[Aragon10]

Re : VBA EXCEL: Suppression des lignes vides

Merci beaucoup et bonne journée.