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
 

Pièces jointes

  • Heures FINALE.xlsm
    33.8 KB · Affichages: 31

Discussions similaires

Réponses
11
Affichages
396
Réponses
13
Affichages
850

Statistiques des forums

Discussions
311 725
Messages
2 081 947
Membres
101 849
dernier inscrit
florentMIG