combinaison de deux ensembles

Version imprimable

18/03/2014, 08h25
Bervando

combinaison de deux ensembles

Bonjour et merci de considérer ma question

Soit deux ensembles :
Ensemble A contient [a, b, c, d]
Ensemble B contient [1, 2, 3]

Le nombre d'élément de chaque ensemble peut varier

Je souhaite exprimer (dans un debug.print par exemple, j'adapterai)
Toutes les combinaisons possibles des éléments de ces ensembles (A se combinant avec B)

Exemple:
a1 b1 c1 d1
a2, b1, c1, d1
a1, b2, etc...

Je vous remercie infiniment!!!!!

Bervando
02/04/2014, 11h19
defluc

1 pièce(s) jointe(s)

Bonjour,

Comme souhaité, j'ai considéré la question.
C'est moins simple qu'il n'y parait.

Le fichier joint te donnera peut-être une piste en exécutant la macro "Combine".

Bonne adaptation

Bonjour,

simple p'tite procédure affichant dans la feuille active les combinaisons :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub CombinArray(EA, EB)
    If Not IsArray(EA) Or Not IsArray(EB) Then Beep: End
    LA& = LBound(EA):  UA& = UBound(EA):  CA = UA - LA + 1:  If CA < 2 Then Beep: End
    LB& = LBound(EB):  UB& = UBound(EB):  ActiveSheet.UsedRange.Clear
    ReDim NA&(LA To UA):  ReDim RC$(1 To (UB - LB + 1) ^ CA, LA To UA)
        For C& = LA To UA - 1:  NA(C) = LB:  Next
    Do
        For NA(UA) = LB To UB
                                  R& = R& + 1
            For C = LA To UA:  RC(R, C) = EA(C) & EB(NA(C)):  Next
        Next
             If R = UBound(RC) Then Exit Do
             NA(UA - 1) = NA(UA - 1) + 1
        For C = UA - 1 To LA + 1 Step -1
            If NA(C) > UB Then NA(C) = LB: NA(C - 1) = NA(C - 1) + 1
        Next
    Loop
            [A1].Resize(R, CA).Value = RC
End Sub
 
Sub DemoIndice0()
    CombinArray Split("a b c d"), Split("1 2 3")
End Sub
 
Sub DemoIndice1()
    CombinArray [{"a", "b", "c", "d"}], [{"1", "2", "3"}]
End Sub

_______________:yaisse1: ____________________________________:yaisse1: ______________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …