1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31
| Sub Tri()
Dim wsSheet As Worksheet
Dim Valeur(4)
For Each wsSheet In Worksheets
If wsSheet.Name = "Max" Then Sheets("Max").Delete
Next
Sheets.Add.Name = "Max"
Sheets("toto").Activate
Bas = Range("A1000").End(xlUp).Row + 1
Range("A2:D" & Bas).Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("D2") _
, Order2:=xlAscending, Key3:=Range("C2"), Order3:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
xlSortNormal
Selection.Copy
Sheets("Max").Paste
Sheets("Max").Activate
j = 0
For i = 1 To Bas
j = j + 1
Valeur(1) = Range("A" & j).Value
Valeur(2) = Range("D" & j).Value
Valeur(3) = Range("A" & j + 1).Value
Valeur(4) = Range("D" & j + 1).Value
If Valeur(1) = Valeur(3) And Valeur(2) = Valeur(4) Then Rows(j).Delete: j = j - 1
Next
End Sub |
Partager