Nombre de jours qu'il me reste à travailler

A

anthonygg

Guest
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
 

Pièces jointes

  • Journal de bord.xlsm
    34 KB · Affichages: 10

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.
 

Pièces jointes

  • Journal de bord(1).xlsm
    33.1 KB · Affichages: 23
A

anthonygg

Guest
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
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.
 

Pièces jointes

  • Journal de bord(2).xlsm
    33.9 KB · Affichages: 21

Discussions similaires