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
| Sub test()
Dim nbl, nbc As Long
nbl = Feuil2.Range("B3").End(xlDown).Row - 3
nbc = Feuil2.Range("C2").End(xlToRight).Column - 2
For k = 0 To nbc - 1 'colonne parcouru c_i
For j = 0 To nbl - 1 'ligne fixé a_j
For i = 0 To nbl - 1 'ligne variable a_i
If i <> j Then
If Feuil2.Cells(i + 3, k + 3) > Feuil2.Cells(j + 3, k + 3) Then
Feuil5.Cells(i + 2, k + 3).Value = Feuil2.Cells(i + 3, k + 3) - Feuil2.Cells(j + 3, k + 3)
End If
End If
Next i
Next j
Next k
End Sub |
Partager