[excel] nbre de jours ouverts (samedi inclus) ds un mois

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [excel] nbre de jours ouverts (samedi inclus) ds un mois

vingtcent

C'est c'laaaa ouiiii !

Bonjour,

j'ai besoin de connaitre le nombre de jours ouverts (du lundi au samedi) ds
un mois. J'ai trouvé assez facilement comment calculer le nombre de jours
ouverts (du lundi au vendredi), mais avec le samedi inclu je ne trouve pas
...

Qui peut m'aider ? Merci

Message édité par vingtcent le 04-05-2004 à 21:55:51

Publicité

prog1001

C'est quoi le nombre de jours ouverts ? :??: :??:

vingtcent

C'est c'laaaa ouiiii !

le nombre de jour du mois hors dimanche

prog1001

Ok, je vais m'y mettre !
dis moi comment ta fais pour calculer le nombre de jours ouverts du lundi au vendredi (pour aller dans le sens de ton prog)

vingtcent

C'est c'laaaa ouiiii !

J'ai utilsé la fonction NB.JOURS.OUVRES de la façon suivante :

=NB.JOURS.OUVRES(A3;FIN.MOIS(A3; 0))

ou A3 est une celule qui contient le mois concerné

prog1001

Mais ton truc c'est sur excel, fallait le dire tout de suite, je viens de me faire chier a ecrire une fonction avec VB :fou: :pt1cable:
En plus je l'ai testé, elle marche, meme si c'est vrai qu'elle est plutot longue pour si peu, il doit y avoir plus simple.

je te la met quand meme tu peut t'en servir dans une macro (peut-être):

Code :

Function NombreJourOuvert(LaDate As Date) As Byte
Dim M As Byte
Dim A As Integer
Dim FinMois As Byte
M = Month(LaDate)
A = Year(LaDate)
'##############################################
'ce qui a entre les "#" c'est que je sais pas trouver de dernier jour du mois + facilement
Dim Bys As Boolean
If Int(A / 4) = A / 4 Then Bys = True
If M = 1 Then FinMois = 31
If M = 2 Then
If Bys = True Then
FinMois = 29
Else
FinMois = 28
End If
End If
If M = 3 Then FinMois = 31
If M = 4 Then FinMois = 30
If M = 5 Then FinMois = 31
If M = 6 Then FinMois = 30
If M = 7 Then FinMois = 31
If M = 8 Then FinMois = 31
If M = 9 Then FinMois = 30
If M = 10 Then FinMois = 31
If M = 11 Then FinMois = 30
If M = 12 Then FinMois = 31
'############################################
Dim i As Byte
Dim TheDate As Date
For i = 1 To FinMois
TheDate = i & "/" & M & "/" & A
If WeekDay(TheDate) > 1 Then
NombreJourOuvert = NombreJourOuvert + 1
End If
Next
End Function

avec cette fonction si tu renvoi a l'argument LaDate la date systeme, il te renverra 26, soit 26 jours ouvrable , j'ai verifié avec le calendrier de windows, c'est ça !

Aller, bonne chance !
Salut !

vingtcent

C'est c'laaaa ouiiii !

prog1001 a écrit :

Mais ton truc c'est sur excel, fallait le dire tout de suite, je viens de me faire chier a ecrire une fonction avec VB :fou: :pt1cable:

oups sorry

La balise [excel] etait restée ds mon clavier ...

Merci

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[excel] nbre de jours ouverts (samedi inclus) ds un mois

Sujets relatifs
importer des données SQL Server vers VB Excel	Lancement d'une macro tous les mois
Exporter des données vers excel	Importer des données de excel
excel ne prend pas la virgule...	comment vérifier qu'un champ est bien un nombre dans EXCEL ??
importer des données excel depuis access ???	supprimer un fichier texte depuis le vba/excel ????
utilisation d'une fonction excel avec VB	Excel/VBA Somme d'une colonne dont on ne connait pas la longueur
Plus de sujets relatifs à : [excel] nbre de jours ouverts (samedi inclus) ds un mois

Page générée en 0.038 secondes