Nombre de jours qu'il me reste à travailler

anthonygg

XLDnaute Junior
Bonjour,

J'ai un calendrier Excel. En blanc c'est les jours où je dois travailler. En gris les vacances, les jours fériers, les week end.
En vert c'est le jour d'aujourd'hui. En Orange mes éventements marquants.

J'aurais besoin d'une fonction que je n'arrive pas du tout à faire ...
Nombre de jours à travailler :
Donc en gros compter le nombre de jours en blancs.

Merci ! Mon fichier est en PJ
 

Fichiers joints

job75

XLDnaute Barbatruc
Bonjour anthonygg, le forum,

En B4 de la feuille "Projets" :

="Jours à travailler : "&NB.JOURS.OUVRES(AUJOURDHUI()+1;DROITE(B2;10);Feries)

J'ai ajouté une feuille avec les jours fériés.

Bonne journée.
 

Fichiers joints

anthonygg

XLDnaute Junior
Merci c'est un bon début :p

Cependant j'aimerai que ça compte le nombre de jours en blancs dans le calendrier jusqu'à la date indiquée.
J'ai envie de mettre mes jours fériés et vacances directement en gris dans le calendrier. (Sans rajouter une feuille en plus et des lignes à écrire).
 

job75

XLDnaute Barbatruc
Pour compter les cellules colorées en gris c'est facile mais il faut une macro.

Nombreux exemples sur le forum.

Nota : sur votre fichier joint la mise en couleur grise n'est pas correcte...
 

job75

XLDnaute Barbatruc
Bonjour le forum,

anthonygg n'a pas percuté mais pour ceux que ça intéresse voici la fonction VBA à placer dans un module standard :
Code:
Function CompteGris(deb As Date, fin As Date, plage As Range)
Dim dat As Date
For dat = deb + 1 To fin
If plage(Day(dat), Application.Match(Format(dat, "mmmm"), plage.Rows(0), 0)).Interior.ColorIndex = 15 Then CompteGris = CompteGris + 1
Next
End Function
Formule en Projets!B4 de ce fichier (2) :

=B2-AUJOURDHUI()-CompteGris(AUJOURDHUI();B2;'Calendrier '!T3:AC33)

Bonne journée.
 

Fichiers joints

Discussions similaires


Haut Bas