KTM
XLDnaute Impliqué
salut cher Forum
j'ai une table qui comporte 23 colonnes et 4500 lignes sur laquelle je dois travailler.
j'ai élaboré la macro si dessous qui doit supprimer les colonnes Q,R,S et supprimer toutes les données de cette table sauf les entêtes
le probleme est que la macro met des minutes à s'exécuter.
je ne sais pas si cette lenteur est due a mon PC ( Dual Core 4G de RAM) ou si c'est l'architecture de ma macro qui en est la cause.
Je voudrais que vous aidiez a optimiser la macro si possible.
Application.ScreenUpdating = False
Dim a As Integer
Sheets("E").select
Columns("Q:S").Delete Shift:=xlToLeft
a = Sheets("E").Range("A" & Rows.Count).End(xlUp).Row
Sheets("E").Range("A2:T" & a).Delete
Application.ScreenUpdating = True
j'ai une table qui comporte 23 colonnes et 4500 lignes sur laquelle je dois travailler.
j'ai élaboré la macro si dessous qui doit supprimer les colonnes Q,R,S et supprimer toutes les données de cette table sauf les entêtes
le probleme est que la macro met des minutes à s'exécuter.
je ne sais pas si cette lenteur est due a mon PC ( Dual Core 4G de RAM) ou si c'est l'architecture de ma macro qui en est la cause.
Je voudrais que vous aidiez a optimiser la macro si possible.
Application.ScreenUpdating = False
Dim a As Integer
Sheets("E").select
Columns("Q:S").Delete Shift:=xlToLeft
a = Sheets("E").Range("A" & Rows.Count).End(xlUp).Row
Sheets("E").Range("A2:T" & a).Delete
Application.ScreenUpdating = True