Validation écart de date sans week-end

[xhudi69]

Bonsoir le forum,

en PJ le fichier où j'aimerais mettre en colonne B des "1" en regard des dates, entre deux dates (7=>24 aout par exemple) mais sans les samedi et dimanche où l'on affichera un "0".

Merci pour votre aide.

 

[Fred0o]

Re : Validation écart de date sans week-end

Bonsoir xhudi69,

Voici comment réécrire ta macro :

Private Sub CommandButton1_Click()
    Dim i As Long, DRL As Long
    With Sheets("feuil1")
        DRL = .Range("A65536").End(xlUp).Row
        For i = 2 To DRL
            If .Cells(i, 1).Value >= CDate(TextBox2.Value) Then
                If .Cells(i, 1).Value <= CDate(TextBox3.Value) And Not Weekday(.Cells(i, 1).Value) = 7 _
                    And Not Weekday(.Cells(i, 1).Value) = 1 Then
                    .Cells(i, 2).Value = TextBox1.Value
                End If
            End If
        Next i
    End With
    TextBox1.SetFocus
    MsgBox "DONNEES   ENREGISTREES"
End Sub

A+

 

[xhudi69]

Re : Validation écart de date sans week-end

Bonsoir Fred0o, le forum,

Un grand merci à toi, ton code fonctionne très bien, c'est pas une épine, mais un pieu que tu me retire du pied.
Concernant les jour fériés, as-tu une idée pour ne pas les saisir?

Merci pour ton excellent travail.

 

[Fred0o]

Re : Validation écart de date sans week-end

Re-bonsoir,

Personnellement, je n'en ai jamais traité de cette manière mais je sais qu'il y a de nombreuses discussions à ce sujet sur le forum. Fais une ou plusieurs recherche(s) et tu trouveras ton bonheur.

A+

 

[xhudi69]

Re : Validation écart de date sans week-end

Re:

merci encore une fois, je te souhaite une excellente soirée.

@+