Remplissage d'un tableau automatiquement

Salut à toutes et à tous,

j'ai un tableau de 7 lignes et je veux le remplir des n combinaisons possibles automatiquement

je clarifie les choses

pour chaque ligne j'ai trois possibilités (A,B et C)

donc je veux remplir un nombre de colonne 7! de telle façon que j'obtiens pour une colonne 7A et avoir la dernière colonne 7C

voici l'exemple

Bonsoir kinfadhel,

Je me demande bien à quoi cela peut te servir :

Option Explicit
Option Base 1

Sub Combinaisons()
   Dim l As Long, c As Long, i1 As Byte, i2 As Byte, i3 As Byte, i4 As Byte, i5 As Byte, i6 As Byte, i7 As Byte, aTable As Variant
   aTable = Array("A", "B", "C")
   c = 2
   For i1 = 1 To 3
      For i2 = 1 To 3
         For i3 = 1 To 3
            For i4 = 1 To 3
               For i5 = 1 To 3
                  For i6 = 1 To 3
                     For i7 = 1 To 3
                        Cells(2, c) = aTable(i1)
                        Cells(3, c) = aTable(i2)
                        Cells(4, c) = aTable(i3)
                        Cells(5, c) = aTable(i4)
                        Cells(6, c) = aTable(i5)
                        Cells(7, c) = aTable(i6)
                        Cells(8, c) = aTable(i7)
                        c = c + 1
                     Next i7
                  Next i6
               Next i5
            Next i4
         Next i3
      Next i2
   Next i1
End Sub

Et le fichier :

Bonjour,

Merci Benead.