Afficher des combinaisons de chiffres

Version imprimable

06/09/2015, 17h13
sefora

Afficher des combinaisons de chiffres

Bonjour,

je souhaiterais savoir comment on fait pour afficher sous Excel la liste des combinaisons de 5 chiffres parmi 8 nombres

j'ai 8 nombres : 1 2 3 4 5 6 7 8

je peux choisir que 5 à la fois

pour les calculs je sais déjà , c'est avec la formule combin

mais je souhaite juste que Excel affiche la liste de toutes ces combinaisons

merci
07/09/2015, 00h04
kiki29

Salut, voir ici : Générer une série de nombres entiers aléatoires sans doublons
08/09/2015, 00h20
sefora

Citation:

Envoyé par kiki29

Salut, voir ici : Générer une série de nombres entiers aléatoires sans doublons

merci mais j 'ai pas trouvé

je souhaiterais qu'il affiche les 51 combinaisons on prenant 5 chiffres a chaque fois parmi les 8

ex : 1 2 3 4 5
1 2 3 7 8
4 5 6 1 8
08/09/2015, 09h01
Menhir

Il n'y a pas de fonctions Excel qui pourrait faire ça.
La seule solution est de passer par une macro en VBA.
09/09/2015, 15h02
sefora

Citation:

Envoyé par Menhir

Il n'y a pas de fonctions Excel qui pourrait faire ça.
La seule solution est de passer par une macro en VBA.

ok et quel serait le script pour la macro svp ?

merci
09/09/2015, 15h46
Menhir

Citation:

Envoyé par sefora

quel serait le script pour la macro svp ?

Ce forum as pour vocation d'échanger des informations, pas de faire le travail des autres à leur place.

Citation:

Envoyé par sefora

je souhaiterais qu'il affiche les 51 combinaisons on prenant 5 chiffres a chaque fois parmi les 8

Il y a une chose qui m'étonne.
Choisir 5 valeurs parmi 8, si l'ordre a de l'importance, ça fait 6720 combinaisons, si l'ordre n'a pas d'importance, ça fait 56 combinaisons.
Comment arrives-tu à ce chiffre de 51 ?
10/09/2015, 20h04
papouclo

1 pièce(s) jointe(s)

Bonjour,
51 combinaisons ! Menhir a raison, il en manque.
J'ai hésité avant de ne pas être d'accord sur une autre réponse.

Citation:

Il n'y a pas de fonctions Excel qui pourrait faire ça.
La seule solution est de passer par une macro en VBA.

Voici un classeur permettant d'écrire les combinaisons obtenue avec n éléments (n <= 15) pris p à p sans code VBA bien que le classeur soit compressé (à cause de la lourdeur : plus de 96000 formules sur 6450 lignes).
Il faut reconnaître que les formules sont assez indigestes malgré l'astuce de définir un nom court (test) pour une partie de la formule.
Malgré sa lourdeur déjà signalée, le fichier donne les 6435 combinaisons de 15 éléments pris 8 à 8 (ou 7 à 7) en environ 2 secondes.
Dernière remarque : On peut soit désirer traiter le problème de façon générale ou avoir besoin des 56 combinaisons pour 8 nombres pris 5 par 5.
Dans le second cas, c'est une perte de temps de ne pas les écrire "manuellement" sur Excel et de se lancer dans l'écriture d'un script VBA ou la recherche de formules alambiquées.
Cordialement
Claude
11/09/2015, 09h57
Igloobel

Bonjour à tous

Bravo papouclopour ton classeur ! :bravo:

je :plusser:

bonne journée
11/09/2015, 10h53
sefora

Citation:

Envoyé par Menhir

Ce forum as pour vocation d'échanger des informations, pas de faire le travail des autres à leur place.

Il y a une chose qui m'étonne.
Choisir 5 valeurs parmi 8, si l'ordre a de l'importance, ça fait 6720 combinaisons, si l'ordre n'a pas d'importance, ça fait 56 combinaisons.
Comment arrives-tu à ce chiffre de 51 ?

oui c 'est bien 56 désolée c 'est une erreur de frappe , j ai juste écrit la fonction combin sur excel qui a fait le calcul

j 'ai juste quelque notions notion en vba, j ai appris comment lancer une macro ya pas longtemps

quand je fais une tache je l enregistre ensuite je visionne le code dans le module et donc je peux le modifier pour l adapter

après quelques recherches j ai trouvé ce code que j ai modifié et ca affiche les 56 combinaisons sur une seule colonne

Sub combinaisons()
lin = 1
col = 1
For m = 1 To 8
For n = m + 1 To 8
For o = n + 1 To 8
For p = o + 1 To 8
For q = p + 1 To 8
Cells(lin, col) = m & " " & n & " " & " " & o & " " & p & " " & q
lin = lin + 1
If lin > 65536 Then
col = col + 1
lin = 1
End If
Next q
Next p
Next o
Next n
Next m
End Sub

merci
11/09/2015, 11h00
sefora

Citation:

Envoyé par papouclo

Bonjour,
51 combinaisons ! Menhir a raison, il en manque.
J'ai hésité avant de ne pas être d'accord sur une autre réponse.

Voici un classeur permettant d'écrire les combinaisons obtenue avec n éléments (n <= 15) pris p à p sans code VBA bien que le classeur soit compressé (à cause de la lourdeur : plus de 96000 formules sur 6450 lignes).
Il faut reconnaître que les formules sont assez indigestes malgré l'astuce de définir un nom court (test) pour une partie de la formule.
Malgré sa lourdeur déjà signalée, le fichier donne les 6435 combinaisons de 15 éléments pris 8 à 8 (ou 7 à 7) en environ 2 secondes.
Dernière remarque : On peut soit désirer traiter le problème de façon générale ou avoir besoin des 56 combinaisons pour 8 nombres pris 5 par 5.
Dans le second cas, c'est une perte de temps de ne pas les écrire "manuellement" sur Excel et de se lancer dans l'écriture d'un script VBA ou la recherche de formules alambiquées.
Cordialement
Claude

merci beaucoup, il est est très bien ton tableau , moi j avais un code qui affiché les combinaisons sur une seule colonne
11/09/2015, 11h02
Menhir
Je te conseille d'essayer de comprendre le code que tu utilises. L'aide VBA intégrée à Excel est vraiment très pratique (quand on a compris comment l'utiliser) pour progresser dans la création de macro.

Ce code ne te donnera pas 56 combinaisons mais 6720 puisqu'il présente des listes ordonnées (dans lequel l'ordre à une importance).

Si tu veux que ça s'affiche sur plusieurs colonnes, change la ligne

Code:

Cells(lin, col) = m & " " & n & " " & " " & o & " " & p & " " & q

par les lignes
Code:

1 2 3 4 5 Cells(lin, col) = m Cells(lin, col+1) = n Cells(lin, col+2) = o Cells(lin, col+3) = p Cells(lin, col+4) = q
Conseils plus généraux :
- Déclare tes variables (voir l'instruction Dim)
- Fais des itérations sur tes boucles, ton code sera plus clair.

Un dernier conseil : comme le dis papouclo, tu perdras certainement bien moins de temps à établir une liste des 56 combinaisons à la main que d'essayer de le faire en automatique.
11/09/2015, 16h31
sefora
Citation:
Envoyé par Menhir

Je te conseille d'essayer de comprendre le code que tu utilises. L'aide VBA intégrée à Excel est vraiment très pratique (quand on a compris comment l'utiliser) pour progresser dans la création de macro.

Ce code ne te donnera pas 56 combinaisons mais 6720 puisqu'il présente des listes ordonnées (dans lequel l'ordre à une importance).

Si tu veux que ça s'affiche sur plusieurs colonnes, change la ligne

Code:

Cells(lin, col) = m & " " & n & " " & " " & o & " " & p & " " & q

par les lignes

Code:

1 2 3 4 5 Cells(lin, col) = m Cells(lin, col+1) = n Cells(lin, col+2) = o Cells(lin, col+3) = p Cells(lin, col+4) = q

Conseils plus généraux :
- Déclare tes variables (voir l'instruction Dim)
- Fais des itérations sur tes boucles, ton code sera plus clair.

Un dernier conseil : comme le dis papouclo, tu perdras certainement bien moins de temps à établir une liste des 56 combinaisons à la main que d'essayer de le faire en automatique.
ok merci j ai compris maintenant comment afficher sur 4 colonnes

par contre mon code affiche bien 56 combinaisons et non 6720
12/09/2015, 08h57
papouclo

Bonjour,

Citation:

Choisir 5 valeurs parmi 8, si l'ordre a de l'importance, ça fait 6720 combinaisons, si l'ordre n'a pas d'importance, ça fait 56 combinaisons.

6720 c'est quand l'ordre a de l'importance : dans les 6720 arrangements (je préfère ce terme pour éviter les confusions), on aura :
12345 mais aussi 23451 ou encore 12354 ...
Cordialement
Claude