trouver pièce capable

Version imprimable

24/07/2019, 08h43
saimone67

1 pièce(s) jointe(s)

trouver pièce capable

Bonjour,

J'ai un tableau comprenant des articles en stock dans la zone de gauche.
Ces articles sont de nature différentes (barreA, barreB etc...) et de dimensions différentes.

La seconde feuille comprend uniquement la nature des articles.

Je souhaiterais insérer une liste de pièce à découper, la zone bleue.

J'aimerais qu'excel me trouve l'article en stock dans lequel je pourrais découper la pièce en question, la zone verte.
L'article en stock doit être strictement plus grand en longueur et en largeur que la pièce à découper

Si la pièce à couper est de nature barreA, l'article en stock doit être de nature barreA.

Malheureusement je ne sais pas trop par où commencer.

Pourriez vous me mettre sur les rails?

D'avance merci

Pièce jointe 493131
24/07/2019, 09h04
Menhir

Citation:

Envoyé par saimone67

Malheureusement je ne sais pas trop par où commencer.

Par écrire un algorithme précis de ce que tu souhaites.
Actuellement, ta demande est trop imprécise.

Par exemple, quel est le critère prioritaire entre la largeur et la longueur ?
Par exemple, si tu veux une coupe de 800x100, est-ce que tu choisiras la 860x450 ou 2250x120 ?

Citation:

Malheureusement je ne sais pas trop par où commencer.
Pourriez vous me mettre sur les rails?

Peut-être pourrais-tu commencer par là : http://bidou.developpez.com/article/VBA/
24/07/2019, 09h45
saimone67

Merci pour ta réponse.

Dans l'idéal, j'aimerais connaitre tout les articles possibles pour découper la pièce en question.
Mais si cela n'est pas possible, alors priorité sur la largeur.
24/07/2019, 11h33
ARTURO83

Bonjour,

Essayez ceci, attention toutes les formules sont à valider avec CTRL + SHIFT + ENTREE
Formule pour trouver la largeur

Code:

=SIERREUR(MIN(SI(($A:$A=$I2)*(C:C>K2);$C:$C));"introuvable")

Formule pour trouver la longueur

Code:

=SIERREUR(INDEX($B:$C;EQUIV(I2&$P2;$A:$A&$C:$C;0);1);"introuvable")

Formule pour trouver le lieu

Code:

=SIERREUR(INDEX($A:$E;EQUIV(O2&P2;$B:$B&$C:$C;0);5);"")

Formule pour trouver la barre

Code:

=SIERREUR(INDEX($A:$E;EQUIV(O2&P2;$B:$B&$C:$C;0);1);"")

Le fichier
Pièce jointe 493194

Cdlt

Autre proposition en VBA, affiche la liste de toutes les options possibles

Le fichier
Pièce jointe 493228

Le code

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
Sub Recherche_barre()
    Dim DerLig_i As Long, DerLig_A As Long, DerLig_N As Long, i As Long, L As Long
    Application.ScreenUpdating = False
    DerLig_i = [I10000].End(xlUp).Row
    DerLig_A = [A10000].End(xlUp).Row
 
    Range("N2:R1000").ClearContents
    For L = 2 To DerLig_i
        Barre = Cells(L, "i")
        Longueur = Cells(L, "j")
        Largeur = Cells(L, "K")
        'Epaisseur = Cells(l, "L")
        DerLig_N = [N10000].End(xlUp).Row
 
        For i = 2 To DerLig_A
            If Cells(i, "A") = Barre And Cells(i, "B") >= Longueur And Cells(i, "C") >= Largeur Then
                Cells(DerLig_N + 1, "N") = Barre
                Cells(DerLig_N + 1, "O") = Cells(i, "B") 'Longueur
                Cells(DerLig_N + 1, "P") = Cells(i, "C") 'Largeur
                Cells(DerLig_N + 1, "Q") = Cells(i, "D") 'Epaisseur
                Cells(DerLig_N + 1, "R") = Cells(i, "E") 'Lieu
                DerLig_N = DerLig_N + 1
            End If
        Next i
    Next L
 
    'tri
    Range("N2:R" & DerLig_N).Select
    ActiveWorkbook.Worksheets("stock").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("stock").Sort.SortFields.Add Key:=Range("N2:N" & DerLig_N), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("stock").Sort.SortFields.Add Key:=Range("O2:O" & DerLig_N), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("stock").Sort.SortFields.Add Key:=Range("P2:P" & DerLig_N), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("stock").Sort.SortFields.Add Key:=Range("Q2:Q" & DerLig_N), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("stock").Sort.SortFields.Add Key:=Range("R2:R" & DerLig_N), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("stock").Sort
        .SetRange Range("N2:R" & DerLig_N)
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
 
    'Suppression des doublons
    For i = DerLig_N To 2 Step -1
        If Cells(i, "N") = Cells(i - 1, "N") And Cells(i, "O") = Cells(i - 1, "O") And Cells(i, "P") = Cells(i - 1, "P") And Cells(i, "Q") = Cells(i - 1, "Q") And Cells(i, "R") = Cells(i - 1, "R") Then Range(Cells(i, "N"), Cells(i, "R")).Delete
    Next i
End Sub

Cdlt

24/07/2019, 12h42
saimone67

1 pièce(s) jointe(s)

Merci pour le fichier,
je viens de faire un test, malheureusement il y a quelques soucis :/

Saurais tu à quoi cela est du?

Pièce jointe 493232
24/07/2019, 12h50
ARTURO83

je viens de faire un test, malheureusement il y a quelques soucis :/ LESQUELS?
24/07/2019, 13h02
unparia

Bonjour

Je plussoie mille fois l'intervention de Menhir, que je salue

Citation:

Par écrire un algorithme précis de ce que tu souhaites.
Actuellement, ta demande est trop imprécise.

et ce d'autant que ce genre de démarche est en général assorti de l'utilisation d'une base de données composée des articles dont les dimensions sont susceptibles de correspondre à des besoins éventuels ultérieurs. C'est l'utilisation de cette base annexe qui conduit à choisir de découper dans tel ou tel autre produit en fonction du déchet (utilisable ou non) après découpe.
Cela est en général précédé d'une étude préalable (avant même tout développement) minutieuse basée sur l'empirisme.
24/07/2019, 13h48
saimone67

Dans le fichier joint (saimone67_trouver_pièce_capable_essai.xlsm), il y a l'illustration du soucis.

A savoir: j'inscris 8 pièces à optimiser dans la zone bleue

Il en ressort 3 résultats, au lieu de 8.
Sur les 3 résultats ressortis, le premier n'est pas possible, la pièce demandée : Longueur 2500, largeur 250 // barre proposée: Longueur 430, largeur 600.
Il est impossible de découper 2500 dans 430.

Evidemment la partie base de donnée (à gauche) est évolutive.

Actuellement je filtre la base à la main pour chaque pièce à découper.

Par exemple, j'ai une pièce à couper comme suit:

BarreH Longueur 2500 largeur 2000

- je filtre la matière sur BarreH
- je filtre numériquement la longueur sur supérieur à 2500
- je filtre numériquement la largeur sur supérieur à 2500

j'ai les barres capables pour couper ma pièce de longueur 2500 et de largeur 2000.
Si plusieurs résultats sont disponibles, je les analyse, mais à 90% du temps, la largeur est prioritaire sur la longueur.

Je souhaiterais automatiser ces actions, et aussi avoir la possibilité d'insérer une liste de pièces à découper afin d'en optimiser plusieurs en même temps.
Mais toujours suivant la même méthode.
24/07/2019, 14h07
ARTURO83

Il en ressort 3 résultats, au lieu de 8.
Sur les 3 résultats ressortis, le premier n'est pas possible, la pièce demandée : Longueur 2500, largeur 250 // barre proposée: Longueur 430, largeur 600.
Il est impossible de découper 2500 dans 430.

Il ne faut pas lire ligne par ligne, le résultat présenté à fait l'objet d'un tri pour supprimer les doublons ce qui n'affiche pas le même ordre, mais si vous tenez à remettre dans l'ordre initial, pas de souci, je vous le ferai un peu plus tard.

Maintenant, grâce à vous j'ai découvert qu'une largeur peut être plus grande qu'une longueur.
24/07/2019, 14h30
Menhir

Citation:

Envoyé par saimone67

Si plusieurs résultats sont disponibles, je les analyse, mais à 90% du temps, la largeur est prioritaire sur la longueur.

Le "à 90%" n'est pas interprétable par un langage informatique.
Tant que tu n'auras pas écrit des règles claires et précises, il ne sera pas possible d'avancer.
24/07/2019, 14h53
saimone67

Fais abstraction de ce 90%

les règles sont:
Par pièce à découper:

trouver la barre en stock capable avec:

- la bonne matière (si matière pièce à découper = barreA; matière barre capable = barreA et rien d'autre)
- la longueur de la barre capable supérieure à la longueur de la pièce à découper (si longueur pièce à découper = 1654; longueur barre capable doit être strictement supérieure à 1654)
- la largeur de la barre capable supérieure à la largeur de la pièce à découper (si largeur pièce à découper = 1925; largeur barre capable doit être strictement supérieure à 1925)
- afficher la barre capable pour chaque pièce à découper avec le lieu correspondant à la barre capable

Si pour une pièce à découper plusieurs résultats sont possibles; alors:
- les afficher tous si cela est facilement programmable.
- sinon, afficher la barre capable dont la largeur strictement supérieure à la largeur de la pièce demandée est la plus petite triée du plus petit au plus grand.

-----------------------------------------------------------------------------------------------------------------------------------------

En résumé:

pièce à découper: barreH Longueur1234 largeur 4321

Pour avoir les résultats de barre capables; filtrer la base de donnée comme suit:

- filtrer la matière pour ne garder que barreH
- filtrer la longueur sur numériquement supérieur à 1234
- filtrer la largeur sur numériquement supérieur à 4321

Si pas possibilité d'afficher tout les résultats car la programmation est trop complexe,
- trier les résultats par largeur du plus petit au plus grand et afficher le premier résultat avec le lieu correspondant.

Plus clair et précis je n'arriverais pas

Solution 2: Affiche les combinaisons trouvées par couleurs pour lecture plus aisée.

Le fichier
Pièce jointe 493310

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
Sub Recherche_barre()
    Dim DerLig_i As Long, DerLig_A As Long, DerLig_N As Long, i As Long, L As Long
    Application.ScreenUpdating = False
    DerLig_i = [I10000].End(xlUp).Row
    DerLig_A = [A10000].End(xlUp).Row
 
    Range("N2:R1000").Clear
    Range("I2:L" & DerLig_i).Interior.Color = RGB(188, 214, 238)
 
    Coul1 = 4
    Coul2 = 6
    Coul = Coul1
    Ok = False
    For L = 2 To DerLig_i
        Barre = Cells(L, "i")
        Longueur = Cells(L, "j")
        Largeur = Cells(L, "K")
        DerLig_N = [N10000].End(xlUp).Row
       ' Range(Cells(DerLig_N + 1, "I"), Cells(DerLig_N + 1, "L")).Interior.ColorIndex = Coul
        For i = 2 To DerLig_A
            If Cells(i, "A") = Barre And Cells(i, "B") >= Longueur And Cells(i, "C") >= Largeur Or _
                Cells(i, "A") = Barre And Cells(i, "B") >= Largeur And Cells(i, "C") >= Longueur Then
                Cells(DerLig_N + 1, "N") = Barre
                Cells(DerLig_N + 1, "O") = Cells(i, "B") 'Longueur
                Cells(DerLig_N + 1, "P") = Cells(i, "C") 'Largeur
                Cells(DerLig_N + 1, "Q") = Cells(i, "D") 'Epaisseur
                Cells(DerLig_N + 1, "R") = Cells(i, "E") 'Lieu
                Range(Cells(DerLig_N + 1, "N"), Cells(DerLig_N + 1, "R")).Interior.ColorIndex = Coul
                DerLig_N = DerLig_N + 1
                Ok = True
            End If
        Next i
        If Ok = True Then
            Range(Cells(L, "I"), Cells(L, "L")).Interior.ColorIndex = Coul
            If Coul = Coul1 Then
                Coul = Coul2
            Else: Coul = Coul1
            End If
            Ok = False
        End If
    Next L
End Sub

24/07/2019, 16h37
saimone67

Alors là;

Bravo

Chapeau monsieur; ça fonctionne à merveille

Merci beaucoup