bonjour,

1/ avec une procedure " j extrais " la date de chaque ligne d une colonne en effectuant une boucle
2/ en fonction d un critere je dois faire le calcul chaine1 - chaine2
3/ le resultat desiré sera 2h
la j ai le resultat en format "date depuis 1900..."
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub test()
Dim chaine1 'les strings recuperés sont a qq chose pres sous cette forme
Dim chaine2
chaine1 = "21 00 00.00 * 5LAA008EK            OK "
chaine2 = "23 00 00.48 * 5LAA008EK             NOK"
chaine1 = Trim(Left(chaine1, 12))
chaine1 = TimeSerial(Left(chaine1, 2), Mid(chaine1, 4, 2), Mid(chaine1, 7, 2))
chaine2 = Trim(Left(chaine2, 12))
chaine2 = TimeSerial(Left(chaine2, 2), Mid(chaine2, 4, 2), Mid(chaine2, 7, 2))
MsgBox chaine1
MsgBox chaine2
MsgBox chaine2 - chaine1
End Sub
j ai peut etre mal recherché sur le forum
si vous avez des idées