planning congés

[juju]

bonjour,

je souhaiterais réaliser un planning pour les congés annuel. Ayant plusieurs demandes de congés, je voudrais connaître la date ou je saisi les congés d'une personne.

Je ne sais pas comment procédé, en ce moment j'ai un calendrier que je tape chaque année et je rentre les congés en mettant un "1" pour un jour de congé.

Merci de votre aide

 

[JBOBO]

Re : planning congés

bonjour,

Un essai par formule a placer en B6 puis en tirant vers le bas et en autorisant le calcul iteratif dans les options excel

=SI(B6=0;"";SI(SOMME(C6:AG6)<>0;SI(B6<>"";B6;AUJOURDHUI());""))

 

[JCGL]

Re : planning congés

Bonjour à tous,

Un essai avec une MeFC :



Mettre les dates de pose des Congés en B6 et suivantes

A+ à tous

 

[juju]

Re : planning congés

j'ai suivi tes informations mais cela ne fonctionne pas. En B6 j'ai ##. Comment faire ??

 

[juju]

Re : planning congés

merci JCGL, mais j'ai du mal expliquer.
Lors de ma saisi, mettre "1" dans les cases est ce possible de connaître la date ou j'ai saisi ses congés??
si tu ne comprends pas n'hésite pas à me le dire.

merci de ton aide

 

[JCGL]

Re : planning congés

Bonjour à tous,

Peux-tu essayer avec :

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Application.Intersect(Target, Range("C6:AG30")) Is Nothing And Target.Value <> 1 Then Exit Sub
Cells(Target.Row, 2) = Date
End Sub

Dans le module de la feuille

A+ à tous

 

[juju]

Re : planning congés

merci ca marche !!!
Peux tu m'expliquer ta macro, Stp! Comment modifier la Cellule B car sur mon planning c'est en E et non B.

merci de ton aide et j'essaye encore d'améliorer mon planning pour le rendre plus précis!!

 

[JCGL]

Re : planning congés

Bonjour à tous,

Remplace :

Cells(Target.Row, 2) = Date

par

Cells(Target.Row, 5) = Date

où Cells(Ligne,Colonne). Donc placé la date du jour dans la cellule de la ligne active en colonne 5 donc E.

En attachement, ton fichier modifié pour les lignes d'entête.

A+ à tous

 

[juju]

Re : planning congés

Un grand merci pour ton aide!!
J'ai vu que je pouvais sélectionner le mois que je voulais, mais si je met "1" dans une cellule en septembre par exemple je la retrouve en aout!! ma question : est ce que je peux laisser le "1" en septembre et rien n'avoir en aout.
Et comment as tu réalisé ton calendrier mois par mois !! ça m'intéresse beaucoup de connaître ta façon de faire pour les années futures.

 

[JCGL]

Re : planning congés

Bonjour à tous,

Je te conseille de faire une feuille par Mois en utilisant la liste de validation pour les mois.
Pour le changement d'année, il te suffit de modifier le 2011...

Le calendrier suivra...

A+ à tous

 

[juju]

Re : planning congés

bonjour,

est ce possible de cacher une ligne entière (ligne 5). Je souhaiterais qu'elle n'apparaisse pas lors de l'impression.

merci de votre aide

 

[JCGL]

Re : planning congés

Bonjour à tous,

Dans le ThisWorkBook :

Option Explicit

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.Rows("5:5").EntireRow.Hidden = True
ActiveWindow.SelectedSheets.PrintPreview 'PrintOut
ActiveSheet.Columns("A:A").EntireRow.Hidden = False
Range("A1").Select
End Sub

A+ à tous

 

[juju]

Re : planning congés

merci et si je veux que la colonne B soit masquer lors de l'impression, je remplace la 4ème ligne par BB et true??

 

[JCGL]

Re : planning congés

Bonjour à tous,

La ligne 5 et la colonne B masquées à l'impression puis affichage :

Option Explicit

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    ActiveSheet.Rows("5:5").EntireRow.Hidden = True
    Columns("B:B").EntireColumn.Hidden = True
    ActiveWindow.SelectedSheets.PrintPreview    'PrintOut
      ActiveSheet.Columns("A:A").EntireRow.Hidden = False
    Range("A1:C1").EntireColumn.Hidden = False
    Range("A1").Select
End Sub

A+ à tous

 

[juju]

Re : planning congés

merci j'aimerais améliorer mon planning. En effet si je change l'année, les cellules restent identiques. Est ce possible que je conserve les congés année 2011 et qu'en 2012 il n'y ai rien ??