Plannings

[mattei]

Bonjour,

Je cherche à regrouper les données de plusieurs plannings sur un planning récapitulatif, j'ai tenté d'effectuer des tris et copie mais sans succès.

Je sèche.

Quelqu'un as-il une idée?

Fichier joint

Merci à tous

Matt

 

[herve62]

Re : Plannings

Bonsoir Matt

Je viens te terminer l'étape 1 : recopie de matin et am dans le planning géné ( pour 3 emp.)
je cherche pour éviter les cases vides , le code est simple mais plutôt un casse tête d'incrémentation de variables
Pour le tri ce sera très dur car sur une ligne il se peut que tu ais : (10:00 ; 12:00) puis (09:00 ; 10:00) et (11:00 12:00), ce que j'ai vu , donc en tri tu auras : (09:00 10:00) (10:00 11:00) (12:00 12:00) donc cela ne va pas !

A+
Hervé

 

[mattei]

Re : Plannings

Bonjour Hervé

Merci pour ton boulot,

Je décortique ta macro actuellement, pour ta question sur les horaires, (10:00 ; 12:00) puis (09:00 ; 10:00) et (11:00 12:00), il ne peut pas y avoir d'horaires qui se chevauchent de la sorte, si c'est le cas c'est une erreur sur le planning. désolé
Nous aurions donc (10:00 ; 12:00) puis (09:00 ; 10:00) et (08:00 09:00) qui s'afficheraient
(08:00 09:00) (09:00 10:00) (10:00 12:00).

A+

Matt

 

[herve62]

Re : Plannings

Salut Matt
J'ai mis en jaune (riri , fifi ) l'exemple que j'avais trouvé, c'est donc une erreur ? comme tu dis

Le principe : 2 boucles imbriquées partant de 6 (F3) avec saut de 9 pour empl. suivant au matin et partant de 10 (J3) pour l'am , ces 2 boucles sont identiques , j'ai changé le nom des variables pour éviter les confusions
Je lis la 1ere donnée puis ajoute de 0 à 3 pour le groupe de 4 que je recopie dans le planning
d'ou au départ : d_col = 64
For col_mat = 6 To 24 Step 9 --> la 1ere copie se fera en col 70 donc comme col_mat=6 ( 1ere donnée à lire en F3) je dois ajouter 64 , en sorte c'est la nouvelle origine de la plage, ensuite un bloc de 4 données ( la 1ere je n'ajoute rien) puis le +x et + y ( 1 à 3)
Ces 2 boucles sont encadrées par une principale lig=3 to 33 pour lire toutes les lignes

Là je cherche à modifier : d_col + y par une autre variable qui ne s'incrémentera que si cell. non vide ( en plus du "R) je dois aussi ajouter cette condition dans le IF
Si cell="R" ou cell="0" ( j'ai vu que vide=0) --> saut pour donnée suivante
Comme cela la recopie se fera bout à bout et évitera les "trous"
Voilà j'espère que mon explication t'aidera à poursuivre

A+
Hervé

 

[mattei]

Re : Plannings

Explication claire hervé,
je fais fonctionner la macro pas à pas et je cherche les macro de filtre sur le forum.Déja mon probleme est bien avancé, encore merci

Matt

 

[herve62]

Re : Plannings

Bonsoir Matt
Voilà c'est ....fini !!! après bien du temps ...mais j'ai bien aimé

Je te joins le fichier ( attention il y a peut-être des formules qui ont disparues suite à essais) REMARQUE : j'ai supprimé la colonne après CC !! donc tu as : CC et CD direct ( je n'ai pas vu de formules donc j'ai pensé que cela ne servait à rien et m'arrangeait)
Donc : données recopiées bout à bout ( matin et am ) , pas de "R" et "0" , puis tri ascendant
rem :J'ai supprimé une partie en "Index" employé sans nom pour alléger sinon + de 48k en zip
et donc pas possible de joindre le fichier complet
!!! Cette solution ne reste valable que pour les 3 premiers empl. .... A toi de faire évoluer s'il le faut , simplement il faut repérer les colonnes de départ et d'arrivée + la limite des for/next

BONNES FETES DE REVEILLON

Hervé

PS : il y a 2 erreurs avec : 12,00 12,00 je te l'avais dit ... à toi de voir dans ta feuille "Index"
Je t'avais envoyé un e-mail via ce forum , l'as tu reçu ??

 

[mattei]

Re : Plannings

Hervé

Franchement merci !!!
pour cette macro qui marche parfaitement et qui correspond à ce que voulais.

J'ai compris son fonctionnement et je la ferai évoluer pour les autres exemplaires.

Encore merci et bravo, quelle maîtrise de VB, j'ai du boulot pour apprendre tout çà!!

Toi aussi bonne fêtes de fin d'année et joyeuse année 2008.

Matt

 

[herve62]

Re : Plannings

Matt

Heureux d'avoir rendu service , tu vois quand on explique BIEN ce que l'on veut .... la solution peut arriver
Peut-être y avait-il qq chose de plus radical en termes de VBA mais au final c'est d'avoir une appli qui fonctionne , je m'étonne de ne pas avoir vu d'autres XLDnautes s'en mêler ?? mais bon .. le sujet n'était peut être pas attractif !!! je sais que chacun a sa spécialité

Si par la suite dans ta progression tu as encore des questions n'hesite pas !!

BONNE ET HEUREUSE ANNEE 2008 !!!!!!!!!!

Hervé