Soustraire des dates.

Voila ou jen suis....

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private sub CommandButton1_Click()   Dim firstDate As String Dim secondDate As String   firstDate = WorkSheets("Feuil1").Range("A1"). Value secondDate = WorkSheets("Feuil1").Range("B1"). Value   DateDiff("d", "firstDate", "secondDate") =   End Sub

---

et ben tu veut quoi de plus?

(a part que si tu met pas

Code:

---

msgbox DateDiff ("d", "firstDate", "secondDate")

---

rien ne s'affichera...)

Code:

---

Result = DateDiff("d", "firstDate", "secondDate")

---

Ety je me trouve bien gentil !

a oui tu as raison dsl^^

et effectivement on le sait que tu es gentil :king:

merci beaucoup....:D
pour votre gentil mé je débute c'est pour ça

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private sub CommandButton1_Click()   Dim firstDate As String Dim secondDate As String Dim resultat As String   firstDate = WorkSheets("Feuil1").Range("A1"). Value secondDate = WorkSheets("Feuil1").Range("B1"). Value   DateDiff("d", "firstDate", "secondDate") = resultat   resultat = WorkSheets("Feuil1").Range("C1"). Value   End Sub

---

ça m'affiche une erreur: incompatibilité de type
:cry:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private sub CommandButton1_Click()   Dim firstDate As String Dim secondDate As String Dim resultat As String   firstDate = WorkSheets("Feuil1").Range("A1"). Value secondDate = WorkSheets("Feuil1").Range("B1"). Value   DateDiff("d", "firstDate", "secondDate") = resultat   resultat = WorkSheets("Feuil1").Range("C1"). Value   End Sub

---

merci à vous ça y est j'y suis parvenu avec beaucoup de souffrance certe...:oops:

Ne dis pas que c'est résolu en donnant une réponse fausse, c'est bon pour que quelqu'un utilise ta réponse et ne comprenne plus rien du tout. La bonne réponse, compte tenu de ta demande, est celle-ci :

Code:

---

1 2 3 4

firstDate = WorkSheets("Feuil1").Range("A1"). Value secondDate = WorkSheets("Feuil1").Range("B1"). Value resultat = DateDiff("d", "firstDate", "secondDate") WorkSheets("Feuil1").Range("C1"). Value = resultat

---