Calcul samedi et dimanche

[scoobydoos]

Bonjour,
Après plusieurs recherches pour plusieurs questions que je me posais sur excel, je tombais souvent sur votre site donc c'est pour cela que je me suis inscrit sur ce forum.

voila mon soucis :
Je suis sous excel 2007.
j'ai 12 onglets pour un calendrier automatique, je rentre l'année et pour chaque mois, j'ai les week-end et les jours fériés en couleur.
Je voudrais compter le samedis et dimanche par mois.
J'ai donc une cellule qui contient
=FIN.MOIS(C14;0)-C14-(NB.JOURS.OUVRES(C14;FIN.MOIS(C14;0);Fériés))
D'où C14 est ma date de début du mois et "Fériés" ma liste de jours fériés dans l'année.

J'ai trouvé d'autres formules mais elles ne marchent pas car il faudrait que les dates soient fixes.

Merci pour votre aide

@+

 

[Staple1600]

Re : Calcul samedi et dimanche

Bonjour

Saisir l'année en B1 : 2009

Pour les samedis (à saisir en B3:M3 )

=SOMMEPROD(--(JOURSEM(LIGNE(INDIRECT(DATE($B$1;COLONNE()-1;1)&":"&DATE($B$1;COLONNE()-1;31)));1)=7))

Pour les dimanches (à saisir en B4:M4)

=SOMMEPROD(--(JOURSEM(LIGNE(INDIRECT(DATE($B$1;COLONNE()-1;1)&":"&DATE($B$1;COLONNE()-1;31)));1)=1))

PS: Pour ceux qui veulent éviter de saisir les formules 😉

Sub C_EST_PLUS_SIMPLE_AINSI()
[A1:A4] = Application.Transpose(Array("ANNEE", "", "SAMEDIS", "DIMANCHES")): [B1] = Year(Date): [B2].FormulaR1C1 = "Janvier"
Range("B2").AutoFill Destination:=Range("B2:M2"), Type:=xlFillDefault
With Range("B3:M3")
    .FormulaR1C1 = "=SUMPRODUCT(--(WEEKDAY(ROW(INDIRECT(DATE(R1C2,COLUMN()-1,1)&"":""&DATE(R1C2,COLUMN()-1,31))),1)=7))"
    .Value = .Value
End With
With Range("B4:M4")
    .FormulaR1C1 = "=SUMPRODUCT(--(WEEKDAY(ROW(INDIRECT(DATE(R1C2,COLUMN()-1,1)&"":""&DATE(R1C2,COLUMN()-1,31))),1)=1))"
    .Value = .Value
End With
End Sub

 

[Staple1600]

Re : Calcul samedi et dimanche

Re



Une solution tout en VBA (Merci à Allen pour sa fonction)

Function MonthWeekDays(dDate As Date, iWeekDay As Integer)
    Dim dLoop As Date ' source: Allen Wyatt
    If iWeekDay < 1 Or iWeekDay > 7 Then
        MonthWeekDays = CVErr(xlErrNum)
        Exit Function
    End If
    MonthWeekDays = 0
    dLoop = DateSerial(Year(dDate), Month(dDate), 1)
    Do While Month(dLoop) = Month(dDate)
        If Weekday(dLoop) = iWeekDay Then _
            MonthWeekDays = MonthWeekDays + 1
        dLoop = dLoop + 1
    Loop
End Function

Sub NBR_SAM_ET_DIM_DANS_UNE_ANNEE()
Dim a As Long, i
Cells.Clear: a = Year(Date)
For i = 1 To 12
Cells(i + 1, 1) = StrConv(Format(DateSerial(a, i, 1), "mmmm"), vbProperCase)
Cells(i + 1, 2) = MonthWeekDays(DateSerial(a, i, 1), 7)
Cells(i + 1, 3) = MonthWeekDays(DateSerial(a, i, 1), 1)
Next
'+++ci-dessous+++
'code pouvant être supprimé car optionnel (pour faire joli uniquement)
    With [A1]
        .Value = a
        .Font.Size = 12
        .Offset(, 1).Resize(, 2) = Array("SAMEDIS", "DIMANCHE")
    With .CurrentRegion
        .Borders.LineStyle = xlContinuous
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
    End With
    End With
With Union([A1], [A2:A13], [B1:C1])
    .Font.Bold = True
    .Interior.ColorIndex = 36
End With
'+++fin du code pouvant être supprimer+++
End Sub

 

[scoobydoos]

Re : Calcul samedi et dimanche

Bonjour,
merci pour vos réponses mais un peu compliqué pour et j'ai essayé... marche pas..
Bon en fait je cherche à calculer mes jours travaillés, c'est à dire sans les CP et RTT et ni samedi et dimanche.
Voila des pistes ?
merci par avance

 

[BOISGONTIER]

Re : Calcul samedi et dimanche

Bonjour,

Nb jours ouvrés entre 2 dates (en A2 et B2)

=SOMMEPROD((JOURSEM(LIGNE(INDIRECT(A2&":"&B2));2)<6)*(NB.SI(fériés;LIGNE(INDIRECT(A2&":"&B2)))=0)*
(ESTNA(EQUIV(LIGNE(INDIRECT(A2&":"&B2));LIGNE(INDIRECT(dvac1&":"&fvac1));0)))*
(ESTNA(EQUIV(LIGNE(INDIRECT(A2&":"&B2));LIGNE(INDIRECT(dvac2&":"&fvac2));0))))

JB
Formation Excel VBA JB

 

[Staple1600]

Re : Calcul samedi et dimanche

Re



Si cela fonctionne.

Voir cet exemple

 

[scoobydoos]

Re : Calcul samedi et dimanche

compliqué et marche pas
pour le nombre de jours ouvrés =NB.JOURS.OUVRES(C14;FIN.MOIS(C14;0);Fériés)
C14 étant ma date de départ
merci
@+

 

[Staple1600]

Re : Calcul samedi et dimanche

Re


L'exemple fait ceci non ?

Je voudrais compter le samedis et dimanche par mois.

Pour moi il fonctionne.

 

[hoerwind]

Re : Calcul samedi et dimanche

Bonjour,

Si tu mettais un extrait de ton fichier avec les résultats que tu souhaites obtenir en pièce jointe, ce sera probablement plus simple pour essayer de te proposer une solution.

 

[scoobydoos]

Re : Calcul samedi et dimanche

Bonjour,
Bon je poste mon fichier
Donc ce que je veux c'est le nombre de jours travaillés exclus les CP, RTT, samedi et dimanche ? possible ?

merci pour tout
@+

 

[Staple1600]

Re : Calcul samedi et dimanche

Re



Un fichier au format Excel 97-2003 (en xls) serait un plus .

(Ici n'est pas le forum dédié à Excel 2007)

 

[scoobydoos]

Re : Calcul samedi et dimanche

ok le voila
ca doit etre bon j'ai fait enregistrer sous 2003-97

 

[jeanpierre]

Re : Calcul samedi et dimanche

Bonjour scoobydoos, le fil,

Ton fichier est encore au format 2007.

S'il n'utilise pas de fonctions nouvelles 2007, tant en Excel qu'en Vba, tu fais un Enregistrer sous et tu choisis 97-2003.

Note que tu peux rééditer ton post de 13h01 (Modif. en bas du post), supprimer le fichier avec Retirer et déposer le nouveau à la place.

Bon dimanche.

Jean-Pierre

 

[Staple1600]

Re : Calcul samedi et dimanche

Bonjour jeanpierre


J'ai pu ouvrir sous Excel 2000 le dernier fichier joint 😕

Pas toi ?

EDIT: Ah il vient d'être effacé !

 

[scoobydoos]

Re : Calcul samedi et dimanche

j'ai refait
normalement c bon