Création d'une application de réalisation d'équilibrage des postes de travail

**lamyae_lamyae** · 19/04/2021, 14h43

Bonjour
dans le cadre de mon pfe je suis amené à réaliser une application d'équilibrage des postes de travail, j'ai trouvé des difficulté à réaliser la précédence entre des tâches qui appartient à un tableau dynamique, la question est comment classer les taches par précédence.
j'ai essayé d'utiliser le programme suivant mais aucun résultat.

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
38
39
40
41
Private Function rechercher(a As Long, b As Range)
Dim trouve As Range
Set trouve = b.Cells.Find(what:=a, LookAt:=xlWhole)
If trouve Is Nothing Then
    rechercher = True
        Else
    rechercher = False
End If
End Function
Private Sub classement_des_taches()
Dim card As Long
Dim i As Long
Dim k As Long
Dim j As Long
card = 0
 
 
 
Dim nombre_totale_des_taches  As Long
nombre_totale_des_taches = ThisWorkbook.Worksheets("page d'accueil").Cells(2, 3)
 
Do While card <= nombre_totale_des_taches
    For i = 1 To nombre_totale_des_taches
        Call rechercher(i, ThisWorkbook.Worksheets("precedence").Cells(i + 2, 2))
            If rechercher(i, ThisWorkbook.Worksheets("precedence").Cells(i + 2, 2)) = True Then
                For k = nombre_totale_des_taches To 1
                    If rechercher(i, ThisWorkbook.Worksheets("precedence").Range("A:A")) = False Then
                        ThisWorkbook.Worksheets("classement par precedence").Active
                        Cells(k, 1).Value = ThisWorkbook.Worksheets("precedence").Cells(i + 2, 1)
                        Cells(k, 2).Value = ThisWorkbook.Worksheets("precedence").Cells(i + 2, 2)
                    End If
                Next k
            End If
        Next i
Loop
 
 
End Sub
Sub hhh()
Call classement_des_taches
End Sub

**Zekraoui_Jakani** · 20/04/2021, 10h26

Est-ce que la fonction de tri dans Excel-Ruban n'aide pas ?
Pouvez-vous poster copie de votre fichier ?

**lamyae_lamyae** · 20/04/2021, 14h07

le problème c'est que le classement ne ce fait pas selon l'ordre mais selon l'ordre de précédence Equilibrage_application.xlsm

**Pierre Fauconnier** · 20/04/2021, 15h30

Salut.

Pourrais-tu mettre une copie d'écran des ton (tes) tableau(x)?

**lamyae_lamyae** · 20/04/2021, 16h40

svpl c'est quoi une copie d'écran vous voulez dire une capture

**Pierre Fauconnier** · 20/04/2021, 16h42

Oui

**lamyae_lamyae** · 20/04/2021, 18h00

si vous avez d'autre idées vous me proposer

**Pierre Fauconnier** · 20/04/2021, 18h02

Désolé mais je ne comprends rien ni à ton tableau ni à ton besoin.

Qu'as-tu comme données de départ? Qu'attends-tu comme résultat? Que cherches-tu à analyser? Réponds stp en français (c'est-à-dire sans jargon excel ou vba

)

**lamyae_lamyae** · 21/04/2021, 12h03

j'ai besoin de classer mais taches selon un ordre de précédence comme le principe de diagramme de pert .
dans le processus de fabrication il ya un ensemble des taches qui respect un ordre qui n'est pas continue exemple vous trouver une taches qui doit être après deux taches en parallèle.

**Pierre Fauconnier** · 21/04/2021, 12h09

Oui. Mais par rapport au tableau que tu as montré, que veux-tu comme résultat final? C'est cela qu'il serait intéressant de montrer. Au dessus du tableau, tu écris "deux tâches sont compatibles si elles peuvent être réalisées sur la même machine", mais je ne vois pas où ni comment les machines sont renseignées pour une tâche, sur ton tableau

**lamyae_lamyae** · 21/04/2021, 12h25

non non je v pas faire la compatibilité c'est juste une faute je v faire la précédence je ne sais pas comment

**Pierre Fauconnier** · 21/04/2021, 13h07

Désolé. Je ne comprends vraiment pas ce que tu dis

**lamyae_lamyae** · 21/04/2021, 13h58

UN processus de fabrication et composer de plusieurs tache qui suit un ordre précise alors le but est de trouver une ides pour classer les taches a fin d'affecter ces taches au machine et réaliser le bon équilibrage. bon le graphe des taches que j'ai comme exemple c'est ca : Nom : 1.PNG
Affichages : 159
Taille : 65,6 Ko

Nom : 1.PNG
Affichages : 159
Taille : 65,6 Ko

**lamyae_lamyae** · 21/04/2021, 14h03

normalement je veut réaliser une application d'équilibrage des postes de travail avec le vba et solveur et je doit respecter la précédence et la compatibilité entre tache et tache et entre tache et machine puisque je vais remplir des machines par des taches .

**Zekraoui_Jakani** · 21/04/2021, 22h22

Je suis comme Pierre, das une purée de pois; ce qui manque c'est une procédure qui détaille le processus de classement; quel est le point de départ, le point d'arrivée et COMMENT atteindre l'arrivée. Connaissant la procédure, il sera facile de la traduire en langage VBA.

**lamyae_lamyae** · 22/04/2021, 12h32

le problème c'est que l'application sera polyvalente donc je ne peut pas classer les taches ou bien faire un processus vous voyez je doit crier un programme qui appartienne d'une liste donner me donne + des donner entrer par l'utilisateur me donne le classement sur lequel je base mais études .

**Pierre Fauconnier** · 22/04/2021, 12h45

Tu ne donnes pas de règles de gestion;
Tu ne donnes pas les informations de base dont tu disposes;
Tu n'expliques pas ce que tu souhaites en faire;
Tu ne donnes aucune piste sur le résultat attendu.

On doit déduire par nous-même d'un schéma ce que représentent les ronds, les lignes, etc.

Je peux "supposer" que les lignes horizontales sont les "lignes de production" ou les "machines" comme tu les nommes.
Je peux "supposer" que les pastilles sont les opérations à réaliser dans l'ordre dans lequel elles apparaissent et sur la "machine" sur laquelle elles sont placées;
Je suppose que la valeur entre deux pastilles est le temps d'exécution (en unité de temps, inconnue par moi à ce jour);
Je suppose donc qu'au départ, on a quatre machines, chacune avec une pièce qui subit un certain nombre d'opérations et donc, que sur la machine 1 (la ligne en haut), on a une pièce qui subit une OP1 qui dure 0.11 UT puis une OP5 qui dure 0.28 UT (si j'ai bien lu) puis une OP2 (Marrant de mettre l'OP2 après l'OP5) etc...
Je suppose que cette pièce, après l'OP20, rejoint la pièce 2 sur la machine 6 pour l'OP22, etc...

Déjà, ce ne sont que des suppositions qui doivent être validées. Ensuite, que faire de tout cela? Ce n'est qu'une lecture d'un plan. Que veux-tu faire à partir de là? Pourquoi as-tu besoin d'Excel? Comment généraliser l'approche à d'autres pièces et/ou d'autres machines? Si on arrive là, quelles serait la finalité et quelles seraient les règles d'optimisation? etc, etc, etc...

Tu es "ingénieur qualité méthodes" => je pense que normalement, tu devrais être capable d'exprimer ton besoin ainsi que les tenants et aboutissants dans un français compréhensible (sans jargon Excel ou métier):

Voilà les données d'exemple à disposition;
Voici les règles de gestion, de traitement, de manutention, de regroupement, etc;
Voici le résultat attendu (schéma, tableau, graphique, ...)

Fais l'exercice à la main pour le schéma que tu as montré et expose-le ici. On comprendra peut-être mieux. Ici, sans autres infos de ta part, je pense que personne ne pourra t'aider davantage.

**lamyae_lamyae** · 22/04/2021, 12h56

j'ai un ensemble de n machines et je doit avoir le remplissage le plus optimale de ces machines par un ensembles des taches (m taches ) , on respectant la compatibilité et la précédence entre les taches exemple si une tache i est affecter a la machine k la tache suivante(i+1) doit être affecter a la machine k ou bien (k+1) .
j'ai utiliser un solveur pour le choix optimale , j'ai pus respecter la compatibilité mais la précédence pas encours .
la problématique est : comment placer les taches dans ces machines par ordre et on utilisant le solveur .
et merci