Exercice optimisation Vba - Machines à laver

Version imprimable

27/05/2013, 00h58
please_help

Exercice optimisation Vba - Machines à laver

Bonjour,

Je voulais savoir si qqn pouvait m'aider par rapport à un exercice que j'ai reçu en classe. Il s'agit de crée à l'aide de VBA un modèle qui dispatche des taches(linges à laver) à des des machines à laver.

Chaque tâche à une durée précise, il y a trois machines et le but est d'avoir la durée total la moins élevé possible en ayant dispatcher les 30 tâches.

Je n'ai eu qu'une petite introduction à VBA et faire cet exercice est trop compliqué pour moi. Il y a des itération à mettre,etc...je comprend pas du tout.

Si qqn pouvait m'aider ce serait super gentil. :roll:
27/05/2013, 02h41
nibledispo

machines à laver

bonjour,

je suppose que l'exercice a un énoncé plus précis. peux-tu le transcrire ou le mettre en pièce jointe ?

cordialement.

1 pièce(s) jointe(s)

Salut,

Oui il y a un énoncé. Je ne l'ai pas sous fichier informatique donc je te l'écris:

1) Ouvrir le fichier 0rdo 7, l'enregistrer sous Ordo 8.
Créer une procédure PermuterEntreMachine qui

demande à l'utilisateur le nombre d'itération à faire
Pour chaque itération,

choisir 2 tâches au hasard
permuter les 2 machines affectées à ces 2 tâches
S'il n'y a pas d'amélioration alors revenir en arrière, c'est-à-dire remettre les 2 tâches sur les machines auxquelles elles étaient initialement affectées.

2)Ouvrir le fichier Ordo 8 et l'enregistrer sous Ordo 9.
Imaginez un algorythme "sans retour en arrière", simple et rapide

permettant de minimiser de manière efficace la durée totale de réalisation de toutes les tâches
en affectant chaque tâche définitivement à une machine sans changer cette affectation par la suite.

Concernant le fichier Ordo 7, je n'arrive pas à joindre le fichier excel car il est en .XLSM. Comment puis-je faire? Puis-je te l'envoyer à une adresse mail?

Je te mets ci-dessous ce que j'ai réussi à écrire pour le moment
Code:

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 38 39 40 41 42 43 44 45 46 47 Option Explicit Sub ordonancement1() Dim MachineChoisie As Integer MachineChoisie = InputBox("entrez une machine svp [1 à 3]") MsgBox ("Machine choisie par l'utilisateur est " & MachineChoisie) Range("d3:d28").Value = MachineChoisie Const ColonneMachine = 4 Dim LigneHasard As Integer Dim NbIter, Iter As Integer NbIter = InputBox("entrez le nombre d'itération à faire") For Iter = 1 To NbIter LigneHasard = Int((28 - 3 + 1) * Rnd()) + 3 Cells(LigneHasard, ColonneMachine).Value = MachineLaMoinsChargée Next Iter End Sub Function MachineLaMoinsChargée() Dim DuréeMinimale, DuréeMachine1, DuréeMachine2, DuréeMachine3 As Integer DuréeMachine1 = Range("f8").Value DuréeMachine2 = Range("g8").Value DuréeMachine3 = Range("h8").Value DuréeMinimale = Application.WorksheetFunction.Min(DuréeMachine1, DuréeMachine2, DuréeMachine3) If DuréeMachine1 = DuréeMinimale Then MachineLaMoinsChargée = 1 Else If DuréeMachine2 = DuréeMinimale Then MachineLaMoinsChargée = 2 Else MachineLaMoinsChargée = 3 End If End If End Function
Merci,

Je te mets le fichier en pièce jointe.

En PJ la première partie de ton exercice est résolu.
J'ai équilibré le nombre de taches pour les trois machines.

Code:

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
38
39
40
41
Option Explicit
 
Public Sub Optimiser()
Dim intIteration As Integer
Dim i As Integer
Dim intLig1 As Integer, intLig2 As Integer
Dim intProgTemp As Integer, intTotTemp As Integer
 
    intIteration = InputBox("Nb itérations ?")
    Application.ScreenUpdating = False
 
    With Sheets("Ordo")
        For i = 1 To intIteration
 
            intTotTemp = .[I8].Value
 
            intLig1 = NbAléatoire(3, 29)
            intLig2 = intLig1
 
            While intLig1 = intLig2 And .Cells(intLig1, 4).Value = .Cells(intLig2, 4).Value
                intLig2 = NbAléatoire(3, 29)
            Wend
 
            intProgTemp = .Cells(intLig1, 4).Value
            .Cells(intLig1, 4).Value = .Cells(intLig2, 4).Value
            .Cells(intLig2, 4).Value = intProgTemp
 
            If intTotTemp <= .[I8].Value Then
                .Cells(intLig2, 4).Value = .Cells(intLig1, 4).Value
                .Cells(intLig1, 4).Value = intProgTemp
            End If
 
        Next i
    End With
 
End Sub
 
Private Function NbAléatoire(intUpper As Integer, intLower As Integer)
    Randomize
    NbAléatoire = Int((intUpper - intLower) * Rnd + intLower)
End Function

Cependant tu n'as pas précisé s'il fallait aussi optimiser le nombre de taches par machines au regard du temps max calculé.

Pour la deuxième partie de ton problème il y a de nombreuses manières de faire. Et comme il faut que tu travailles un peu quel est l’algorithme que tu comptes employer?

27/05/2013, 15h21
please_help

Dsl je n'ai pas precisé. Oui le but est d'optimiser en ayant la duree la plus petite possible.

Les fonctions qu'on nous a demander d'utiliser sont surtout les iterations.
27/05/2013, 15h49
Invité

Dans ce cas c'est plus compliqué. Je vais y réfléchir.

Je ne sais pas quel est ton niveau d'étude mais c'est un problème d'analyse combinatoire NP-difficile.

Je suppose que tu as un extrait de cours relatif à ce problème d'optimisation. Si c'est la cas n'hésite pas à le mettre en PJ.

Dans tous les cas je te proposerai une solution.
27/05/2013, 17h28
please_help

3 pièce(s) jointe(s)
Je suis en fin de bachelor en économie et nous n'avons eu que 4 heures de cours sur VBA histoire de nous montrer à quoi ca sert. Mais le cas qu'il nous demande de résoudre me parait disproportionner par rapport à notre niveau.

Je n'ai malheureusement pas la version informatique du cours théorique qu'on à reçu mais les point importants dedans que l'on doit utiliser pour faire le cas sont:
- les conditions: If, then, Else, End if.
- instruction Select case: select case, case, case else, End select.
- instruction Rnd()
- les boucles: while, for,do
+ ce que j'ai déjà mis (range,etc.)

Il serait bien que je n'utilise pas de formules différentes de celles-ci.

:roll:

J'ai réussi à me procurer les fichiers.

Ordo 0: le fichier depuis lequel j'ai commencé pour en arrivé à Ordo 7
ainsi que le cours et ce qui est demandé.

Ok pour les contraintes en VBA mais la difficulté n'est pas là. Il n'y aura aucun problème à les intégrées.

Cependant, concernant le problème d'optimisation, est-ce que tu as un cours qui traite les méthodes de résolution de manière théorique ? Parce que soit j'ai mal compris ton problème soit c'est vite compliqué.

Et je me pose quand même la question quand je lis:

Citation:

Imaginez un algorythme "sans retour en arrière", simple et rapide

que ce qu'il t'es demandé ressemble plutôt à une initiation au VBA qu'à la résolution par analyse combinatoire d'un problème d'optimisation. Auquel cas il suffit de donner une solution qui tend vers la meilleure solution et qui est bien plus simple à réaliser (un peu comme tu l'as déjà fait).

Haaaaaaa (page 35 du cours):

Code:

En utilisant une boucle, à chaque itérations, choisir une tâche au hasard et l’affecter à la machine la moins chargée

Dans ce cas le problème est beaucoup plus simple ! Et le code que tu as produit correspond bien à ce qu'il t'es demandé. Par contre la solution trouvée est très loin d'être la meilleure mais peu importe.

Tu as déjà résolu le problème Ordo 7 qui t'es demandé. Après il faut l'adapter aux contraintes de ton TP.

J'ai revu un peu le code en ajoutant le test pour savoir si la valeur max augmente au pas:
Code:

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 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 Option Explicit Public Sub OrdonancementMachines() 'Déclaration des variables Dim MachineChoisie As Variant Dim LigneHasard As Integer Dim NbIter As Variant, Iter As Integer Dim intTotTemp As Integer, intMachTemp As Integer 'Déclaration des constantes Const ColonneMachine = 4 'Initialisation MachineChoisie = "" While Not IsNumeric(MachineChoisie) MachineChoisie = InputBox("Entrez une machine svp [1 à 3]") If Int(MachineChoisie) < 1 Or Int(MachineChoisie) > 3 Then MsgBox ("Le choix n'est pas valide ! " & MachineChoisie) MachineChoisie = "" End If Wend MsgBox ("Machine choisie par l'utilisateur est: " & MachineChoisie) Range("d3:d28").Value = MachineChoisie 'Nombre d'itérations NbIter = "" While Not IsNumeric(NbIter) NbIter = InputBox("Entrez le nombre d'itérations") Wend 'Itération des tâches For Iter = 1 To NbIter intTotTemp = [I8].Value LigneHasard = NbAléatoire(28, 3) 'Mise à jour de la ligne intMachTemp = Cells(LigneHasard, ColonneMachine).Value Cells(LigneHasard, ColonneMachine).Value = MachineLaMoinsChargée 'Vérification que le temps max n'augmente pas 'Sinon on remplace par la valeur préscédente If intTotTemp <= [I8].Value Then Cells(LigneHasard, ColonneMachine).Value = intMachTemp End If Next Iter End Sub 'Fonction déterminant la machine la moins chargée Private Function MachineLaMoinsChargée() 'Déclaration des variables Dim DuréeMinimale As Integer, DuréeMachine1 As Integer, DuréeMachine2 As Integer, DuréeMachine3 As Integer 'Initialisation des variables DuréeMachine1 = Range("f8").Value DuréeMachine2 = Range("g8").Value DuréeMachine3 = Range("h8").Value DuréeMinimale = Application.WorksheetFunction.Min(DuréeMachine1, DuréeMachine2, DuréeMachine3) 'Machine la moins chargée Select Case DuréeMinimale Case DuréeMachine1 MachineLaMoinsChargée = 1 Case DuréeMachine2 MachineLaMoinsChargée = 2 Case DuréeMachine3 MachineLaMoinsChargée = 3 End Select End Function 'Fonction revoyant un nombre aléatoire entre intUpper et intLower Private Function NbAléatoire(intUpper As Integer, intLower As Integer) Randomize NbAléatoire = Int((intUpper - intLower + 1) * Rnd + intLower) End Function
Je pense que c'est ce que tu souhaites.
Pour le problème suivant (Ordo 8) à toi de réfléchir à l'algorithme de résolution et de demander de l'aide si tu es bloqué.

27/05/2013, 18h30
please_help

je te remercie sincèrement d'avoir passé du temps à m'aider. Je vais essayer de voir ce que ca donne.

Je te tiendrai au courant.

Merci encore.
27/05/2013, 19h01
please_help

Du coup j'ai essayé mais je reste toujours au même stade. Tu as amélioré l'Ordo 7 mais ce que je n'arrive pas à faire c'est l'ordo 8, c'est-à-dire de permuter les machines et s'il n'y pas d'amélioration que l'attribution d'avant soit gardé afin d'avoir le temps minimum à chaque coup.

Citation:

1) Ouvrir le fichier 0rdo 7, l'enregistrer sous Ordo 8.
Créer une procédure PermuterEntreMachine qui
demande à l'utilisateur le nombre d'itération à faire
Pour chaque itération,
choisir 2 tâches au hasard
permuter les 2 machines affectées à ces 2 tâches
S'il n'y a pas d'amélioration alors revenir en arrière, c'est-à-dire remettre les 2 tâches sur les machines auxquelles elles étaient initialement affectées.

2)Ouvrir le fichier Ordo 8 et l'enregistrer sous Ordo 9.
Imaginez un algorythme "sans retour en arrière", simple et rapide
permettant de minimiser de manière efficace la durée totale de réalisation de toutes les tâches
en affectant chaque tâche définitivement à une machine sans changer cette affectation par la suite.
27/05/2013, 19h12
Invité

Je t'ai donné la réponse dans mon post#7.

Etape 1 - Tu utilises ton programme pour répartir les machines en fonction de la moins chargée.

Etape 2 - Tu utilises le code de mon post#7 pour minimiser le temps max à l'aide de permutations 2 à 2 en prenant en compte uniquement celles qui font baisser le temps max.

Tu doit donc réaliser deux itérations successives. Ou plutôt, dans ton cas, répartir les tâches à l'aide de Ordo 7. Enregistrer le fichier sous Ordo 8 et réaliser les permutations sur les tâches déjà attribuées.
27/05/2013, 20h22
please_help

1 pièce(s) jointe(s)

oufff, je suis complétement largé là. Comme je t'ai dis pour moi tout ca c'est du chinois, je n'ai aucune compétence VBA. J'essaie de faire mais je suis dépassé là.

j'ai essayé de mettre à la suite d'ordo7 ce que tu as mis dans ton post#7.

Si je résume pour le moment ce que j'avaisi de bon c'est Ordo 7 mais mnt que j'ai mis la suite ca me met un message d'alerte comme quoi il y a une erreur.

Je suis à l'ouest :oops: :cry:

Alors:

Voici le code pour Ordo 7b:

Code:

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
Option Explicit
 
'Variables globales
Public Const ColonneMachine = 4
Public NbIter As Integer
 
Public Sub Ordonancement()
    Call Initialiser
    Call ChangerDeMachine
End Sub
 
'Initialisation
Public Sub Initialiser()
 
    'Déclaration des variables
    Dim MachineChoisie As Integer
 
    'Initialisation
    MachineChoisie = InputBox("Entrez une machine svp [1 à 3]")
    MsgBox ("Machine choisie par l'utilisateur est: " & MachineChoisie)
    Range("d3:d28").Value = MachineChoisie
 
    'Nombre d'itérations
    NbIter = InputBox("Entrez le nombre d'itérations")
 
End Sub
 
'Fonction déterminant la machine la moins chargée
Public Sub ChangerDeMachine()
 
    'Déclaration des variables
    Dim LigneHasard As Integer
    Dim Iter As Integer
    Dim DuréeMinimale As Integer, DuréeMachine1 As Integer
    Dim DuréeMachine2 As Integer, DuréeMachine3 As Integer
 
    'Bloquage de l'affichage
    Application.ScreenUpdating = False
 
    'Itération des tâches
    For Iter = 1 To NbIter
 
        'Tirage aléatoire de la tâche
        Randomize
        LigneHasard = Int((28 - 3 + 1) * Rnd + 3)
 
        DuréeMachine1 = Range("f8").Value
        DuréeMachine2 = Range("g8").Value
        DuréeMachine3 = Range("h8").Value
        DuréeMinimale = Application.WorksheetFunction.Min(DuréeMachine1, DuréeMachine2, DuréeMachine3)
 
        'Machine la moins chargée
        Select Case DuréeMinimale
            Case DuréeMachine1
                Cells(LigneHasard, ColonneMachine).Value = 1
            Case DuréeMachine2
                Cells(LigneHasard, ColonneMachine).Value = 2
            Case DuréeMachine3
                Cells(LigneHasard, ColonneMachine).Value = 3
        End Select
 
    Next Iter
 
End Sub

Et le code pour Ordo 8:

Code:

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
38
39
40
Option Explicit
 
Public Sub PermuterEntreMachines()
 
    'Déclaration des variables
    Dim intIteration As Integer
    Dim i As Integer
    Dim intLig1 As Integer, intLig2 As Integer
    Dim intProgTemp As Integer, intTotTemp As Integer
 
    'Nombre d'itérations
    intIteration = InputBox("Nb itérations ?")
 
    'Bloquage de l'affichage
    Application.ScreenUpdating = False
 
    For i = 1 To intIteration
 
        'Mise en mémoire du temps max
        intTotTemp = [I8].Value
 
        'Tirage Aléatoire de deux lignes
        Randomize
        intLig1 = Int((28 - 3 + 1) * Rnd + 3)
        intLig2 = Int((28 - 3 + 1) * Rnd + 3)
 
        'Permutation des tâches
        intProgTemp = Cells(intLig1, 4).Value
        Cells(intLig1, 4).Value = Cells(intLig2, 4).Value
        Cells(intLig2, 4).Value = intProgTemp
 
        'Permutation gardée si le temps max diminue
        If intTotTemp <= [I8].Value Then
            Cells(intLig2, 4).Value = Cells(intLig1, 4).Value
            Cells(intLig1, 4).Value = intProgTemp
        End If
 
    Next i
 
End Sub

Avec Ordo 7 tu attribues aléatoirement une tâche à la machine la moins chargée.
Une fois cette opération réalisée tu utilises Ordo 8 pour réaliser des permutations aléatoires entre deux machines et tu ne prends en compte le changement uniquement dans le cas ou le temps max diminue.

C'est donc une optimisation en deux temps. Le premier pour adresser les tâches aux machines et le second pour optimiser la répartition des tâches en gardant un nombre de tâche par machine constant.

Comme je le disais au début, si tu souhaites trouver la meilleure solution alors le problème est beaucoup plus compliqué. C'est donc un algorithme simplifié que tu utilises et qui donne déjà un bon résultat mais pas le meilleur.

28/05/2013, 18h19
please_help

par rapport à Ordo 8,

comment je peux faire pour que lorsque j'ouvre le fichier il n'y ait pas de tache déjà attribué aux machines.

J'aimerais que lorsque je clic sur le nuage, le message me demande le nb d'itération et que les machines soient affecté après cela.

Mais dans le cas actuel les machines sont déjà attribué au mieux. comment faire justement pour que le résultat qui s'affiche lorsque l'on ouvre le fichier apparaissent seulement après que l'on ait cliqué sur le nuage...jme suis peut etre un peu répété.
28/05/2013, 18h49
Invité

Il te suffit de compiler Ordo 7 avec Ordo 8 dans la même procédure (et ça tu devrais pouvoir le faire par toi même).
Mais ce n'est pas ce qu'il t'es demandé de faire dans ton TP.
29/05/2013, 00h02
please_help

histoire d'être sur: le fichier ordo 7b que tu as fais et que je dois enregistrer sous Ordo 8 correspond au TP 1 ci-dessous:

Citation:

Travail pratique 1
 Ouvrir le fichier Ordo7b  L’enregistrer sous le nom Ordo8
 Créer une procédure PermuterEntreMachine qui  Demande à l’utilisateur le nombre d’itérations à faire  Pour chaque itération,
 Choisir 2 tâches au hasard
 Permuter les 2 machines affectées à ces 2 tâches
 S’il n’y a pas d’amélioration alors revenir en arrière c’est-à-dire remettre les 2 tâches sur les machines auxquelles elles étaient initialement affectées

Et le fichier Ordo 8 que je dois enregistrer en Ordo 9 repond au TP 2 ci-dessous:

Citation:

Travail pratique 2
 Imaginer un algorithme « sans retour en arrière », simple et rapide
 permettant de minimiser de manière efficace la durée totale de réalisation de toutes les tâches
 en affectant chaque tâche définitivement à une machine sans changer cette affectation par la suite
 Ouvrir le fichier Ordo8
 L’enregistrer sous le nom Ordo9
 Programmer cet algorithme, le tester et le comparer avec les versions précédentes

Ce que je ne comprend pas, c'est que le TP 2 demande de reprendre à partir du TP 1 mais au final dans le TP 2 rien n'est semblable.

Dans ordo 8, c'est possible de faire en sorte qu'au début il n'y ait pas encore les taches attribué au machine et qu'elle s'attribue de la façon optimum seulement quand j'appui sur le nuage?

car la quando n ouvre on a deja le temps de 248. Ce qu'il serait bien c'est que lorsqu'on ouvre le fichier ce soit tous à zéro, que rien ne soit attribué et que lorsqu'on clic sur le nuage le résultat actuel de 248 apparaisse.

Car j'ai l'impression que ca répond pas correctement au TP.

En plus de cela je dois faire un petit rapport de 2 pages en expliquant chaque TP, les étapes clés et la réflexion...Peux-tu me donner un tuyau? par exemple 1) faire ci
2) faire ca
3)etc.

Si tu n'as pas le temps je comprendrais.

En tout cas, je te remercie énormément pour tout ce que tu as fais. Pour moi, comme je te l'ai deja dis tout ca c'est un autre monde. Donc quand je vois tout ce qui est ecris, meme avec de la bonne volonté, je ne comprend pas car ce n'est pas intuitif.

Merci beaucoup.

J'ai compilé les deux parties:

Code:

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
Option Explicit
 
'Variables globales
Public Const ColonneMachine = 4
Public NbIter As Integer
 
Public Sub Ordonancement()
    Call Initialiser
    Call ChangerDeMachine
    Call PermuterEntreMachines
End Sub
 
'Initialisation
Public Sub Initialiser()
 
    'Déclaration des variables
    Dim MachineChoisie As Integer
 
    'Initialisation
    MachineChoisie = InputBox("Entrez une machine svp [1 à 3]")
    MsgBox ("Machine de départ choisie par l'utilisateur est: " & MachineChoisie)
    Range("d3:d28").Value = MachineChoisie
 
    'Nombre d'itérations
    NbIter = InputBox("Entrez le nombre d'itérations pour l'affectation des machines")
 
End Sub
 
'Fonction déterminant la machine la moins chargée
Public Sub ChangerDeMachine()
 
    'Déclaration des variables
    Dim LigneHasard As Integer
    Dim Iter As Integer
    Dim DuréeMinimale As Integer, DuréeMachine1 As Integer
    Dim DuréeMachine2 As Integer, DuréeMachine3 As Integer
 
    'Bloquage de l'affichage
    Application.ScreenUpdating = False
 
    'Itération des tâches
    For Iter = 1 To NbIter
 
        'Tirage aléatoire de la tâche
        Randomize
        LigneHasard = Int((28 - 3 + 1) * Rnd + 3)
 
        DuréeMachine1 = Range("f8").Value
        DuréeMachine2 = Range("g8").Value
        DuréeMachine3 = Range("h8").Value
        DuréeMinimale = Application.WorksheetFunction.Min(DuréeMachine1, DuréeMachine2, DuréeMachine3)
 
        'Machine la moins chargée
        Select Case DuréeMinimale
            Case DuréeMachine1
                Cells(LigneHasard, ColonneMachine).Value = 1
            Case DuréeMachine2
                Cells(LigneHasard, ColonneMachine).Value = 2
            Case DuréeMachine3
                Cells(LigneHasard, ColonneMachine).Value = 3
        End Select
 
    Next Iter
 
End Sub
 
Public Sub PermuterEntreMachines()
 
    'Déclaration des variables
    Dim intIteration As Integer
    Dim i As Integer
    Dim intLig1 As Integer, intLig2 As Integer
    Dim intProgTemp As Integer, intTotTemp As Integer
 
    'Débloquage de l'affichage
    Application.ScreenUpdating = True
 
    'Nombre d'itérations
    intIteration = InputBox("Entrez le nombre d'itérations pour les permutations 2 à 2")
 
    'Bloquage de l'affichage
    Application.ScreenUpdating = False
 
    For i = 1 To intIteration
 
        'Mise en mémoire du temps max
        intTotTemp = [I8].Value
 
        'Tirage Aléatoire de deux lignes
        Randomize
        intLig1 = Int((28 - 3 + 1) * Rnd + 3)
        intLig2 = Int((28 - 3 + 1) * Rnd + 3)
 
        'Permutation des tâches
        intProgTemp = Cells(intLig1, 4).Value
        Cells(intLig1, 4).Value = Cells(intLig2, 4).Value
        Cells(intLig2, 4).Value = intProgTemp
 
        'Permutation gardée si le temps max diminue
        If intTotTemp <= [I8].Value Then
            Cells(intLig2, 4).Value = Cells(intLig1, 4).Value
            Cells(intLig1, 4).Value = intProgTemp
        End If
 
    Next i
 
End Sub

Les fichiers Ordo 7b et Ordo 8 correspondent bien aux partie du même nom dans ton TP1.

Il te reste donc à faire le TP2 (Ordo 9) dans lequel tu dois proposer une méthode de résolution simple et efficace sans itérations.

Ton cours doit te permettre de comprendre ce que j'ai écrit. En tout cas il faut te l'approprier sinon tu ne pourras expliquer comment le programme fonctionne.

29/05/2013, 16h32
please_help

justement en parlant d'appropriation, il est impossbile que je puisse le faire car je dois le rendre demain.

Tu me sauverais la vie si tu me faisais le Ordo 9 et un petit rapport car je ne pourrais pas expliquer les différentes étapes ou du moins si tu peu me donner les lignes directrices...

Je dois rendre ce travail demain et j'ai beaucoup d'autre chose à faire donc meme avec de la bonne volonté c'est mission impossible pour moi.

Merci.
29/05/2013, 16h47
Invité

Et bien non.
C'est ton problème si tu t'es mal organisé dans ton travail.
Je ne réponds pas aux post sur ce forum pour ce genre de demandes. Je donne plutôt des conseils et des manières de faire ; comme pour toi.

Après peut être que quelqu'un d'autre t'aidera.
30/05/2013, 12h09
please_help

2 pièce(s) jointe(s)

Y a pas de probleme je comprend. Merci qd meme pour tt et jte souhaite tt de bon.

Salut,

Que penses-tu de ces deux fichiers?

Est-ce que je pourrais les simplifier?
30/05/2013, 13h33
Invité

Oui c'est bien. Le code pourrait être plus clair mais si tu le comprends c'est bon pour toi. Je suppose que l'on ne te demande pas quelque chose de parfait si tu n'as eu que 4 heures de cours.

Sinon pour Ordo 9 l’algorithme est effectivement simple et efficace et donne une bonne solution. Par contre tu remarqueras que les permutations ne sont pas utiles. Si tu l'enlève de ton code la solution est la même. Tu peux donc enlever cette partie de ton code.