XL pour MAC Puissance 14 Combinaisons

alexandre_gbln

XLDnaute Nouveau
Bonjour à tous,

Je cherche à réaliser un programme sur VBA capable de m'écrire les 2 puissances 14 combinaisons (8192) possibles des lettres suivantes en ne retenant uniquement les combinaisons de 2 lettres.

Les lettres sont : A,E,I,O,U,R,S,T,N,L,P,M,B,X
Est-ce que quelqu'un pourrait m'aider ?

Merci d'avance.
 
Dernière édition:

patricktoulon

XLDnaute Barbatruc
re
bonjour a tous ceux que je n'ai pas eu today
VB:
Sub onlycomb()
    t = Split("A,E,I,O,U,R,S,T,N,L,P,M,B,X", ",")
    x = 0
    For i1 = 0 To UBound(t)
        For i2 = i1 + 1 To UBound(t)
            If t(i1) <> t(i2) Then
                x = x + 1
                Cells(x, 1) = t(i1) & t(i2)
            End If
        Next
    Next

End Sub

Sub combiviceversa()'permute
    t = Split("A,E,I,O,U,R,S,T,N,L,P,M,B,X", ",")
    x = 0
    For i1 = 0 To UBound(t)
        For i2 = 0 To UBound(t)
            If t(i1) <> t(i2) Then
                x = x + 1
                Cells(x, 1) = t(i1) & t(i2)
            End If
        Next
    Next

End Sub

Sub howmanycomb()
 t = Split("A,E,I,O,U,R,S,T,N,L,P,M,B,X", ",")
   MsgBox (UBound(t) + 1) * UBound(t)
End Sub
 

patricktoulon

XLDnaute Barbatruc
re

tu a 14 lettres
tu veux les combi de 2 c'est 14*(14-1) combinaison possibles
tu veux les combi de 3 c'est 14*(14-1) *(14-2)combinaison possibles
et tu fait ça tout simplement dans autant de boucles imbriqué de de caractère dans les combi désirée
a chaque sub last boucle teste de itération B1 <>t B2 <>b3
 

patricktoulon

XLDnaute Barbatruc
Tout d'abord, merci à tous pour vos réponses !

Pour vous donner plus d'infos sur le raisonnement initial je suis parti sur 2 lettres :

Pour A et B :

AA
AB
BA
et
BB
---> 4 résultats

Pour A,B,C

AA
AB
BA
BB
AC
CA
BC
CB
CC
--> 9 résultats

Etc...
heu la combi d'un même élément ne peux pas être considérée comme un combinaison
rattrape tes chaussures vite elle courent devant toi ;) :D ;)
 

Discussions similaires

Réponses
7
Affichages
318

Membres actuellement en ligne

Statistiques des forums

Discussions
312 177
Messages
2 085 972
Membres
103 073
dernier inscrit
MSCHOE16