Titre du sujet : Re: Analyse combinatoire
par Mytå le 30/06/2008 15:09:50
Salut le forum
J'avais déjà fournit un code similaire sur un autre forum.
Sub Combinaisons()
Dim Num1 As Byte
Dim Num2 As Byte
Dim Num3 As Byte
Dim Num4 As Byte
Dim Num5 As Byte
Dim Num6 As Byte
Dim NbreNum As Byte
Dim L As Long, C As Byte
L = 1
C = 0
NbreNum = 26
For Num1 = 1 To NbreNum
For Num2 = Num1 + 1 To NbreNum
For Num3 = Num2 + 1 To NbreNum
For Num4 = Num3 + 1 To NbreNum
For Num5 = Num4 + 1 To NbreNum
For Num6 = Num5 + 1 To NbreNum
Cells(L, 1 + C) = Chr$(64 + Num1) & ";" & Chr$(64 + Num2) & ";" & Chr$(64 + Num3) _
& ";" & Chr$(64 + Num4) & ";" & Chr$(64 + Num5) & ";" & Chr$(64 + Num6)
L = L + 1
If L = 65001 Then
C = C + 1
L = 1
End If
Next Num6
Next Num5
Next Num4
Next Num3
Next Num2
Next Num1
End Sub
Mytå
|
Didier FOURGEOT