Excel - programmation VBA
GrigoriPerelman
-
GrigoriPerelman -
GrigoriPerelman -
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 :)
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 :)
1 réponse
-
C'est à rendre pour quand ?
-
-
-
For a = 1;2;3
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
En voici une parti mais ce programme ne me permet pas de mettre des contraintes (celles expliquées precedement)
Pourriez vous m'y aider ? Je ne sais pas du tout comment faire -
-
-
