Bonjour à tous,

Voici mon problème (Excel 2007) :

Je cherche a remplir n des cellules avec tous les arrangements possibles d'entiers de 1 à n.
ex 1,2,3 donne:

1 2 3
1 3 2
2 1 3
2 3 1
3 1 2
3 2 1

(où chaque entier est dans une cellule)

Voici le code que j'ai bricolé justement pour 1,2,3 :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Option Explicit
Sub Factorielle()
Dim i, j, k, N, Fact As Integer
 
N = 1
Fact = 3
 
For i = 1 To Fact
    For j = 1 To Fact
        For k = 1 To Fact
            If i <> j And i <> k And j <> k Then
                Cells(N, 1) = i
                Cells(N, 2) = j
                Cells(N, 3) = k
                N = N + 1
            End If
        Next k
    Next j
Next i
 
End Sub
Donc ok jusqu'à 3, mais comment faire un code pour 1,2,3, ... , n ?

Merci beaucoup à tous ceux qui pourront m'aider!

Vonwolf