Traitement avec condition des données excel avec vba
Bonjour,
S'il te plait, aide moi. j'ai un petit problème j'y crois mais je ne sais pas comment fait.
Feuille 1 possède :
| Type |
DateTime Client 1 |
Client 2 |
Client 3 |
Client 4 |
Client 5 |
Client 6 |
|
|---|
| I |
28/06/2018 13:47 |
0.00 |
0.00 |
0.00 |
0.00 |
0.00 |
0.00 |
| I |
29/06/2018 13:59 |
0.14 |
0.12 |
0.00 |
0.00 |
0.00 |
0.00 |
| I |
29/06/2018 14:09 |
0.15 |
0.00 |
0.00 |
0.00 |
0.00 |
0.00 |
| I |
29/06/2018 14:19 |
0.05 |
0.00 |
0.00 |
0.00 |
0.00 |
0.00 |
| I |
29/06/2018 14:29 |
0.00 |
1.69 |
0.00 |
0.00 |
0.00 |
0.00 |
| I |
29/06/2018 14:39 |
0.00 |
1.92 |
0.00 |
0.00 |
0.00 |
0.00 |
| I |
29/06/2018 14:49 |
0.00 |
0.00 |
0.00 |
|
0.00 |
0.00 |
| I |
29/06/2018 14:59 |
0.00 |
0.00 |
0.00 |
0.00 |
0.00 |
0.00 |
| I |
29/06/2018 15:09 |
0.00 |
0.00 |
0.00 |
0.00 |
0.00 |
0.00 |
| I |
29/06/2018 15:19 |
0.00 |
0.00 |
0.00 |
0.00 |
0.00 |
0.00 |
| I |
29/06/2018 15:29 |
0.00 |
0.00 |
0.00 |
0.00 |
0.00 |
0.00 |
| Type |
DateTime |
Client 1 |
Client 2 |
Client 3 |
Client 4 |
Client 5 |
Client 6 |
|---|
| S |
29/06/2018 15:49 |
288619 |
288619 |
547820 |
288620 |
86400 |
86400 |
| S |
29/06/2018 17:49 |
281419 |
281419 |
540620 |
281420 |
86400 |
86400 |
| S |
29/06/2018 19:49 |
274219 |
274219 |
533420 |
274220 |
86400 |
86400 |
| S |
29/06/2018 21:49 |
267019 |
267019 |
526220 |
267020 |
86400 |
86400 |
| S |
29/06/2018 23:49 |
259819 |
259819 |
519020 |
259820 |
86400 |
86400 |
| S |
30/06/2018 01:49 |
259200 |
252613 |
511812 |
259200 |
86400 |
86400 |
| Type |
DateTime |
Tension |
|
|
|
|
|
|---|
| T |
29/06/2018 14:49 |
12.84 |
|
|
|
|
|
| T |
29/06/2018 15:49 |
12.46 |
|
|
|
|
|
| T |
29/06/2018 16:49 |
12.47 |
|
|
|
|
|
| T |
29/06/2018 17:49 |
12.34 |
|
|
|
|
|
| T |
29/06/2018 18:49 |
12.22 |
|
|
|
|
|
| T |
29/06/2018 19:49 |
12.13 |
|
|
|
|
|
| T |
29/06/2018 20:49 |
12.03 |
|
|
|
|
|
| T |
29/06/2018 21:49 |
12.04 |
|
|
|
|
|
| T |
29/06/2018 22:49 |
12.05 |
|
|
|
|
|
Ce que je voulais faire est :
- Prendre date et l'heure debut de DateTime pour I de feuille 1 et stocker dans la feuille 2
- Prendre date et l'heure fin de DateTime pour T de feuille 1 et stocker dans la feuille 2
- Tester les dates et les heures pour I
condition :
si datetime 1 = n
verifier si datetime n+1 => datetime n + 9 min =<datetime n+1=<datetime n+11min sinon Erreur : detail et enregistrer dans la feuille 2
Pour S:
datetime 1 = n
verifier si datetime n+1 => datetime n + 1h 30min =<datetime n+1=<datetime n+5h 50min sinon Erreur : detail et enregistrer dans la feuille 2
Pour T, tous les 1 h
Merci d'avance pour votre aide.
Cordialement
