synthese date

[MISTERJUNGLE]

bonjour le forum,

voila la chaleur c'est installée... (ainsi que dans mon cerveau°)
j'ai besoin de retranscrire les dénomination "CP";"AT".... se situant sur la feuille "planning" dans la feuille "synthèse"sous forme de date et par nom de salaries(e)
ci joint le fichier.......en vous remerciant pour m'indiquer une piste
mais je préfère une formule
ayant parcouru le forum je ne trouve pas ma demande
merci

 

[JCGL]

Re : synthese date

Bonjour à tous,

Je ne peux pas ouvrir ton fichier compressé...

A+ à tous

 

[ROGER2327]

Re : synthese date

Bonjour MISTERJUNGLE
Bonjour JCGL

Bonjour à tous,

Je ne peux pas ouvrir ton fichier compressé...

A+ à tous

J'ai un peu plus de chance : j'ouvre le fichier compressé.
Mais j'y trouve un fichier TEST 2009.xlsm... ...inexploitable.
​

ROGER2327

 

[MISTERJUNGLE]

Re : synthese date

RE_LE FORUM

ci joint nouveau fichier en vous remerciant pour votre aide

 

[Monique]

Re : synthese date

Bonjour,

Un essai mais avec une autre présentation

 

[MISTERJUNGLE]

Re : synthese date

Bonsoir Monique,

c'est super ,par contre mon problème est le suivant:
30 salaries(e) ,est il possible de réduire les tableaux en un seul car je dois l'imprimer en fin de mois (écologique soyons ou devenons le...)
Encore un grand Merci MONIQUE
le forum est génial ,je pense adhérer début aout au club car beaucoup de personne le méritent...
merci et à plus
ps: si tu croises WILFRIED dans le forum passe lui le bonjour

 

[Monique]

Re : synthese date

Bonjour,

Je ne sais pas ce que tu veux imprimer
Si tu veux le détail des dates de chacun, il faudra plusieurs feuilles

Sans date mais avec le nombre de jours par type d'absence
une feuille devrait suffire

Dans le fichier :
les absences en ligne, les noms en colonnes, une liste de validation pour choisir le mois ou l'année entière
Une plage nommée cette fois "LigneNomImp" vu la position des noms

 

[MISTERJUNGLE]

Re : Synthese Bis Date



Bonjour Monique et le forum,

est il possible de me montrer un exemple du tableau avec un salarie,
nd de jour: CP_date de début_date de fin
MAL_date de début_date de fin
AT_date de début_date de fin
exemple du tableau précèdent mais avec la date de début et de fin car c'est le plus important pour moi
merci

 

[BOISGONTIER]

Re : synthese date

Bonjour,

Voir PJ

JB

 

[MISTERJUNGLE]

Re : synthese date

RE LE FORUM

UN GRAND MERCI A TOUS
SUPER MR BOISGONTIER AINSI QU'A MONIQUE.....
J'AI TROUVER SUR LE FORUM UN PLANNING ABS. DE MR BOIGONTIER MAIS IMPOSSIBLE DE RETRAVAILLER LA MACRO POUR LA SYNTHESE
(NIVEAU TROP BAS)
C'EST FORMIDABLE CETTE ENTRAIDE
BON DIMANCHE A TOUS ET A BIENTÔT
pardon pour les majuscules

 

[BOISGONTIER]

Re : synthese date

Bonjour,

Sur l'onglet BD, récap sous forme de BD
En 2007, la barre de coloriage est dans l'onglet Compléments du ruban

http://boisgontierjacques.free.fr/fichiers/Dates/jb-planningmensuelBarreBoutons.xls

JB

 

[MISTERJUNGLE]

Re : synthese date

Bonjour et Merci

Mon souci:

dans la feuille "planning" j'ai couper les astreintes en 2 groupes et lors de la synthèse ( deuxième feuille)je m'aperçois que la macro prend en compte les
lignes 17,18,19,20
QUELLE LIGNE DE COMMANDE POUR PASSER DE LA LIGNE 16 "FRANÇOIS"
A LA LIGNE 21 "PAUL"
Beaucoup de tentatives mais toujours des erreurs!!!!

ci joint la macro (BOISGONTIER)

Sub URGENTISTES()
Set p = Sheets("planning")
Set s = Sheets("synthast")
nbCol = 90
s.[A3:E1000].ClearContents
For ligne = 5 To 16 21 To 28??????
i = 2
Do While i < nbCol
témoin = False
Do While p.Cells(ligne, i) = "" And i < nbCol
i = i + 1: If i = nbCol Then témoin = True
Loop
If Not témoin Then
typeCongés = p.Cells(ligne, i)
début = p.Cells(4, i)
Do While p.Cells(ligne, i) = typeCongés And i < nbCol
i = i + 1: If i = nbCol Then témoin = True
Loop
If Not témoin Then
fin = p.Cells(4, i - 1)
ligneBD = s.[A65000].End(xlUp).Row + 1
s.Cells(ligneBD, 1) = p.Cells(ligne, 1)
s.Cells(ligneBD, 2) = début
s.Cells(ligneBD, 3) = fin
s.Cells(ligneBD, 4) = typeCongés
s.Cells(ligneBD, 5) = fin - début + 1
End If
End If
Loop
Next ligne
End Sub

 

[BOISGONTIER]

Re : synthese date

Voir PJ

JB

 

[MISTERJUNGLE]

Re : synthese date

UN GRAND MERCI BOIGONTIER

Je vais approfondir tout cela au travail
Bonne journée a toi et au forum