Generateur de combinaison 4 colonnes
Bonjour
Je souhaite avoir une solution pour générer toutes les combinaisons possibles a partir de 4 listes de caractères alphanumériques
exemple
| LISTE 1 | LISTE 2 | LISTE 3 | LISTE 4 | LISTE des 1 679 616 Combinaisons possibles | |
| 0 | 0 | 0 | 0 | 0 0 0 0 | |
| 1 | 1 | 1 | 1 | 0 0 0 1 | |
| 2 | 2 | 2 | 2 | 0 0 0 2 | |
| 3 | 3 | 3 | 3 | 0 0 0 3 | |
| 4 | 4 | 4 | 4 | 0 0 0 4 | |
| 5 | 5 | 5 | 5 | 0 0 0 5 | |
| 6 | 6 | 6 | 6 | 0 0 0 6 | |
| 7 | 7 | 7 | 7 | 0 0 0 7 | |
| 8 | 8 | 8 | 8 | 0 0 0 8 | |
| 9 | 9 | 9 | 9 | 0 0 0 9 | |
| A | A | A | A | 0 0 0 A | |
| B | B | B | B | 0 0 0 B | |
| C | C | C | C | 0 0 0 C | |
| D | D | D | D | 0 0 0 D | |
| E | E | E | E | 0 0 0 E | |
| F | F | F | F | 0 0 0 F | |
| G | G | G | G | 0 0 0 G | |
| H | H | H | H | 0 0 0 H | |
| İ | İ | İ | İ | 0 0 0 İ | |
| J | J | J | J | 0 0 0 J | |
| K | K | K | K | 0 0 0 K | |
| L | L | L | L | 0 0 0 L | |
| M | M | M | M | 0 0 0 M | |
| N | N | N | N | 0 0 0 N | |
| O | O | O | O | 0 0 0 O | |
| P | P | P | P | 0 0 0 P | |
| Q | Q | Q | Q | 0 0 0 Q | |
| R | R | R | R | 0 0 0 R | |
| S | S | S | S | 0 0 0 S | |
| T | T | T | T | 0 0 0 T | |
| U | U | U | U | 0 0 0 U | |
| V | V | V | V | 0 0 0 V | |
| W | W | W | W | 0 0 0 W | |
| X | X | X | X | 0 0 0 X | |
| Y | Y | Y | Y | 0 0 0 Y | |
| Z | Z | Z | Z | ... |
Merci a vous !
A
Bonjour à tous,
un essai macro ( on doit en trouver des centaines sur le net...)
Sub amelie45()
Dim T, TT(), i As Long, j As Long, k As Long, m As Long, Lig As Long, col As Integer
T = Range("A2:A37")
ReDim TT(1 To UBound(T) ^ 3, 1 To UBound(T))
col = 1
For i = LBound(T) To UBound(T)
For j = LBound(T) To UBound(T)
For k = LBound(T) To UBound(T)
For m = LBound(T) To UBound(T)
Lig = Lig + 1
If Lig > UBound(TT, 1) Then
Lig = 1
col = col + 1
End If
TT(Lig, col) = T(i, 1) & " " & T(j, 1) & " " & T(k, 1) & " " & T(m, 1)
Next
Next
Next
Next
Range("F2").Resize(UBound(TT, 1), UBound(TT, 2)) = TT
End SubA+
Re,
@AlgoPlus,
1.679.616 lignes dans une feuille Excel ?
Cdlt.
A
Re,
J'ai opté pour 2 feuilles de +/- 800.000 lignes...
Cdlt.
Genial !
Merci Jean Eric et aussi merci AlgoPlus vous êtes super !
Bonjour Jean-Eric j'ai un nouveau projet, pouvez vous m'aider ?
https://forum.excel-pratique.com/excel/filtrage-d-une-liste-assez-massive-176175