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