VBA/Excel2003/Importer date dans variable

Fermé
by - 7 juil. 2011 à 10:04
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 - 7 juil. 2011 à 11:59
Bonjour,
Je dois calcule la différence entre deux dates de type 28/6/11 14:20, et ceux pour 2 colonnes (et je débute en VBA)
Plusieurs topic en parlent déjà mais aucun ne m'aide vraiment (je suis peut-être pas tombé sur le bon)
Voici mon code (je crée une fonction, et j'essaie de la rappeler dans ma procédure Sub, seulement, j'ai du mal à stocker dans ma variable la date apparaissant dans mes cellules)

Function EcartDates(DateDemande As Date, DebutRealisation As Date) As Double

EcartDates = DateDiff("h", DateDemande, DebutRealisation, vbMonday, vbFirstJan1)

End Function


Sub Delai()

Dim i As Byte
Dim DateDemande As Date
Dim DebutRealisation As Date

For i = 2 To 10

DateDemande = Worksheets("Depart").Cells(i, L).Value
DebutRealisation = Worksheets("Depart").Cells(i, L).Value
Worksheets("Depart").Cells(i, BQ) = EcartDates(DateDemande, DebutRealisation)


Next

End Sub



Merci d'avance pour votre aide


A voir également:

1 réponse

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
7 juil. 2011 à 11:59
Bonjour,

DateDemande et DebutRealisation ont la même valeur ici :
DateDemande = Worksheets("Depart").Cells(i, L).Value
DebutRealisation = Worksheets("Depart").Cells(i, L).Value 


Ta fonction EcartDate doit retourner une Date ou un Long, DateDiff renvoie un Long au format de l'intervalle demandé.

;o)
0