Discussion :

[yobor]

Bonjour à tous,
Je suis en train de résoudre un problème d’optimisation, et je suis arrêté devant un problème de tri à conditions, j’ai essayé de chercher une solution mais ça été très difficile pour moi. Mon problème est le suivant :
J’ai deux colonnes, « coté 1 » et « coté 2 », chaque colonne contient des références des outils changeables des machines de production, et à chaque changement d’outil je perde 20 min, c à d :si la case
A(i) =16041501Z et A(i+1) =E00022577 ça signifie que j’ai changé l’outil 16041501Z avec l’outil E00022577 et alors j’ai perdu 20 min et s’il y a un changement dans les deux colonnes c à d : A(i) diffèrent de A(i+1) et B(i) diffèrent de B(i+1) j’ai perdu 20 min +20min =40 min.
Mon objectif est de trier les deux colonnes de tel sort que le temps de changement des outils sera le minimum possible, c à d minimiser les changements au niveau des deux colonnes !. Vous trouvez mon fichier au dessous
je vous serez très reconnaissent si vous m'aidez

[eriiic]

Bonjour,

Peux-tu préciser si coté 1 et coté 2 sont interchangeables pour chaque ligne ?
eric

[yobor]

bonjour eriiic ,
oui ,les deux cotés sont interchangeables pour chaque ligne

[eriiic]

Pas trop d'idée pour l'instant mais ton fichier n'est pas propre.
Il y a des outils douteux comme 3.20256E+13
et d'autres comme "32025Y18Z " (coté 2)

[yobor]

Les cases contiennent des références des outils, c à d que chaque outil a une référence ou bien un « nom » qui ne contient pas nécessairement que des chiffres mais aussi des caractères.

[eriiic]

ok.
Mais 3.20256E+13 correspond à 32025600000000 !?!
et
32025Y18 ou 32025Y18 suivi de 10 espaces ce n'est pas pareil pour excel.
Tes outils ont plutôt l'air d'avoir 9 car.
Pour nous ça ne change rien, pour toi c'est à voir...

[Klin89]

Bonsoir à tous,

yobor, je n'ai pas pigé ce que tu souhaitais faire.
Pour y voir plus clair, je me suis contenté de regrouper les réferences identiques dans un même bloc.

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
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
Option Explicit
Sub test()
Dim a, w(), t As Byte, i As Long, n As Long, x, y
    With Sheets("Sheet1").Cells(1).CurrentRegion
        a = .Value
        With CreateObject("Scripting.Dictionary")
            .CompareMode = 1
            For t = 1 To 2
                For i = 2 To UBound(a, 1)
                    If a(i, t) <> "" Then
                        If Not .exists(a(i, t)) Then
                            ReDim w(1 To 3)
                            ReDim tablo(1 To 2, 1 To 1)
                        Else
                            w = .Item(a(i, t))
                            tablo = w(3)
                        End If
                        w(t) = w(t) + 1
                        If UBound(tablo, 2) < Application.Max(w(1), w(2)) Then
                            ReDim Preserve tablo(1 To 2, 1 To UBound(tablo, 2) + 1)
                        End If
                        tablo(t, w(t)) = a(i, t)
                        w(3) = tablo
                        .Item(a(i, t)) = w
                    End If
                Next
            Next
            x = .keys: y = .items
        End With
    End With
    Application.ScreenUpdating = False
    'Restitution et mise en forme
    On Error Resume Next
    Application.DisplayAlerts = False
    Sheets("Restitution").Delete
    Application.DisplayAlerts = True
    On Error GoTo 0
    Sheets.Add.Name = "Restitution"
    With Sheets("Restitution").Cells(1)
        .Parent.Cells.Clear
        .Resize(1, UBound(a, 2)) = a
        n = 1
        For i = 0 To UBound(x)
            With .Offset(n).Resize(UBound(y(i)(3), 2), UBound(y(i)(3), 1))
                .Value = Application.Transpose(y(i)(3))
                .BorderAround Weight:=xlThin
                n = n + .Rows.Count
            End With
        Next
        With .CurrentRegion
            .Borders(xlInsideVertical).Weight = xlThin
            .Font.Name = "calibri"
            .Font.Size = 10
            .VerticalAlignment = xlCenter
            .HorizontalAlignment = xlCenter
            With .Rows(1)
                .Font.Bold = True
                .BorderAround Weight:=xlThin
                .Cells(1).Interior.ColorIndex = 44
                .Cells(2).Interior.ColorIndex = 43
            End With
            .Columns.AutoFit
        End With
        .Parent.Activate
    End With
    Application.ScreenUpdating = True
End Sub

Après on fait quoi

klin89