Discussion :

[skorpio]

Voila ou jen suis....

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[flear]

et ben tu veut quoi de plus?

(a part que si tu met pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

rien ne s'affichera...)

[ouskel'n'or]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Ety je me trouve bien gentil !

[flear]

a oui tu as raison dsl^^

et effectivement on le sait que tu es gentil

[skorpio]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[skorpio]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[skorpio]

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