Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2013 VBA / Extraction de dates et heures comprises entre 2 autres selon condition.

PMG

XLDnaute Junior
Bonjour le Fil, Le Forum,

Pourriez vous svp m'aider à finir un code, certains paramètres m'échappent encore!

J'ai un tableau (origine) avec 3 colonnes: code / date de début avec heure / date de fin avec heure.
J'aimerai décomposé chaque ligne du tableau (origine) comme l'exemple ci dessous en tenant compte des jours ouvrés (lundi au vendredi) et heures de travail (9 à 13 et 14 à 19):



J'arrive à extraire une liste de dates mais de là a y ajouter des heures!

Merci d'avance pour votre disponibilité et vos lumières!
PMG
 

Pièces jointes

  • Extraction_dates.xlsm
    33.9 KB · Affichages: 18
Trier par date Trier par votes

PMG

XLDnaute Junior
Re,
J'avais commencé à comprendre et reprendre le code, mais j'en étais encore loin (pas ton niveau).
J'ai bien compris le code super intéressant par rapport à If Else etc...

Juste un petit problème sur la première date, il manque une date:
33 29/05/20 14:00 29/05/20 18:00

Je pense que c'est dans la partie Case > 1 car si l'heure de début est comprise entre T1 et T2,
on rajoute une ligne avec T3 et T4.

En tout cas c'est très clair, merci je vais m'en inspirer lors de prochains codes.

Merci bcp de ta disponibilité Jean-Marie!

Paul
PMG
 
Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc
Bonjour PMG
Bonjour le Fil ,le Forum

Une version modifiée (continues de regarder si tout est Ok !)

Bonne journée
Jean marie
 

Pièces jointes

  • Extraction_dates Chti160 6.xlsm
    44.7 KB · Affichages: 3
Vote positif 0 Vote négatif

PMG

XLDnaute Junior
Bonjour ChTi160
Le Fil, Le Forum,

C'est parfait!
J'ai compté 7 possibilités et tout à l'air de fonctionner!

Simplement cette partie du code (si plusieurs jours), je ne la comprends pas. Est elle nécessaire?
Car tout fonctionne sans elle apparemment.
VB: 
Case Dte = FirstDate And Hredebut >= T1 And Hredebut <= T2 And Hrefin >= T3 And Hrefin <= T4
x = x + 1
ReDim Preserve Tab_Recap(3, x)
Tab_Recap(1, x) = StrCode
Tab_Recap(2, x) = Format(Dte + T3, "mm/dd/yyyy hh:mm")
Tab_Recap(3, x) = Format(Dte + Hrefin, "mm/dd/yyyy hh:mm")

Un grand merci
Bonne journée
PMG
 
Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc
Re
Supprime ! si tu as vérifié que ca ne sert a rien , je vais regarder Lol
EDIT : effectivement , j'ai du laisser cette partie , après l'avoir décomposée !
jean marie
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

M
  • Résolu(e)
XL 2013 Calcul des heures travaillées de jour, de nuit et plus de 24h consécutives
2 3
Réponses
41
Affichages
1 K
Manutela
M
P
  • Question
XL 2019 Nbr d'heures entre deux dates et heures différentes.
Réponses
3
Affichages
647
Hasco
S
  • Question
XL 2019 Extraction Week end et férié selon date
Réponses
14
Affichages
1 K
JHA
J
T
  • Question
XL 2016 Saisir la différence entre 2 dates sous 2 conditions
Réponses
6
Affichages
449
Dranreb
B
  • Question
XL 2016 Tableau calcul nombre de jours entre 2 dates mois par mois
Réponses
5
Affichages
700
Balooners
B
M
  • Résolu(e)
XL 2016 VBA - Traitement de données en fonction de plusieurs critères avec Dictionary
2
Réponses
29
Affichages
1 K
Mak_tarmak
M
  • Résolu(e)
XL 2019 [Résolu] Tri de date avec condition dans un tableau
Réponses
6
Affichages
283
apicius46
P
  • Question
XL 2016 rechercher si une date est comprise entre 2 dates de 2 onglets positionnées dans la même cellule
Réponses
2
Affichages
514
pene
P
E
  • Question
Microsoft 365 Calcul de temps en heures et minutes entre deux dates différentes
Réponses
7
Affichages
2 K
evelyn
E
I
  • Question
XL 2016 Colorer cellules entre 2 dates et étendre la mise en forme et ajout de texte
Réponses
1
Affichages
403
Irina1009
I
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…