Open office calc combinaisons

Signaler
-
Messages postés
12660
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
18 octobre 2020
-
Bonjour,

j'aimerai generer toutes les combinaisons de 5 chiffres parmis 50 sur excel pourriez vous m'aider
je ne m'y connais pas du tout et je ne sais pas faire de macro ni l'executer
merci

6 réponses

Messages postés
12776
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
18 octobre 2020
2 043
Bonjour

Voilà
https://mon-partage.fr/f/UzoSeFy1/
Évidemment plus la liste de nombres en col A est longue plus la macro met du temps à se réaliser

Cdlmnt
Via

merci beaucoup toutefois je ne parviens pas à executer la macro pourriez vous verifier que cela marche bien? merci par avance

et waw beau programme
Messages postés
12660
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
18 octobre 2020
703
bonjour, j'ai l'impression que le code ne retourne qu'une partie des solutions, celles où les nombres (a, b, c, d, e) sont ordonnés suivant la liste.
Messages postés
12776
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
18 octobre 2020
2 043
C'est plus compliqué
Je vais essayer de regarder cela à temps perdu
Messages postés
6
Date d'inscription
mercredi 6 novembre 2019
Statut
Membre
Dernière intervention
8 novembre 2019

Je vous en serait très reconnaissant de m'aider à faire les petites modifications dont je viens de vous parler


Vraiment merci Via55
Messages postés
6
Date d'inscription
mercredi 6 novembre 2019
Statut
Membre
Dernière intervention
8 novembre 2019

oubliez ma demande de modification je souhaite juste faire fonctionner le programme mais il ne marche pas !
Messages postés
12660
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
18 octobre 2020
703 >
Messages postés
6
Date d'inscription
mercredi 6 novembre 2019
Statut
Membre
Dernière intervention
8 novembre 2019

il m'a suffit d'ouvrir le fichier avec Excel, puis de faire ctl-t.
Messages postés
6
Date d'inscription
mercredi 6 novembre 2019
Statut
Membre
Dernière intervention
8 novembre 2019

je n'ai pas excel mais open office calc
Messages postés
12660
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
18 octobre 2020
703 >
Messages postés
6
Date d'inscription
mercredi 6 novembre 2019
Statut
Membre
Dernière intervention
8 novembre 2019

dommage que tu aies écrit "excel" dans le titre et dans le texte de ta question.
Messages postés
12660
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
18 octobre 2020
703
bonjour, quel genre de résultat attends-tu?
j'aimerais obtenir une combinaison de 5 chiffres parmis 50 ordonné par ligne et sans repetition
ex
1 2 3 4 5
5 50 4 12 9
...

Cela fait plus de 2 millions de possibilités de combinaisons mais je ne sais pas comment les obtenir sur excel je ne m'y connais pas du tout
Si quelqu'un parvient à realiser un programme facilement executable ce serait cool même si j'y crois pas trop etant donne la difficulte de la tache
Messages postés
12660
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
18 octobre 2020
703 > dfdfdfdf
exemple:
Private Sub kombi()
Dim f As Worksheet, nlig As Long, i1 As Integer, i2 As Integer, i3 As Integer, i4 As Integer, i5 As Integer

Set f = ThisWorkbook.Sheets("combi")
nlig = 1
For i1 = 1 To 50
    For i2 = 50 To i1 + 1 Step -1
        For i3 = i2 + 1 To 50
            For i4 = 50 To i3 + 1 Step -1
                For i5 = i4 + 1 To 50
                    f.Cells(nlig, 1) = i1
                    f.Cells(nlig, 2) = i2
                    f.Cells(nlig, 3) = i3
                    f.Cells(nlig, 4) = i4
                    f.Cells(nlig, 5) = i5
                    nlig = nlig + 1
                Next i5
            Next i4
        Next i3
    Next i2
Next i1
End Sub
merci mais a partir de ce code qu'est ce que je dois faire pour obtenir mes combinaisons
je ne m'y connais pas du tout
Messages postés
12776
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
18 octobre 2020
2 043
Bonjour

Voilà :
https://mon-partage.fr/f/3RHZ5m9V/
Les résultats sont sur 3 colonnes vu le nombre qui dépasse le nombre de cellules en hauteur d'Excel

Cdlmnt
Via
Messages postés
12660
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
18 octobre 2020
703 > dfdfdfdf
pourquoi fais-tu cet exercice?
je souhaite etablir ce programme dans le but de l'adapter a des lancers pour une etude que je fais
toutefois je prefererai obtenir un nombre par cellule et non pas un tirage par cellule pourriez vous modifier votre programme via 55 de sorte a ce que chaque cellule comporte un nombre
Cordialement
je ne sas pas si ma demande est clair .. en gros j'aimerai faire la même chose que via55 a fait mais pour une combinaison j'aimerai avoir chacun des chiffre de la combinaison dans des colonnes différentes
savez vous comment faire ?
Messages postés
12776
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
18 octobre 2020
2 043
Re

Remplace la macro par celle-ci
Sub combi()
y = 1
For a = 1 To 46
For b = a + 1 To 47
For c = b + 1 To 48
For d = c + 1 To 49
For e = d + 1 To 50
x = x + 1
If x > 1000000 Then x = 1: y = y + 7
Cells(x, y) = a
Cells(x, y + 1) = b
Cells(x, y + 2) = c
Cells(x, y + 3) = d
Cells(x, y + 4) = e
Next
Next
Next
Next
Next
End Sub


Depuis une autre feuille lance la macro depuis le ruban Developpeur - Macros - combi - Exécuter
et patiente : la macro met plusieurs minutes à s'exécuter vu le nombre d'écritures à faire
pourriez vous le faire ? un message d'erreur apparait lorsque j'essaye de le faire
Cordialemnt
ah non c'est bon merci bcp

Bonjour pourriez vous m'aider à présent à réaliser un programme pratiquement similaire mais avec des contraintes:

1) Je veux donner une liste de nombre

2) faire une combinaison de 5 chiffres à partir de ceux que j'aurais lister
-Pas de répétition du même chiffre dans une combinaison
en générerant uniquement des combinaisons dont la somme des 5 chiffres soit comprise entre 130 et 160
Et que ces combinaisons aient un écart entre chaque chiffre que j'aurais déterminer par exemple on a donc une combinaison a b c d e je veux que a+b+c+d+e = [130;160] et que b-a =[5;10] , c-a=[12-14], d-a..,e-a.., ect


merci par avance pour le temps que vous pourrez y accorder et j'imagine que ce sera plutot long

Cordialement
Messages postés
12776
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
18 octobre 2020
2 043
Bonjour

Oui la macro fonctionne mais selon les nombres et les conditions de mini et de maxi rentrés il peut n'y avoir aucune solution
Donc que veux tu dire par je ne parviens pas à executer la macro, : tu n'arrives pas à la lancer ou rien ne sort ?

Il est normal que les solutions soient ordonnées selon les nombres de la liste puisque la macro les lit dans l'ordre pour qu'aucun ne soit oublié, qu'un même nombre ne soit pas pris en compte 2 fois dans la même solution et que toutes les combinaisons soient envisagées, donc je ne vois pas pourquoi seule ne partie des solutions seraient retournée
Messages postés
12660
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
18 octobre 2020
703
par "écart entre chaque chiffre", j'avais compris la valeur absolue de la différence.

rien ne sort

en gros ce programme est vraiment parfait mais j'aimerai juste avoir des écarts en valeur absolue et pouvoir donner des listes de nombres différentes pour a, b, c, d et e

et qui puisse s'executer aussi svp

merci encore !!
Messages postés
6
Date d'inscription
mercredi 6 novembre 2019
Statut
Membre
Dernière intervention
8 novembre 2019

aussi j'aimerai pouvoir donner une liste des ecart possible par exeple
b-a peut valoir 3;4;6;9;12 etc