Re : Afficher toute les combinaisons de chiffres
Bonsoir emmah,
Une possibilité avec le code suivant :
Sub test()
Dim a(), b%(), i&, u&, j&, k&, r&
a = Array(6, 7, 8, 9, 10, 11, 12, 13)
Sheets.Add
For i = 2 To 7
b = CTab(UBound(a) - LBound(a) + 1, i): u =...