Discussion :

[justice77]

Bonjour à tous,

Je suis en train de travailler sur un code doit:

1.Lire une matrice dans un fichier txt.
2.Générer une solution aléatoire en fonction du txt et d'une formule donnée.
3.Optimiser la solution: en gros enregistrer la solution, et générer x solution de telle sorte que seule la plus petite solution soit enregistrée.

Les résultats obtenus (donc décroissants) doivent être affichés sur une feuille excel.

Dans mon cas tout fonctionne sauf l'itération, j'obtiens que des résultats nul, même en débug je trouve pas d’où provient l'erreur.

L'itération se fait via la fonction Descent.

En pièce jointe le code excel (code.txt) ainsi que les 3 fichiers txt à placer dans le meme dossier que le fichier excel.

S'il vous faut d'autre précisions n'hésitez pas.

Merci d'avance.

[Qwazerty]

Salut

Je pense que ton problème vient d'ici

Code :

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

1
2
3
4
5
    newCost = Cost(sol, numSlots, numRooms, matrix)
 
    If newCost <= solCost Then
        solCost = newCost
    Else

à la création d'une variable Integer, VB l'initialise à 0, donc tant que newcost à une valeur supérieur ou = à 0, solCost reste à 0.
Donc quand tu fais

Code :

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

Sheets("Feuil5").Cells(i / 100, 1).Value = solCost

toutes les 100 lignes, solCost vaut zéro puisque visiblement toutes les solutions calculées précédemment sont visiblement positives.

Donc je propose de remplacer le signe de la comparaison

Code :

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

If newCost >= solCost Then

mais bon, vu que je ne comprends pas le problème global, c'est à toi de voir ce que tu cherches à faire


Sur un aspect plus pratique, j'ajouterais trois remarques

1. Si possible, tu devrais travailler avec un tableau "interne" au lieu d'utiliser les feuilles excel, tes calculs seraient bien plus rapide.
2. Regarde l'utilisation de application.ScreenUpdating, qui te permettra déjà de gagner en performance si tu ne souhaites pas passer aux tableaux.
3. Plutôt que d'utiliser un inputbox pour demander le nom du fichier, tu peux utiliser les outils fournis par FSO et ouvrir avec un dialoguebox te permettant de sélectionner un fichier sur le Disque.

++
Qwaz