Calcul automatique d'un effectif en fonction d'une date sous excel.

Bonjour à tous,

Un proposition :

djidji59430 à dit:

Bonjour à tous,

Un proposition :

Cliquez pour agrandir...

Salut, merci d'avoir apporter une réponse à ma problématique. j'ai pris du temps pour répondre car je voulais tester le tableau samedi, hier et aujourd'hui.
Tout fonctionne correctement ! je te remercie pour ton aide.

Cependant j'ai deux autres problématique ! par rapport a ce même tableau !
- Je voudrais que les jours fériés soit en rouge dans le calendrier, mais je n'y arrive pas. Ma formule qui est dans la mise en forme conditionnelle par rapport à la feuille2 du classeur (=NB.SI.ENS(Feuil2!$B$3:$B$15;$C$19)>0) me permets de mettre tous le mois ou il y a un jour férié en rouge mais moi je voudrais juste le jour et pas le mois entier comme s'est fait pour les week-end.

- Je voudrais supprimer les colonnes du calendrier dont le mois ne contient pas 31 jours (par exemple le mois de février et tous les autres mois ou le nombre de jour serait inférieur à 31)
j'ai créer cette macro mais, elle enlève tous les jours du calendrier :

Sub Masquer_Jour()
Dim Num_Col As Long
For Num_Col = 31 To 33 ' Boucle sur les cellules des jours 29, 30 et 31
If Month(Cells(19, Num_Col)) >= Cells(1, 1) Then
Columns(Num_Col).Hidden = True
Else
Columns(Num_Col).Hidden = False
End If
Next
Range("C20:AG81&quot😉.ClearContents 'Supprime le contenu dans les cellules
End Sub

Merci d'avance pour les réponse apportées.

Bonjour à tous,

Tes dates ont un format fantaisistes dans le tableaux des fériés
Verifie en les mettant en standard que ce sont bien des dates et reviens avec un tableau correct
pb 2 : et si tu supprimes les mois de ta liste déroulante ?
Autrement, je suis nul en VBA.
MFC pour les fériés :

Crdlmt

djidji59430 à dit:

Bonjour à tous,

Tes dates ont un format fantaisistes dans le tableaux des fériés
Verifie en les mettant en standard que ce sont bien des dates et reviens avec un tableau correct
pb 2 : et si tu supprimes les mois de ta liste déroulante ?
Autrement, je suis nul en VBA.
MFC pour les fériés :

Crdlmt

Cliquez pour agrandir...

Merci pour ton fichier joint, je l'ai modifier pour l'adapter au "vrai" tableau. Tout est ok pour les jours férié.
Pas de soucis pour le Visual Basic ^.^
J'espère que quelqu'un pourra m'aider en modifiant ma macro ou en me proposant une autre façon :

Je voudrais supprimer les colonnes du calendrier dont le mois ne contient pas 31 jours (par exemple le mois de février et tous les autres mois ou le nombre de jour serait inférieur à 31)
j'ai créer cette macro mais, elle enlève tous les jours du calendrier :

Sub Masquer_Jour()
Dim Num_Col As Long
For Num_Col = 31 To 33 ' Boucle sur les cellules des jours 29, 30 et 31
If Month(Cells(19, Num_Col)) >= Cells(1, 1) Then
Columns(Num_Col).Hidden = True
Else
Columns(Num_Col).Hidden = False
End If
Next
Range("C20:AG81&quot😉.ClearContents 'Supprime le contenu dans les cellules
End Sub