XL 2013 Colorer les jours dans un planning de présence (Résolu par JOB75)

[susaita]

Bonjour a tous,
dans le fichier ci-joint j'ai un planning de présence et ce que je souhaite avoir c'est un code vba pour colorer chaque cellule par les couleurs qui se trouvent sur l'onglet DATA, cad quand je choisi un motif d'absence dans la liste que j'ai sur l'onglet septembre-2016 il me donne la couleur qui lui correspond toute en sachant que le code sera valable pour les mois qui vont s'ajouter par la suite.

puis je veux interdire la visualisation de la liste déroulante dans les dimanches

Merci d'avance

 

[susaita]

Bonsoir JOB,
serait il possible d'enlever la colonne A de l'onglet DATA (dates pour tri) ?

 

[job75]

Re,

Surtout pas.

Bonne nuit.

 

[job75]

Bonjour susaita, le forum,

Puisque nommer la plage "Sheetlist" par macro prend trop de temps, utilisons la formule classique :

=DECALER(DATA!$B$2;;;MAX(NBVAL(DATA!$B:$B)-1;1))

Fichiers (2).

Avec 120 feuilles la macro Worksheet_Activate s'exécute en 0,11 seconde.

J'ai masqué la feuille "DATA".

Edit : concernant la macro Worksheet_Activate :

- j'ai amélioré les tests sur les variables n et i

- je l'ai testée avec 1200 noms de personnes : la durée d'exécution est à peine modifiée.

Bonne journée.

 

[susaita]

Bonjour Job, le forum
je préfère que la feuille DATA soit affichée....
qu'est ce que je dois changer dans le code ???

Merci

 

[job75]

Re,

Très curieux que vous ne sachiez pas ça, c'est pourtant élémentaire.

Onglet ACCUEIL => Format => Visibilité...

Mais il est nécessaire d'afficher la feuille "DATA" uniquement si on veut modifier la plage "Codes".

Le reste du temps l'utilisateur n'a pas besoin de la voir ni surtout d'y toucher.

D'après ce que j'ai vu vous vous méfiez des utilisateurs puisque vous protégez le code VBA...

A+

 

[susaita]

re,
je croyais que vous masquer DATA avec VBA
j'ai oublié déprotéger le code vba parce que a chaque fois je réalise un fichier je le classe dans mon ordi en protégeant le VBA chose que j'ai fait hier en pensant qu'il y'aura plus de modification

A+

 

[JCGL]

Bonjour à tous,

Mon cher Gérard, tu devrais être aussi "sanctifié"...

A+ à tous

 

[job75]

Bonjour à tous,

Pour le cas où la feuille copiée (macro NewMonth_Sheet) est masquée, j'applique dans ce fichier (3) la même méthode que sur ce fil :

https://www.excel-downloads.com/thr...s-onglet-precedent-resolu-par-job75.20011081/
https://www.excel-downloads.com/thr...s-onglet-precedent-resolu-par-job75.20011081/
A+