recherche de toutes les combinaisons possibles

[Jeecer]

Bonjour à tous!
Je recherche un algorithme VBA permettant l'affichage de toutes les combinaisons de 1, -1 et 1 sur 4 cases (avec le droit à la redondance)
ce qui donnerais par exemple :
11-1-1
0101
0000
.
.
.

Merci d'avance!!

 

[JJ1]

Re : recherche de toutes les combinaisons possibles

Bonjour,
Est-ce ce résultat que tu attends?:
-1 -1 -1 -1
-1 -1 -1 0
-1 -1 -1 1
-1 -1 0 -1
-1 -1 0 0
-1 -1 0 1
-1 -1 1 -1
-1 -1 1 0
-1 -1 1 1
-1 0 -1 -1
-1 0 -1 0
-1 0 -1 1
-1 0 0 -1
-1 0 0 0
-1 0 0 1
-1 0 1 -1
-1 0 1 0
-1 0 1 1
-1 1 -1 -1
-1 1 -1 0
-1 1 -1 1
-1 1 0 -1
-1 1 0 0
-1 1 0 1
-1 1 1 -1
-1 1 1 0
-1 1 1 1
0 -1 -1 -1
0 -1 -1 0
0 -1 -1 1
0 -1 0 -1
0 -1 0 0
0 -1 0 1
0 -1 1 -1
0 -1 1 0
0 -1 1 1
0 0 -1 -1
0 0 -1 0
0 0 -1 1
0 0 0 -1
0 0 0 0
0 0 0 1
0 0 1 -1
0 0 1 0
0 0 1 1
0 1 -1 -1
0 1 -1 0
0 1 -1 1
0 1 0 -1
0 1 0 0
0 1 0 1
0 1 1 -1
0 1 1 0
0 1 1 1
1 -1 -1 -1
1 -1 -1 0
1 -1 -1 1
1 -1 0 -1
1 -1 0 0
1 -1 0 1
1 -1 1 -1
1 -1 1 0
1 -1 1 1
1 0 -1 -1
1 0 -1 0
1 0 -1 1
1 0 0 -1
1 0 0 0
1 0 0 1
1 0 1 -1
1 0 1 0
1 0 1 1
1 1 -1 -1
1 1 -1 0
1 1 -1 1
1 1 0 -1
1 1 0 0
1 1 0 1
1 1 1 -1
1 1 1 0
1 1 1 1
Bonne journée

 

[Jeecer]

Re : recherche de toutes les combinaisons possibles

Effectivement! Merci beaucoup!
Il faut encore que je le mette en forme sur les cases :/
Comment l'as-tu fait? Tu as utilisé un autre langage?

 

[Pierrot93]

Re : recherche de toutes les combinaisons possibles

Bonjour,

essaye ceci :

Option Explicit
Sub test()
Dim i As Integer, j As Integer, k As Integer, l As Integer
Dim lig As Long
lig = 1
For i = -1 To 1
    For j = -1 To 1
        For k = -1 To 1
            For l = -1 To 1
                Cells(lig, 1).Resize(1, 4) = Array(i, j, k, l)
                lig = lig + 1
            Next l
        Next k
    Next j
Next i
End Sub

bonne journée
@+

 

[Jeecer]

Re : recherche de toutes les combinaisons possibles

Eh bien merci, bien joué!
J'en ai pris de la graine!

 

[maxime216]

Re : recherche de toutes les combinaisons possibles

bonjour,

j'aimerai modifier ce code VBA (mais je n'y arrive pas ) afin de pouvoir avoir les combinaisons de 12 chiffres pouvant varier de 0 à 1.
Exemple
0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 1 0 0 0 0 0
1 0 0 0 0 0 0 0 0 0 0 0
1 1 1 1 1 1 1 1 1 1 1 0
....

pouvez vous m'aider

Merci!!!!

 

[Pierrot93]

Re : recherche de toutes les combinaisons possibles

Bonjour,

Option Explicit
Sub test()
Dim i As Integer, j As Integer, k As Integer, l As Integer
Dim m As Integer, n As Integer, o As Integer, p As Integer
Dim q As Integer, r As Integer, s As Integer, t As Integer
Dim lig As Long
lig = 1
For i = 0 To 1
    For j = 0 To 1
        For k = 0 To 1
            For l = 0 To 1
                For m = 0 To 1
                    For n = 0 To 1
                        For o = 0 To 1
                            For p = 0 To 1
                                For q = 0 To 1
                                    For r = 0 To 1
                                        For s = 0 To 1
                                            For t = 0 To 1
                                                Cells(lig, 1).Resize(1, 12) = Array(i, j, k, l, m, n, o, p, q, r, s, t)
                                                lig = lig + 1
                                            Next t
                                        Next s
                                    Next r
                                Next q
                            Next p
                        Next o
                    Next n
                Next m
            Next l
        Next k
    Next j
Next i
End Sub

bonne journée
@+