XL pour MAC Puissance 14 Combinaisons

alexandre_gbln · 29 Mars 2020

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.

sylvanu · 29 Mars 2020

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

jmfmarques · 29 Mars 2020

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 · 29 Mars 2020

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

Pounet95 · 29 Mars 2020

Re,
Mais peut-être je me trompe ?

11

VB:

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 · 29 Mars 2020

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

sylvanu · 29 Mars 2020

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

Staple1600 · 29 Mars 2020

Bonjour le fil, alexandre, Pounet95, jmfmarques, sylvanu

Sans Mac, sans Excel, juste avec mes doigts

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 · 29 Mars 2020

Re

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

sylvanu · 29 Mars 2020

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 · 29 Mars 2020

jmfmarques à dit:
(91 sans arrangements et 182 avec arrangements)

Staple1600 · 29 Mars 2020

Re

Excel dit aussi 182
=PERMUTATION(14;2)

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

jmfmarques · 29 Mars 2020

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 · 29 Mars 2020

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 · 29 Mars 2020

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

Staple1600 · 29 Mars 2020

Re

[aparté]

VB:

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é]

XL pour MAC Puissance 14 Combinaisons

alexandre_gbln

XLDnaute Nouveau

sylvanu

jmfmarques

XLDnaute Accro

Pounet95

XLDnaute Occasionnel

Pounet95

XLDnaute Occasionnel

jmfmarques

XLDnaute Accro

sylvanu

XLDnaute Barbatruc

Pièces jointes

Staple1600

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

jmfmarques

XLDnaute Accro

Staple1600

XLDnaute Barbatruc

jmfmarques

XLDnaute Accro

factorielle, arrangement, permutation, combinaison

Pounet95

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

Pièces jointes

Staple1600

XLDnaute Barbatruc

Discussions similaires