cibleo
XLDnaute Impliqué
Bonsoir le forum,
J'ai un petit exercice à vous soumettre en VBA.
Explication : je dessers une localité en passant par 4 points (toujours dans un ordre établi) et dois déposer 1 personne à chacun de ces points.
Il faut 15 minutes pour rejoindre chaque point (c'est une constante) mais chaque personne, devant être déposée, dispose de RDV fixés qui n'ont pas d'ordre chronologique (plage jaune).
Question : comment calculer des horaires de dépose (plage verte) permettant à chacun de ne pas arriver en retard aux RDV fixés initialement.
En Feuil1, je suis parvenu à résoudre cet algorithme manuellement en procédant par étapes.
1ère étape : Calcul d'horaire en plage [G6:G3] aprés je pense qu'il faille passer par une boucle Do....loop, mais là je nage
Pouvez-vous m'aider, Cibleo
J'ai un petit exercice à vous soumettre en VBA.
Explication : je dessers une localité en passant par 4 points (toujours dans un ordre établi) et dois déposer 1 personne à chacun de ces points.
Il faut 15 minutes pour rejoindre chaque point (c'est une constante) mais chaque personne, devant être déposée, dispose de RDV fixés qui n'ont pas d'ordre chronologique (plage jaune).
Question : comment calculer des horaires de dépose (plage verte) permettant à chacun de ne pas arriver en retard aux RDV fixés initialement.
En Feuil1, je suis parvenu à résoudre cet algorithme manuellement en procédant par étapes.
1ère étape : Calcul d'horaire en plage [G6:G3] aprés je pense qu'il faille passer par une boucle Do....loop, mais là je nage
VB:
Sub Calcul_Horaire()
'Affiche les horaires dans [G6:G3]
'en retranchant 15 minutes à chaque itération
temps = (1 / 1440) * 15 '= 15 minutes
For i = 6 To 3 Step -1
'A la 1ère itération, je laisse la valeur initiale
'soit la valeur de F6 ici
If i = 6 Then Cells(i, 7) = Cells(i, 6) Else _
Cells(i, 7) = Cells(i + 1, 7) - temps
Next
End Sub
Pouvez-vous m'aider, Cibleo