Discussion :

[Bervando]

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

[defluc]

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

[Marc-L]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

_______________ ____________________________________ ______________________________

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