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 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66
| Sub programme()
Dim n1 As Integer
Dim n2 As Integer
Dim n3 As Integer
Dim n4 As Integer
Dim n5 As Integer
Dim n6 As Integer
Dim j As Integer
Dim initial As Integer
Dim r As Integer
i = 1
For n1 = 1 To 7
For n2 = 1 To 7
For n3 = 1 To 7
For n4 = 1 To 7
For n5 = 1 To 7
For n6 = 1 To 7
initial = 1
r = 1
p = i
If n1 <> n2 And n1 <> n3 And n1 <> n4 And n1 <> n5 And n1 <> n6 And n2 <> n3 And n2 <> n4 And n2 <> n5 And n2 <> n6 And n3 <> n4 And n3 <> n5 And n3 <> n6 And n4 <> n5 And n4 <> n6 And n5 <> n6 Then
If initial = 1 Then
initial = initial + 1
r = 0
Else
For j = 1 To p
If (n1 = Cells(j, 1) Or n1 = Cells(j, 2) Or n1 = Cells(j, 3) Or n1 = Cells(j, 4) Or n1 = Cells(j, 5) Or n1 = Cells(j, 6)) Then
If (n2 = Cells(j, 1) Or n2 = Cells(j, 2) Or n2 = Cells(j, 3) Or n2 = Cells(j, 4) Or n2 = Cells(j, 5) Or n2 = Cells(j, 6)) Then
If (n3 = Cells(j, 1) Or n3 = Cells(j, 2) Or n3 = Cells(j, 3) Or n3 = Cells(j, 4) Or n3 = Cells(j, 5) Or n3 = Cells(j, 6)) Then
If (n4 = Cells(j, 1) Or n4 = Cells(j, 2) Or n4 = Cells(j, 3) Or n4 = Cells(j, 4) Or n4 = Cells(j, 5) Or n4 = Cells(j, 6)) Then
If (n5 = Cells(j, 1) Or n5 = Cells(j, 2) Or n5 = Cells(j, 3) Or n5 = Cells(j, 4) Or n5 = Cells(j, 5) Or n5 = Cells(j, 6)) Then
If (n6 = Cells(j, 1) Or n6 = Cells(j, 2) Or n6 = Cells(j, 3) Or n6 = Cells(j, 4) Or n6 = Cells(j, 5) Or n6 = Cells(j, 6)) Then
r = 0
End If
End If
End If
End If
End If
End If
End If
Next
End If
If (r = 0) Then
Cells(i, 1) = n1
Cells(i, 2) = n2
Cells(i, 3) = n3
Cells(i, 4) = n4
Cells(i, 5) = n5
Cells(i, 6) = n6
i = i + 1
End If
Next
Next
Next
Next
Next
Next
End Sub |
Partager