PB deux dates

Bonsoir à tous ,voilà j'ai joint un fichier excel dans lequel j'ai un usf qui affiche sur un les jours entre les deux dates saisies ,mais dans mon cas je ne souhaite afficher que les samedis lundis et mercredis entre ces deux dates et dans l'ordre

Merci d'avance

14deux-dates.zip (18.10 Ko)

salut kabitchou,

Voici une solution...peut-être pas un super code mais ça fonctionne

J'espère que ça t'aidera...

A te lire,

10deux-dates.zip (21.19 Ko)

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å

Merciiiiiiii les gars pour votre Moooouuuuuaaaahhhhhhhhhh

Rechercher des sujets similaires à "deux dates"