PB deux dates

[kabitchou05]

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

 

[Papou-net]

Re : PB deux dates

Bonjour kabitchou05,

Modifies ton code comme celà :

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)
   [B][COLOR="Blue"]If Weekday(i) = 1 Or Weekday(i) = 4 Or Weekday(i) = 7 Then
     Cells(lig, 1).Value = CDate(i)
     lig = lig + 1
   End If[/COLOR][/B]
 Next
 UserForm1.Hide
 Exit Sub
errdate:
MsgBox "Une erreur est apparue dans la saisie des dates"
End Sub

Espérant avoir répondu.

Cordialement.

 

[kabitchou05]

Re : PB deux dates

ça marche mieux comme ça

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)
   If Weekday(i) = 2 Or Weekday(i) = 4 Or Weekday(i) = 7 Then
     Cells(lig, 1).Value = CDate(i)
     lig = lig + 1
   End If
 Next
 UserForm1.Hide
 Exit Sub
errdate:
MsgBox "Une erreur est apparue dans la saisie des dates"
End Sub

Trop fort Papou merciiiiiiiiiiiiiiiiii🙂

 

[Papou-net]

Re : PB deux dates

ça marche mieux comme ça

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)
   If Weekday(i) = 2 Or Weekday(i) = 4 Or Weekday(i) = 7 Then
     Cells(lig, 1).Value = CDate(i)
     lig = lig + 1
   End If
 Next
 UserForm1.Hide
 Exit Sub
errdate:
MsgBox "Une erreur est apparue dans la saisie des dates"
End Sub

Trop fort Papou merciiiiiiiiiiiiiiiiii🙂

OK, j'ai confondu le lundi avec le dimanche (mais c'était pour voir si tu suivais).

Je plaisante bien sûr, et te présente néanmoins mes excuses.

Cordialement.

 

[kabitchou05]

Re : PB deux dates

J'ai utilisé ton code pour en faire de même avec les dimanches mardis et jeudis merciiii du fond du coeur

 

[kabitchou05]

Re : PB deux dates

Est ce qu'il serai possible avec vba seulement de compter le nombre de dates qui s'affichent et l'afficher dans un msg box (voir pièce jointe pour comprendre)

 

[Pierrot93]

Re : PB deux dates

Re,

la même question ici :
https://www.excel-downloads.com/threads/calcul-entre-deux-dates.145486/

@+