Open office calc combinaisons

- - Dernière réponse : yg_be
Messages postés
8962
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
21 novembre 2019
- 8 nov. 2019 à 10:57
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
Afficher la suite 

6 réponses

Meilleure réponse
Messages postés
11377
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
21 novembre 2019
1518
1
Merci
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

Dire « Merci » 1

Heureux de vous avoir aidé ! Vous nous appréciez ? Donnez votre avis sur nous ! Evaluez CommentCaMarche

CCM 70378 internautes nous ont dit merci ce mois-ci

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

et waw beau programme
yg_be
Messages postés
8962
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
21 novembre 2019
461 -
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.
Commenter la réponse de via55
Messages postés
11377
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
21 novembre 2019
1518
1
Merci
C'est plus compliqué
Je vais essayer de regarder cela à temps perdu

Dire « Merci » 1

Heureux de vous avoir aidé ! Vous nous appréciez ? Donnez votre avis sur nous ! Evaluez CommentCaMarche

CCM 70378 internautes nous ont dit merci ce mois-ci

GrigoriPerelman
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
GrigoriPerelman
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 !
yg_be
Messages postés
8962
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
21 novembre 2019
461 > GrigoriPerelman
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.
GrigoriPerelman
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
yg_be
Messages postés
8962
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
21 novembre 2019
461 > GrigoriPerelman
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.
Commenter la réponse de via55
Messages postés
8962
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
21 novembre 2019
461
0
Merci
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
yg_be
Messages postés
8962
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
21 novembre 2019
461 > 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
Commenter la réponse de yg_be
Messages postés
11377
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
21 novembre 2019
1518
0
Merci
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
yg_be
Messages postés
8962
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
21 novembre 2019
461 > 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
Commenter la réponse de via55
Messages postés
11377
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
21 novembre 2019
1518
0
Merci
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
-
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
Commenter la réponse de via55
Messages postés
11377
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
21 novembre 2019
1518
0
Merci
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
yg_be
Messages postés
8962
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
21 novembre 2019
461 -
par "écart entre chaque chiffre", j'avais compris la valeur absolue de la différence.
-
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 !!
GrigoriPerelman
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
Commenter la réponse de via55