Creer un tableau de combinaison

[sharkantipav]

Bonjour le forum

j'ai une colonne de valeurs A B C D E F G
J'aimerai avoir le tableau des colonne de combinaison entres les differents valeurs sans repetition
AB AC AD AE AF AG puis BC BD etccccc
Je n'arrive pas a demarrer la macro ... Si quelqu'un pourrait m'aider a l'ecrire (fichier attache)
Merci beaucoup

 

[Dugenou]

Bonjour,
Pou le fun : un essai "à la dugenou" par formule en pj
Nul doute qu'on te proposera mieux

 

[sharkantipav]

Merci beaucoup ca marche
javasi une solution de ce style, mais j'ai besoin que ca soit fait en VBA car cela va s'integrer dans un plus gros code, mais merci bcp qd mm

 

[pierrejean]

Bonjour sharkantipav
Salut Dugenou

 

[sharkantipav]

Merci beaucoup Pierrejean, tu es un champion
Question: Admettons que je veux un 3eme rang (apres 0,1,2)
Je dois bien entendu respecifier les tableau de depart
Mais apres je devrais avoir ca ?

       tabres(1, UBound(tabres, 2)) = tablo(n, 1)
       tabres(2, UBound(tabres, 2)) = tablo(n, 2)
       tabres(3, UBound(tabres, 2)) = tablo(n, 3)
        tabres(4, UBound(tabres, 2)) = tablo1(m, 1)

Merci encore

 

[JCGL]

Bonjour à tous,
Salut PJ,

Peut-être avec ceci :

Sub Test()
    Tablo = Range("A2:B5")
    Tablo1 = Range("A8:A14")
    ReDim Tabres(1 To 4, 0)
    For n = LBound(Tablo, 1) To UBound(Tablo, 1)
        For m = n + 1 To UBound(Tablo1, 1)
            Tabres(1, UBound(Tabres, 2)) = Tablo(n, 1)
            Tabres(2, UBound(Tabres, 2)) = Tablo(n, 2)
            Tabres(3, UBound(Tabres, 2)) = Tablo1(m, 1)
            Tabres(4, UBound(Tabres, 2)) = Tablo1(m, 1)
            ReDim Preserve Tabres(1 To 4, UBound(Tabres, 2) + 1)
        Next
    Next
    Range("E4").Resize(UBound(Tabres, 2), 3) = Application.Transpose(Tabres)
End Sub

A+ à tous

 

[pierrejean]

Re
Non il suffit de spécifier tablo
Salut JC

 

[sharkantipav]

parfait !!

Merci bcp les amis