Comment trouver toutes les combinaisons de 2 tableaux de valeurs?

Question

Bonjour &#224; tous,
Je dispose de 2 tableaux de string, par exemple:
{"A","B","C"} et {"1","2"} et je voudrais &#233;crire une fonction qui me permette de trouver les combinaisons possible, CAD: "A1", "A2", "B1", "B2", "C1", "C2"
Je sais faire cela en imbriquant des boucles, mais je ne sais pas faire quand il s'agit d'entrer en parametres le nombre de tableaux, car je voudrais que cela soit possible avec un nombre ind&#233;termin&#233;.
J'ai bien essay&#233; en cr&#233;ant un "tableau de tableaux de string" avec une fonction r&#233;cursive... mais en vain. Je ne suis d&#233;cid&#233;ment pas tr&#232;s dou&#233;...
Etant debutant en programmation, je pense que je n'ai pas les bases d'algorithme...
Si quelqu'un pouvait &#233;clairer ma lanterne...
Merci d'avance &#224; tous!

cs_MasterHack · Answer

salut, voici un code à tester : tu mets un bouton et une list sur ta form puis colle ce code (a analyser) Private Sub Command1_Click() alpha = Array("A", "B", "C", "D") num = Array("1", "2", "3") For i = LBound(alpha) To UBound(alpha) For j = LBound(num) To UBound(num) List1.AddItem alpha(i) & num(j) Next Next End Sub

Life is short...Learn more Copy Rights <> Rights to Copy

tommy5 · Answer

Merci pour la r&#233;ponse! La solution que tu proposes est effectivement
celle que j'avais retenue au d&#233;part, mais comment &#233;tendre &#231;a &#224; un plus
grand nombre d'"arrays" sachant qu'il peut changer?

En reprenant ton exemple: Au lieu d'avoir:

alpha = Array("A", "B", "C", "D")

num = Array("1", "2", "3")

J'aurais:

alpha(0) =  Array("A", "B", "C", "D")

alpha(1) = Array("1", "2", "3")

...

alpha(x) = Array("do", "re", "mi", "fa")

etc, etc....

Je ne connais pas x, je ne peux donc pas d&#233;cider &#224; l'avance du nombre de boucles...

tommy5 · Answer

J'aurais en effet du etre plus pr&#233;cis dans mon sujet, toutes mes excuses...

cs_MasterHack · Answer

re, en cas generale pour trouver le x utilise la fonction: x=ubound(alpha) de toute façon tu ne peux pas eviter de dimentionner le tableau alpha au debut dim alpha (taille)

Life is short...Learn more Copy Rights <> Rights to Copy

Gobillot · Answer

Salut,

r&#233;sultat dans une ListBox

lancement par un bouton







Dim alpha(3) As Variant



Private Sub Form_Load()

    alpha(0) = Array("A", "B", "C", "D")

    alpha(1) = Array("1", "2", "3")

    alpha(2) = Array("X", "Y", "Z")

    alpha(3) = Array("do", "re", "mi", "fa")

End Sub



Private Sub Command1_Click()

    Dim T() As Integer

    Dim x   As Integer

    Dim Cx  As Integer

    Dim n   As Integer

    Dim i   As Integer

    Dim j   As Integer

    Dim z   As Long

    Dim s   As String



    x = UBound(alpha)

    Cx = UBound(alpha(x))

    ReDim T(Cx)



    Do

        T(n) = i

        For i = n + 1 To x - 1

            T(i) = 0

            Next

        DoEvents

        For i = 0 To Cx

            s = ""

            For j = 0 To x - 1

                s = s & alpha(j)(T(j))

                Next

            List1.AddItem s & alpha(j)(i)

            z = z + 1

            Next

        For n = x - 1 To 0 Step -1

            i = T(n) + 1

            If i <= UBound(alpha(n)) Then Exit For

            Next

        Loop Until n < 0

        

    Me.Caption "nombre " & z



End Sub


Daniel

tommy5 · Answer

Merci beaucoup Gobillot, c'est exactement ce que je cherchais &#224; faire... Je vais &#233;tudier &#231;a de pr&#232;s...

Comment trouver toutes les combinaisons de 2 tableaux de valeurs?

6 réponses

Discussions similaires