Salut le forum
Le code de ton CommandButton adapter directement à ta demande
Private Sub CommandButton1_Click()
Range("a5:a35").Clear
Dim lig As Integer
Dim i As Date
On Error GoTo errdate
If CDate(UserForm1.TextBox2.Value) - CDate(UserForm1.TextBox1.Value) > 31 Then
MsgBox "il y a plus de 31 jours entre la 1ére et la 2ème date"
Exit Sub
End If
lig = 5
For i = CDate(UserForm1.TextBox1.Value) To CDate(UserForm1.TextBox2.Value)
Select Case Weekday(CDate(i), 1)
Case 2, 4, 7
Cells(lig, 1).Value = CDate(i)
lig = lig + 1
End Select
Next
UserForm1.Hide
Exit Sub
errdate:
MsgBox "Une erreur est apparue dans la saisie des dates"
End Sub
Mytå