Open office calc combinaisons
dfdfdfdf
-
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention -
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention -
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
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
-
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
-
C'est plus compliqué
Je vais essayer de regarder cela à temps perdu
-
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 588
bonjour, quel genre de résultat attends-tu?-
-
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
- 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
-
-
-
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
-
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
Re
Remplace la macro par celle-ciSub 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
-
-
-
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
-
-
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
