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 32 33 34
|
Sub TestTri()
Dim Plage As Range
Dim PlageTri As Range
Dim I As Integer
With Worksheets("Feuil2")
Set Plage = .Range(.Cells(3, 3), .Cells(6, 18))
For I = 4 To 1 Step -1
.Range(.Cells(15, 3), .Cells(30, 6)) = Application.WorksheetFunction.Transpose(Plage)
Set PlageTri = .Range(.Cells(15, 3), .Cells(30, 6))
PlageTri.Sort Plage.Columns(I), xlAscending
If I > 1 Then
PlageTri(1, I) = 1
PlageTri(1, I).AutoFill Range(PlageTri(1, I), PlageTri(I + 2, I)), 9
End If
Plage = Application.WorksheetFunction.Transpose(PlageTri)
PlageTri.Clear
Next I
End With
End Sub |
Partager