Concatener des périodes consecutives

[Guigui]

Bonjour le forum,

Voici mon problème :

J'ai une liste de personnes (des relevés d'absences) avec des dates de début et de fin pour chaque période.
Une même personne peut avoir plusieurs périodes d'absences consécutives ou non.

Mon but est de réunir en 1 ligne les périodes consécutives.
Là ou je me perd, c'est dans mes boucles !
2 boucles imbriqués mais comme je suprime les périodes traités .. mes boucles perdent la boule ..

Merci par avance pour votre aide
en PJ un fichier exemple

Slts
Guillaume

 

[piga25]

Re : Concatener des périodes consecutives

Bonjour,

Peut être comme ceci, mais avec l'ajout de colonnes

 

[Guigui]

Re : Concatener des périodes consecutives

Bonjour Piga25,

Merci pour l'approche.
Mon projet est entièrement en vba, j'avais oublié de le préciser.

Peut être a tu une idée ?

Cependant, rien que le fait de rajouter une ligne à ta proposition, fait apparaître des #N/A ...

Merci tout de même

 

[piga25]

Re : Concatener des périodes consecutives

Re,

Fichier modifié pour résoudre le problème des #NA

Désolé en VBA je ne sais pas faire.

 

[CHALET53]

Re : Concatener des périodes consecutives

Bonjour,

Un essai en VBA

 

[Guigui]

Re : Concatener des périodes consecutives

Bonjour Piga25, CHALET53, le forum,

Piga25, merci pour les corrections, j'allais m'en servir sans coup d'essai en vba.
Merci Chalet53, ça m'a l'air parfait !!
Je pensais bien à une boucle du style While ... Wend (ou assimilé !) mais je n'arrivais pas à l'écrire par manque de connaissance.

Merci à vous 2

Slts

 

[Guigui]

Re : Concatener des périodes consecutives

Re bonjour, CHALET53,

Je me permet de te retourner ta solution en PJ, j'ai reperé un petit dysfonctionement.
Peux tu y jetter un oeil s'il te plait.
Il semble que des périodes non consécutives soit considérés comme tels.

Merci par avance

 

[CHALET53]

Re : Concatener des périodes consecutives

Re,

Une modification
toutefois, cette ligne figurait en ligne 18 et en ligne 19 : j'en ai supprimé une (sinon ça se complique et je ne suis pas sûr de pouvoir traiter)

80 toto DS 29/04/2013 29/04/2013

 

[Guigui]

Re : Concatener des périodes consecutives

Hello,

C'est parfait la correction CHALET53.
Pour ce qui est des doublons je vais les épurer en amont, c préférable.
(ce ne sont pas réellement des doublons, il s'agit de la même période d'absence mais des durées d'absences différente ex : ABS le 29/04/2013 de 10h00 a 11h00 et ABS le 29/04/2013 de 14h00 à 17h00)

Je vais donc supprimer les lignes d'absence lorsqu'il s'agit "d'heures" et non la journée entière.

Merci beaucoup pour ton aide.

slts

 

[CHALET53]

Re : Concatener des périodes consecutives

Bonjour,

Vérifie cette version qui traite le cas évoqué hier : date début=date fin de la ligne précédente

a+

 

[Guigui]

Re : Concatener des périodes consecutives

Hello,

C tout bon également. merci pour cette modif.

Cependant, as tu une idée pour "optimiser" (accelerer) ce code ?
Mes valeurs sont sur 1500 lignes et le code à tourné durant 11min.

Au cas ou, est tu ok pour que je propose ton code dans un nouveau post du forum pour une aide extérieur ?

a+

 

[CHALET53]

Re : Concatener des périodes consecutives

pas de souci

 

[CHALET53]

Re : Concatener des périodes consecutives

Essaie cette version pour voir si c'est plus rapide

a+

 

[Guigui]

Re : Concatener des périodes consecutives

Hello,

J'ai regardé mais pas d'accélération notable ...
Merci pour l'essai.

 

[Guigui]

Re : Concatener des périodes consecutives

Correction ...

J'ai rajouté ces 2 lignes en début et fin de code.

Application.Calculation = xlManual

Application.Calculation = xlAutomatic

et résultat ... traitement de 1129 lignes en 1,29 sec ...



Merci encore