Nombre de jours qu'il me reste à travailler

job75

XLDnaute Barbatruc

• 23 Février 2019

• #2

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

Vote positif 0 Vote négatif

A

anthonygg

Guest

• 23 Février 2019

• #3

Merci c'est un bon début

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 23 Février 2019

• #4

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 24 Février 2019

• #5

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

Vote positif 0 Vote négatif

A

anthonygg

Guest

• 24 Février 2019

• #6

Merci jeune homme ! ça marche bien ! J'ai compris la formule !

 

Vote positif 0 Vote négatif