VBA/Excel2003/importer une date dans une var Fermé

Question

Bonjour, 

Je dois calculer le nombre d'heures séparant la date de demande d'intervention, et la date de réalisation. Plusieurs topics en parlent ms aucun ne me permet de règler mon pb.

Voici mon code (j'ai créé une fonction, que j'appelle par la suite dans ma procédure Sub, le 1er souci qui se pose c'est que je n'arrive pas à récupérer dans mes variables la date apparaissant dans mes cellules sur ma feuille de calcul)

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


Configuration: Windows XP / Internet Explorer 7.0

thordek · Answer

Bonjour, 

Premierement, ta fonction marche très bien.

Par contre, dans ta procedure, c'est quoi ces "Cells(i,L)" ? Ca ne veut rien dire. La colonne L est la colonne numéro 12. Du coup, ça s'ecrit : Cells(i,12)

Essaye déjà ça.

Cdt,

Thordek

VBA/Excel2003/importer une date dans une var

1 réponse

Discussions similaires