Discussion :

[tfuhr]

Bonjour, et merci d'avance pour votre aide.

J'ai une liste de 80 magasins à livrer depuis un entrepôt. Cette livraison peux s'effectuer en singlette (A-R direct au magasin), doublette (Magasin 1, Magasin 2, Retour à l'entrepôt) ou triplette (Magasin 1, Magasin 2, Magasin 3, Retour à l'entrepôt). J'ai d’ors et déjà établit toute les combinaison possibles (au nombre de 85400 (82160 triplettes, 3160 doublettes, et 80 singlettes) avec en colonne A le magasin 1, Colonne B le magasin 2, et en colonne C le magasin 3. La colonne D contient le coût lié à chaque route.

J'aimerais savoir s'il est possible d'écrire un code qui détermine la meilleure combinaison (au moindre coût) pour que les 80 magasins soit livrés

A noter, 33 camions sont disponibles pour les livraisons et certains peuvent très bien faire plusieurs tournées si celles-ci font disons moins de 200km

D'autres variables sont amenées à être incorporées mais j'espère obtenir une piste de travail qui me permettrais d'être mis sur la bonne voie.

J'avoue que mes connaissances en VBA sont très limitées et je ne sais pas si ce que je demande est réalisable de façon automatique et sans trop de travail.

Je vous remerci d'avance pour votre aide, conseils et remarques,

Cordialement

Tfuhr

[Montor]

Pour calculer les chemins entre les villes fais des recherche sur algorithme de Dijkstra

[patricktoulon]

Bonjour
Pour faire cela il faudrait que tu connaisses la distance du dépot à chaque magasin.
- Ensuite scinder ta carte ainsi obtenue en 4 point cardinaux en respectant les possibilitées (route existante ect....)
- Ensuite couper ta liste de magasin par tes 4 points(depo---->dernier magasin de chaque tranche)=(plus grande distance )
- Ensuite combien de camions disponibles (chauffeurs compris)
- Ensuite les heures disponibles de livraison

Comme tu peux le voir çà fait beaucoup de données et il en manque.
Aurais tu un classeur en exemple?

[tfuhr]

Bonjour Patrick,

Merci de trouver ci-joint mon travail.

33 camions sont disponibles pour la livraison et les 80 magasin doivent être livrés. Certain camions peuvent faire 2 livraisons si chacune font moins de 3 heures.

Seule 7000 routes sont dans le fichier que je vous joint par soucis de respect des tailles limites liés au contrainte du forum. Mais cela devrait vous donner une bonne idée de l'organisation de mon fichier.

Merci d'avance pour votre aide,

tfuhr

[Montor]

Je vois sur ton profils que tu es étudiant est ce que c'est une d'exercice de l'école

[tfuhr]

Bonjour Montor. Je suis effectivement étudiant mais actuellement en stage dans une entreprise dans laquelle je suis chargé d'optimiser le transport

[Montor]

Pourquoi ne pas utiliser Autofilter

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
Sub TriData()
Dim LastRow As Long
   With ActiveWorkbook.Worksheets("CombiRoute")
         LastRow = Range("A1").End(xlDown).Row
      With .Sort
        .SortFields.Clear
        'Tri par Cost
        .SortFields.Add Key:=Range("K2:K" & LastRow), SortOn:=xlSortOnValues, _
             Order:=xlAscending, DataOption:=xlSortNormal
        .SetRange Range("A2:K" & LastRow)
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
      End With
   End With
End Sub
 
Sub FindPath(ByVal Start As String, ByVal Dest As String)
Dim LastRow As Long
   With ActiveWorkbook.Worksheets("CombiRoute")
       LastRow = Range("A1").End(xlDown).Row
      With .Range("A1:K" & LastRow)
           .AutoFilter Field:=3, Criteria1:=Start
           .AutoFilter Field:=7, Criteria1:=Dest
      End With
   End With
End Sub

exécuter (une seule fois) la fonction TriData pour trier les donnés
après FindPath pour trouver toutes possibilités disponibles

Code :

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

FindPath 5, 10