Veuillez noter que ma question est différente de la copie suggérée . La copie suggérée ne montre pas toutes les variations possibles en fonction du nombre d'options. Par conséquent, une entrée de 3 peut avoir une variation de 1, 2 et 3 des entrées. La copie suggérée fournit toujours 3 entrées par variation.

De plus, ma question demande également des variantes pour montrer toutes les commandes possibles des entrées. La copie suggérée affiche toujours la colonne A à l'extrême gauche de la sortie, la colonne b au milieu de la sortie et la colonne c à gauche de la sortie.

Par conséquent, le duplicata suggéré ne répond pas à ma question.

Question originale

Comment puis-je créer une formule qui prend un nombre quelconque de valeurs d'entrée données, puis génère une valeur de sortie avec toutes les combinaisons possibles permutations en fonction des valeurs d'entrée données.

Par exemple, si les valeurs d'entrée sont les suivantes

One
Two

La sortie générée devrait ressembler à ceci

One
OneTwo
Two
TwoOne

Voici à quoi cela devrait ressembler si 3 valeurs sont données:

Est-ce que quelqu'un sait comment faire cela dans Excel?

J'aimerais pouvoir saisir un nombre quelconque de valeurs d'entrée, qui seront un mot, une phrase, un nombre, des lettres ou une combinaison de toutes ces permutations.

J'ai donné cette possibilité d' essayer https://www.ozgrid.com/forum/forum/help-forums/excel-vba-macros/146983-all-possible-combinaisons-de-single-colonne mais cela ne semble pas fonctionner .

Dans la colonne A, si je tape (un mot par ligne):

One
Two
Three

Dans la colonne B, la VBA me donne (dans une seule cellule):

one,two,three

Cela ne me donne pas toutes les combinaisons possibles , mais change simplement ce que j'ai tapé verticalement dans une colonne et affiche les résultats horizontalement.

Le script VBA suivant a créé pour moi cette feuille de calcul:

Voici le script:

Option Explicit

Sub PermutationsN()
Dim vElements As Variant, vresult As Variant
Dim lRow As Long, i As Long

vElements = Application.Transpose(Range("A1", Range("A1").End(xlDown)))
Columns("B:Z").Clear

For i = 1 To UBound(vElements)
    ReDim vresult(1 To i)
    Call PermutationsNPR(vElements, i, vresult, lRow, 1)
Next i
End Sub

Sub PermutationsNPR(vElements As Variant, p As Long, vresult As Variant, lRow As Long, iIndex As Integer)
Dim i As Long, unique As Variant

For i = 1 To UBound(vElements)
    vresult(iIndex) = vElements(i)
    If iIndex = p Then
        unique = UniqueArray(vresult)
        If (UBound(vresult) = UBound(unique)) Then
            lRow = lRow + 1
            Cells(lRow, 3).Value = Join(unique)
        End If
    Else
        Call PermutationsNPR(vElements, p, vresult, lRow, iIndex + 1)
    End If
Next i
End Sub


Function UniqueArray(todoarray As Variant) As Variant
  Dim arr As New Collection, a
  Dim i As Long
  On Error Resume Next
  For Each a In todoarray
     arr.Add a, a
  Next
  ReDim returnVal(1 To arr.count)
  For i = 1 To arr.count
     returnVal(i) = arr(i)
  Next
  UniqueArray = returnVal
End Function

La macro fonctionnera pour n’importe quel nombre d’éléments de la colonne A, dans les limites définies par Excel.

considérons cet exemple Données de colonne A: - Nombres (en-tête) un deux trois quatre cinq données de colonne B: - OutPut (en-tête)

coller cette formule dans B2: -

=IFERROR(IF(INDEX(OFFSET($A$1,1,0,COUNTA($A$2:$A$20)),ROUNDUP(ROWS($A$1:A1)/COUNTA($A$2:$A$20),))=INDEX(OFFSET($A$1,1,0,COUNTA($A$2:$A$20)),MOD(ROWS($A$1:A1)-1,COUNTA($A$2:$A$20))+1),INDEX(OFFSET($A$1,1,0,COUNTA($A$2:$A$20)),ROUNDUP(ROWS($A$1:A1)/COUNTA($A$2:$A$20),)),INDEX(OFFSET($A$1,1,0,COUNTA($A$2:$A$20)),ROUNDUP(ROWS($A$1:A1)/COUNTA($A$2:$A$20),))&INDEX(OFFSET($A$1,1,0,COUNTA($A$2:$A$20)),MOD(ROWS($A$1:A1)-1,COUNTA($A$2:$A$20))+1)),"")

cette fonction fonctionne dans la colonne "Nombres" contenant des données allant jusqu’à A20.