Excel - programmation VBA

Fermé
GrigoriPerelman - 5 nov. 2019 à 13:56
 GrigoriPerelman - 5 nov. 2019 à 14:45
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 :)
A voir également:

1 réponse

irongege Messages postés 40847 Date d'inscription jeudi 1 novembre 2007 Statut Modérateur Dernière intervention 29 juin 2023 5 072
5 nov. 2019 à 13:57
C'est à rendre pour quand ?
1
GrigoriPerelman
5 nov. 2019 à 14:10
Ca n'est pas à rendre mais j'aimerai finir ça au plus vite
0
irongege Messages postés 40847 Date d'inscription jeudi 1 novembre 2007 Statut Modérateur Dernière intervention 29 juin 2023 5 072
5 nov. 2019 à 14:11
Il serait bien de donner une partie du code que vous avez écrit.
0
GrigoriPerelman
5 nov. 2019 à 14:13
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
0
irongege Messages postés 40847 Date d'inscription jeudi 1 novembre 2007 Statut Modérateur Dernière intervention 29 juin 2023 5 072
5 nov. 2019 à 14:15
J'ai redirigé votre sujet dans le forum programmation .
0
GrigoriPerelman
5 nov. 2019 à 14:45
ah ok et donc quelqu'un a t il la solution ?
0