mzubka
Habitué
Bonjour ,
Je souhaite réaliser une macro me permettant d'optimiser des livraisons.
Données entrés : Jour et horaire de livraison
Fonction : Evaluer à partir d'un tableau, quand la marchandise pourra être expédié.
Je teste donc si mon jour et heure d'arrivée permet une expédition le jour même ou sinon a j+1, +2 etc.
Voici le code que j'ai réalisé mais apparemment je dois avoir un problème dans mes boucles
Quelqu'un aurait une petite piste? Le code compile mais ...
Je souhaite réaliser une macro me permettant d'optimiser des livraisons.
Données entrés : Jour et horaire de livraison
Fonction : Evaluer à partir d'un tableau, quand la marchandise pourra être expédié.
Je teste donc si mon jour et heure d'arrivée permet une expédition le jour même ou sinon a j+1, +2 etc.
Voici le code que j'ai réalisé mais apparemment je dois avoir un problème dans mes boucles
Code:
Dim J_ch As Integer
Dim H_ch As Integer
Dim J_Liv As Integer
Dim n As Integer
Dim m As Integer
Dim Delta As Integer
J_ch = 1
For m = 5 To 70
For n = 4 To 8
If (Cells(m, n) < 0 And J_ch = Cells(m, n)) Then
If (H_ch < Cells(m, n + 5)) Then
J_Cok = J_ch
J_Liv = Cells(m, n + 8)
Delta = J_Liv - J_ch
Cells(m, 10) = Delta
Else
J_Cok = Cells(m, n + 1)
J_Liv = Cells(m, n + 8)
Delta = J_Liv - J_ch
Cells(m, 10) = Delta
End If
End If
Next n
Next m
End Sub
Quelqu'un aurait une petite piste? Le code compile mais ...