Discussion :

[Overcrash]

Voila j'ai un fichier qui me génère un calendrier automatiquement ,
il peut me rajouter mes collaborateur quand je le souhaite via un menu contextuel .

Mon soucis mon boss une fois le travail fini
me rajoute une contrainte il veut quand a chaque fin de semaine la somme des conger ou arrêt qui a été pris .

Donc la somme se fait chaque semaine sauf en début de mois et fin de mois
par exemple si le mois commence un mercredi on fait la somme de mercredi jeudi et vendredi .

Je n'arrive pas a faire la somme de ces conger et de la placer dans une case total en dessous chaque vendredi, vous voyer ce que je veux dire ?

je vous donne mon fichier :mon fichier


Donc voila si vous pouver me donner un coup de main ou une piste svp , parce que je cherche sur le net et dans les bouquins depuis 2 jour mais la je surf plus je nage et bientôt vais me noyer

[ilcocodrillo]

Je ne suis pas tout à fait certain d'avoir compris ton problème.

tu cherche à faire un TCD avec les activité, congés,etc de différentes personnes et regrouper ça par semaine, mois, etc..

si ce n'est que ça alors oubli VBA il y beaucoup plus simple juste avec Excel.
tu fais une liste avec des entêtes nom, date, fonction, département, activité, durée, enfin ce que tu veux et chacun ajoute à la suite ses propres enregistrements par données Formulaire (que tu peux faire appraitre avec VBA par contre) ensuite tu fais ton TCD à partir de cette liste et là tu regroupe les données dans le sens qui te plait.

en espérant t'avoir aider un peu.

[Overcrash]

Tu as vu le fichier que j'ai joint ?

parce que moi ce a partir d'un tableau et je ne souhaite pas changer le tableau mais juste rajouter cette *$#$ùm contrainte ^^.

Heu... ce quoi TCD?

j'ai commencer a faire un algo qui ne fonctionne pas mais je vais quand meme le mettre pour que vous puissez voir on j'en suis dans mes recherches :

Variables : num_case
effectif
ligne
colone
jour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Tant que num_case <32   'jusqu'a 31
'      Si case = jaune  
'      '      Recuperer effectif  
'      '       Tant que ligne <(effectif+4) Faire 
'      '       '      Si case =couleur alors 
'      '       '      '        jour=jour +1
'      '       '      '        ligne = ligne +1
'      '       '      Sinon 
'      '       '      '        ligne =ligne +1
'      '       '      FinSi 
'      '       Fin tant que 
'      Sinon 
'      '      Incrementer la colone 
'      Fin Si 
Fin tant que