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...

[ouskel'n'or]

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 :

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

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