XL pour MAC Puissance 14 Combinaisons

[alexandre_gbln]

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.

 

[jmfmarques]

Bonjour
Quel calcul as-tu fait pour déterminer que les combinaisons possibles de 2 éléments parmi 14 sont au nombre de 8192 ?

A moins que ce que tu appelles "combinaisons" ne soit autre chose, mais alors : quoi ?

 

[Pounet95]

Bonsoir,
Pour moi ça ne feraient que 91 combinaisons ?

 

[Pounet95]

Re,
Mais peut-être je me trompe ?

11

Sub duos()
    Dim i As Integer
    Dim j As Integer
    
    For i = 1 To 13
        For j = i + 1 To 14
            Cells(i + 7, j + 4) = Cells(i + 7, 3) & "-" & Cells(j + 7, 3)
        Next j
    Next i

End Sub[
/CODE]

 

[jmfmarques]

Bonjour Pounet95
Tout-à-fait (91 sans arrangements et 182 avec arrangements)
Donc en aucun cas 8192.

 

[sylvanu]

Bonjour Alexandre, Jmfmarques, Pounet,
En PJ un essai.
J'ai considéré que AE et EA étaient deux solutions.

 

[Staple1600]

Bonjour le fil, alexandre, Pounet95, jmfmarques, sylvanu

Sans Mac, sans Excel, juste avec mes doigts 😉

Spoiler

Nine Eleven ;-)]
A,E
A,I
A,O
A,U
A,R
A,S
A,T
A,N
A,L
A,P
A,M
A,B
A,X
E,I
E,O
E,U
E,R
E,S
E,T
E,N
E,L
E,P
E,M
E,B
E,X
I,O
I,U
I,R
I,S
I,T
I,N
I,L
I,P
I,M
I,B
I,X
O,U
O,R
O,S
O,T
O,N
O,L
O,P
O,M
O,B
O,X
U,R
U,S
U,T
U,N
U,L
U,P
U,M
U,B
U,X
R,S
R,T
R,N
R,L
R,P
R,M
R,B
R,X
S,T
S,N
S,L
S,P
S,M
S,B
S,X
T,N
T,L
T,P
T,M
T,B
T,X
N,L
N,P
N,M
N,B
N,X
L,P
L,M
L,B
L,X
P,M
P,B
P,X
M,B
M,X
B,X

 

[Staple1600]

Re

Excel dit :105
=COMBINA(14;2)
Et disait bien 91
=COMBIN(14;2)

 

[sylvanu]

Re,
Sans infos supplémentaires, AE et EA sont deux combinaisons distinctes, donc 182 combinaisons. 😉
Comme en informatique 01 et 10 ne peuvent être confondues.

 

[jmfmarques]

(91 sans arrangements et 182 avec arrangements)

 

[Staple1600]

Re

Excel dit aussi 182
=PERMUTATION(14;2)

Alors ici, on est dans la combine ou chez le Père Muth ?
😉

 

[jmfmarques]

Bon ... a lire --->> et à adopter (question vocabulaire, ce qui permet d'être tous au diapason ) :

factorielle, arrangement, permutation, combinaison

arithmétique amusante - factorielles et combinaisons, sous-factorielles,primorielles

villemin.gerard.free.fr

 

[Pounet95]

Re,
D'un coup je reviens 50 ans en arrière quand j'étais en Terminale E à l'époque.
C c'était pour les balèzes !!!!
Pour le fun j'ai été voir Wikipedia. Je n'ai plus rien compris et j'ai refermé illico presto. Ce n'est plus de mon âge, comme bien d'autres choses hélas ou tant mieux 🙂

 

[sylvanu]

Re,
Laissons le choix à Alexandre,
En PJ avec et sans arrangements.

 

[Staple1600]

Re

[aparté]

Sub ExcelParleMalLesMaths()
X = 14
Y = 2
mess = "PERMUTATION=" & vbTab & Evaluate("PERMUT(" & X & "," & Y & ")") & vbCr
mess = mess & "PERMUTATIONA=" & vbTab & Evaluate("PERMUTATIONA(" & X & "," & Y & ")") & vbCr
mess = mess & "COMBIN=" & vbTab & Evaluate("COMBIN(" & X & "," & Y & ")") & vbCr
mess = mess & "COMBINA=" & vbTab & Evaluate("COMBINA(" & X & "," & Y & ")")
MsgBox mess, vbExclamation, Y & " parmi " & X
End Sub

[/aparté]