Planning vacances PME

Bonjour à tous,

je souhaite modifier le planning ci-joint de façon à pouvoir distinguer trois catégories d'absence :

• maladie
• vacances
• déplacement professionnel

Actuellement, pour mettre quelqu'un absent il suffit de taper un "A" (ou "a" dans la journée voulue) Un format conditionnel met alors la cellule en rouge.

Les compteurs se mettent à jour...

Je souhaite avoir une lettre et une couleur associée à chaque type d'absence (et un compteur)

Merci de votre aide

A+

Bonjour

Un petit essai!

Bonjour

Une autre méthode

Je te laisse tester

Cordialement

festysonic a écrit :

Bonjour

Un petit essai!

Merci beaucoup d'avoir pris le temps de me répondre.

Auriez-vous la gentillesse de m'aider à créer trois compteurs : maladie, vacances, et déplacement (avec les colonnes de cumul annuel) ?

Merci d'avance

bonne journée

-- 05 Juin 2011, 09:02 --

Amadéus a écrit :

Bonjour

Une autre méthode

Je te laisse tester

Cordialement

Merci beaucoup pour ton aide.

Le menu déroulant est pratique mais les couleurs de case ne changent pas. Comment faire ?

Peux-tu m'aider à créer selon ta méthode quatre compteurs : maladie, vacances, déplacement et rtt (avec les colonnes de cumul annuel) ?

Merci encore pour ton temps.

Bonne journée

Bonjour

Chez moi, ça marche

Voir fichier

cordialement

Amadéus a écrit :

Bonjour

Chez moi, ça marche

Voir fichier

cordialement

Merci encore. A présent je vais essayer de comprendre comment tu as fait.

Bonne soirée

Bonjour

1) J'ai mis en Feuil1 colonne C les couleurs et les Codes correspondants en commençant par une cellule incolore. Et j'ai nommé "Couleurs" cette liste représentée par la formule

=DECALER(Feuil1!$C$2;;;NBVAL(Feuil1!$C$1:$C$13))

ceci permet si besoin de rajouter des symboles et couleurs jusqu'à la ligne 13 sans changer de formule.

2) J'ai nommé "planning" la plage standard correspondant à I6:AL24 de toutes les feuilles (sauf juil-août)

=!$I$6:$AL$24

3) Chaque feuille (sauf juil-août) contient le Code

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect([planning], Target) Is Nothing Then
   Target.Interior.ColorIndex = [couleurs].Find(Target, LookAt:=xlWhole).Interior.ColorIndex
  End If
End Sub

4) Listes déroulantes

Toutes les cellules des plages concernées contiennent les listes de choix

Menu "Données" "Validation"

Dans "Autoriser" choisir "Liste"

Dans "source", taper la formule

=Couleurs

Remarque: J'ai adapté un Code trouvé sur le Net.

Cordialement