Supprimer Lignes et Colonnes avant Exécution Macro

RENOUVEL Michel

XLDnaute Nouveau
Bonjour à tous,

Pourriez-vous m'aider à modifier le code de ma macro (réalisé grâce à Hello 00 et Vgendron :) )
J'ai besoin avant d'exécuter Cette macro de supprimer systématiquement les colonnes C et D ainsi que les lignes 3 et 4.
Faut-il faire une deuxième macro qui s'exécute en premier ou peut-on rajouter le traitement en début macro
Encore merci pour votre aide

ci-dessous le code et en pièce jointe le fichier Excel

Sub complete()

With Sheets("Feuil1")
Set ListeToComplete = .Range("A3:B" & .Range("A" & .Rows.Count).End(xlUp).Row)
LastLine = ListeToComplete.Rows.Count
' ListeToComplete.Select
End With
With Sheets("Feuil2")

Set ListeSource = .Range("A3:B" & .Range("A" & .Rows.Count).End(xlUp).Row)
'ListeSource.Select
End With
For Each ele In ListeSource.Columns(1).Cells
Set c = ListeToComplete.Find(ele, lookat:=xlWhole)
If c Is Nothing Then
Range("A" & LastLine).Offset(1, 0) = ele
Range("B" & LastLine).Offset(1, 0) = ele.Offset(0, 1)
Set ListeToComplete = ListeToComplete.Resize(LastLine + 1, 2)
LastLine = LastLine + 1
End If
Next ele

'tri sur colonne A

ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=ListeToComplete.Columns(2).Cells _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Feuil1").Sort
.SetRange ListeToComplete
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
 

Fichiers joints

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas