Bonjour
Merci pour ta macro.
Je l'écris en entier pour bien comprendre car je voudrais rajouter un test:
Dim temps As Date
Dim T As Date
T='01:00:00'
Dim diviseur As Integer
diviseur=Clnt(InputBox('Nombre de jours:','Saisie'))
resultat=Format(T/diviseur, 'hh:mm:ss)
C=3000
Do While temps<resultat
temps=temps+Cells(C,1)
je fais une action
C=C-1
Loop
Pour la formule, il faudrait ecrire T/30 *diviseur pour faire une règle de 3, par ex si T=6H, alors 10j=
il faut mettre en minutes soit 360minutes
Diviser par le nombre de jours d'un mois moyen,30 et multiplier par 10 soit:
T/30*diviseur=360/30 *10= 120minutes = '02:00:00'
Ai je vrai?
Le test que je voudrais rajouter est plus difficile
Mon action commence à la ligne du bas de tableau (3000) et s'accomplit en remontant les lignes jusqu'a ce que la durée en col1 soit egale à 1H ou à la variable qu'on vient de definir.
je voudrais rajouter une question 'Nom ?' saisir (nouvelle variable)
Je souhaite que l'action ne commence qu'a compter de la 1ère ligne dont la col 3 contient le Nom répondu a la question, puis fait l'action comme precedemment.
Est ce possible de rajouter cette condition?
(en fait l'action debute a la 1ere ligne contenant le nom pendant 1H de durée cumulée au lieu de commencer a la ligne 3000)
Merci et bon dimanche
JJ