calcul entre deux dates

[kabitchou05]

Dans mon exemple est ce qu'il serai possible de calculer le nombre de dates qui s'affichent dans un msg box avec vba seulement( voir pièce jointe)

 

[Pierrot93]

Re : calcul entre deux dates

Bonjour,

il est préférable d'éviter de poser 2 fois la même question sur le forum...

https://www.excel-downloads.com/threads/pb-deux-dates.140166/

Ensuite cela risque de devenir difficile à suivre pour tout le monde...

bonne journée
@+

 

[Dull]

Re : calcul entre deux dates

Salut kabitchou05, le Forum

Pas sur d'avoir compris mais essaye ça

DLig as Long, DatDif as String
[COLOR=DarkGreen]'...Ton Code[/COLOR]
DLig = Sheets("facture").Range("A65536").End(xlUp).Row
DatDif = DLig - 4
MsgBox DatDif & IIf(DatDif > 2, " Jours", " Jour")
[COLOR=DarkGreen]'...[/COLOR]

EDITION: Salut Pierrot🙂 T'avais point vu

Bonne Journée

 

[kabitchou05]

Re : calcul entre deux dates

Merci Misiou Dull pour ta réponse ,mais en fait ce que je cherche c'est trouver le total des dates sans passer par les cellules d'excel! est ce possible?
PS:désolé pour le double poste

 

[ROGER2327]

Re : calcul entre deux dates

Bonsoir à tous

Peut-être ceci :

[COLOR="DarkSlateGray"][B]Private Sub CommandButton1_Click()
Dim lig&, i As Date, dd()
   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"
   Else
      If OptionButton1.Value = True Then dd = Array(2, 4, 6) Else dd = Array(1, 3, 5)
      For i = CDate(UserForm1.TextBox1.Value) To CDate(UserForm1.TextBox2.Value)
         lig = lig - (Weekday(i) = dd(0)) - (Weekday(i) = dd(1)) - (Weekday(i) = dd(2))
      Next
      MsgBox lig
      UserForm1.Hide
   End If
Exit Sub
errdate:
   MsgBox "Une erreur est apparue dans la saisie des dates"
End Sub[/B][/COLOR]

ROGER2327
#3912

Lundi 2 Tatane 137 (Commémoration du Père Ebé, SQ)
27 Messidor An CCXVIII
2010-W28-4T23:27:07Z

 

[kabitchou05]

Re : calcul entre deux dates

Merciiiii potos pour ton aide,c'est ce que je cherchais

 

[ROGER2327]

Re : calcul entre deux dates

Re...

Merciiiii potos pour ton aide,c'est ce que je cherchais

Tant mieux !

Pour répondre à votre message de demande d'affichage des dates dans la colonne A, essayez ceci :

[COLOR="DarkSlateGray"][B]Private Sub CommandButton1_Click()
Dim lig&, i As Date, dd(), oDat&()
   On Error GoTo ErrDate
   If CDate(UserForm1.TextBox2.Value) - CDate(UserForm1.TextBox1.Value) > 30 Then
      MsgBox "il y a plus de 31 jours entre la 1ére et la 2ème date."
   Else
      If UserForm1.OptionButton1.Value = True Then dd = Array(2, 4, 6) Else dd = Array(1, 3, 5)
      For i = CDate(UserForm1.TextBox1.Value) To CDate(UserForm1.TextBox2.Value)
         If (Weekday(i) = dd(0)) + (Weekday(i) = dd(1)) + (Weekday(i) = dd(2)) Then
            lig = lig + 1
            ReDim Preserve oDat(1 To 1, 1 To lig)
            oDat(1, lig) = i
         End If
      Next
      With Range("A5") [COLOR="SeaGreen"]'Première cellule recevant une date.[/COLOR]
         .Value = " "
         .Resize(Cells(Rows.Count, 1).End(xlUp).Row - .Row + 1, 1).ClearContents
         If lig Then .Resize(lig, 1).Value = WorksheetFunction.Transpose(oDat)
      End With
      MsgBox lig
      UserForm1.Hide
   End If
Exit Sub
ErrDate:
   MsgBox "Une erreur est apparue dans la saisie des dates."
End Sub[/B][/COLOR]

ROGER2327
#3917

Mercredi 4 Tatane 137 (Ascension du Mouchard, statisticien, psychiatre et policier, SQ)
29 Messidor An CCXVIII
2010-W28-6T10:36:09Z