VBA : Exclure weekend

[kalek93]

Bonjour,

Dans ma macro, je dois renvoyer le nombre de valeur en date "hier".

Mon fichier contient une multitude de lignes, la date est en colonne L.

Si la date est égale à "hier", le compteur en cellule A5 doit s'incrémenter d'une unité.

Cependant, lorsque je lance cette macro le "lundi", elle doit compteur le nb de valeur en date "vendredi". En résumé je dois exclure les weekends.

Voici mon code, pourriez-vous m'aider à ajouter cette condition de faire date-3 le lundi, et non date-1 car ma case A5 sera vide...

For i = 200 To 11 Step -1

    If Range("L" & i) = Range("A1") - 1 Then

        Range("A5") = Range("A5") + 1

    End If

Next i

J'espère que je suis assez clair ;-)

Merci d'avance,

 

[job75]

Re : VBA : Exclure weekend

Bonsoir kalek93,

Il faut décaler les dimanches et les lundis en A1.

A priori pas besoin d'un Step -1 :

Sub CompteHier()
Dim dat As Date, i&
[A5] = 0 'RAZ
dat = [A1] - IIf(Weekday([A1]) = 1, 2, IIf(Weekday([A1]) = 2, 3, 1))
For i = 11 To 200
  If Range("L" & i) = dat Then [A5] = [A5] + 1
Next
End Sub

Edit : VBA n'est absolument pas nécessaire, entrer en A5 la formule :

=NB.SI(L11:L200;A1-SI(JOURSEM(A1)=1;2;SI(JOURSEM(A1)=2;3;1)))

A+

 

[kalek93]

Re : VBA : Exclure weekend

Hello Job75,

Tu es au top 🙂 Ca fonctionne parfaitement.

Pour ma culture perso, pourrais-tu m'expliquer/détailler la ligne de code suivante ?

dat = [A1] - IIf(Weekday([A1]) = 1, 2, IIf(Weekday([A1]) = 2, 3, 1))

Merci beaucoup encore ;-)

 

[job75]

Re : VBA : Exclure weekend

Re,

La formule Excel de mon Edit explique le code VBA, voyez dans l'aide Excel ce qui est dit sur JOURSEM.

A+

 

[Regueiro]

Re : VBA : Exclure weekend

Bonsoir à Tous, Job75, Kalek93

Voilà l'explication de la formule de JOB75



Si tu utilises la Formule :
1. JOURSEM(A1) sans type de retour alors 1 = Dimanche, 2 = Lundi
2. JOURSEM(A1;1) type de retour identique au N°1
3. JOURSEM(A1;2) type de retour alors 1 = Lundi, 7 = Dimanche

A+

 

[job75]

Re : VBA : Exclure weekend

Bonjour le fil, le forum,

Juste pour simplifier, mais c'est un peu plus difficile à comprendre :

Sub CompteHier()
Dim dat As Date, i&
[A5] = 0 'RAZ
dat = [A1] + (Weekday([A1]) < 3) * Weekday([A1]) - 1
For i = 11 To 200
  If Range("L" & i) = dat Then [A5] = [A5] + 1
Next
End Sub

=NB.SI(L11:L200;A1-(JOURSEM(A1)<3)*JOURSEM(A1)-1)

Se rappeler qu'en VBA True = -1...

A+