Discussion :

[papouuu]

Bonjour,

Alors je ne m'y connais pas du tout en Macros Excel alors je viens poser mon problème auprès d'experts

J'ai un fichier excel tout simple avec des trajets en col A et les distances en col B, je dois renvoyer un ensemble de trajets aléatoires en fonction d'une distance entrée par l'utilisateur à plus ou moins 10 près.

C'est à dire en entrant 320 par exemple le fichier pourra me sortir:
- Trajet 3 : 120
- Trajet 7 : 70
- Trajet 8 : 120

Ou bien
- Trajet 1 : 280
- Trajet 6 : 45

Auriez-vous quelque chose à me proposer, ou au moins des pistes de fonction qui pourraient m'être utiles?

Merci d'avance

[ZebreLoup]

C'est plus un problème d'algorithme que de VBA. On pourra bien sûr t'aider un peu pour le VBA, mais pour la partie algorithme, tu as déjà pensé à une solution ?

[papouuu]

J'ai pensé à ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Select distances < donnée
envoyer cell + valeur dans Array
 
Tant que (Array.MaxValue + Array.MinValue > donnée + 10)
Supprimer Array.MaxValue de Array
Fin Tant que
 
Array finalCells
 
Select random valeur in Array = rdm1
int test = rdm1
 
finalCells.add(rdm1.cell.line)
 
Tant que (test < donnée + 10)
rdm2 = Select random valeur in Array (sans rdm1) where (donnée - rdm1 < rdm2 + 10)
test += rdm2
finalCells.add(rdm2.cell.line)
Fin Tant que
 
retourner ColonneA.line(finalCells) + test

Ca me semble correspondre à mon besoin, j'espère que c'est suffisament clair :s

[ZebreLoup]

Je peux me tromper, mais je n'ai pas l'impression que ça fasse ce que tu veux.

Déjà, oublions pour le moment le coté aléatoire. Une première étape est de trouver l'algorithme qui permet de trouver toutes les combinaisons de trajet qui font valeurCible +- 10 km.

[papouuu]

oui ok je vois ce que tu veux dire, j'ai pensé à ceci alors:

Par contre je ne sais pas si c'est faisable comme je ne connais pas du tout VBA et la portée des variables:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Fonction MAIN:
 
int TotalFinal
 
Array Valeurs = tableau associatif clé=ligne, valeur=valeur (ensemble des distances)
 
Array Final = tableau associatif clé=ligne, valeur=valeur (vide)
 
foreach val in Valeurs
Vider Final
function(Valeurs, val, donnée)
ecrire Final et TotalFinal
fin foreach
 
fin Main
 
 
function(Array Vals, int Actual, int donnée)
 
foreach(valeur in Vals)
Array temp
 
si((valeur + Actual < donnée + 10) AND (valeur + Actual > donnée - 10))
Actual += valeur
temp.add(valeur)
TotalFinal = Actual
Final = temp
 
sinon si(valeur + Actual < donnée + 10 - Vals.MinValue)
Actual += valeur
temp.add(valeur)
Supprimer valeur dans Vals
function(Vals, Actual, donnée)
 
fin si
fin foreach
fin function

Ca pourrait aller pour la recherche des trajets à +ou- la donnée entrée?