enumeration de combinaison

[lolo(tahiti)]

iaorana(bonjour de tahiti).j'ai un probleme je suis une méga quiche sur excel et je souhaiterai trouver une fonction qui me permette d'énumerer toute les combinaisons de 6 chiffres en ayant une base de 15 chiffres cela fait 5005 combinaisons . SI quelqu'un pouvait m'aider ce serait sympas maruru (merci

 

[XlDAdmin1]

Message déplacé dans le bon forum...

A++

David

 

[fifou_istb]

bonjour

j'ai fait un petit code qui j'espère répondra à tes exigences

Tu mets ta liste à tirer en a1:a15

et voila le code :

Sub combin()
Dim a1, a2, a3
Dim z
z = 1
For i = 1 To 15
    a1 = Range('a' & i).Value
    For j = 2 To 15
        If i >= j Then
            GoTo a
            Else
            a2 = Range('a' & j).Value
            End If
        For k = 3 To 15
            If j >= k Then
                GoTo b
                Else
                a3 = Range('a' & k).Value
                End If
            For l = 4 To 15
                If k >= l Then
                    GoTo c
                    Else
                    a4 = Range('a' & l).Value
                End If
                For m = 5 To 15
                    If l >= m Then
                        GoTo d
                        Else
                        a5 = Range('a' & m).Value
                    End If
                    For n = 6 To 15
                        If m >= n Then
                            GoTo e
                            Else
                            a6 = Range('a' & n)
                            Range('b' & z).Value = a1 & a2 & a3 & a4 & a5 & a6
                            z = z + 1
                        End If
e:
                    Next
d:
                Next
c:
            Next
b:
        Next
a:
    Next
Next
End Sub

voila
je rajout le fichier joint
a+
fifou [file name=combinaison.zip size=11554]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/combinaison.zip[/file]

Message édité par: fifou_istb, à: 06/07/2005 10:56