Bonjour,
Svp j'aimerais créer des combinaisons de p éléments dans n. Je m'explique avec les chiffres : une combinaison de 5 éléments dans les nombres 1 à 6
Exemple: 12345, 12543 etc
Comment procéder sur excel?
Merci d'avance.
Et j'attire ton attention sur le fait que ta question ne concerne pas précisément Excel, plutôt un exercice de mathématiques.
Rhys96
Auteur
On dirait que je ne me fait pas comprendre.
Au fait, je donnais un exemple sur ce que je voulais. Pour être plus précis je cherche un algorithme pouvant me créer des combinaisons comme celles précédentes.
via55
Bonjour
Avec une macro en VBA :
ALT+F11 pour ouvrir l'éditeur VBA puis Insertion - Module - copier et coller la macro suivante dans la page du module et fermer l'éditeur
Sub combi()
x = 1
For a = 1 To 6
For j = 1 To 6
If j <> a Then b = j
For k = 1 To 6
If k <> a And k <> b Then c = k
For l = 1 To 6
If l <> a And l <> b And l <> c Then d = l
For m = 1 To 6
If m <> a And m <> b And m <> c And m <> d Then nomb = a & b & c & d & m
If Len(nomb) = 5 And Application.WorksheetFunction.CountIf(Range("A1:A" & x), nomb) = 0 Then x = x + 1: Range("A" & x) = a & b & c & d & m
Next m
Next l
Next k
Next j
Next a
'tri
Columns("A:A").Select
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("A1"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Feuil1").Sort
.SetRange Range("A1:A7558")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
En A1 mettre la 1ere combinaison : 12345
Lancer la macro
Cdlmnt
Via
"L'imagination est plus importante que le savoir." A. Einstein
