Soustraction de temps

[YO]

Bonjour,

pourriez vous m aider sur ce probleme qui m'enerve car je trouve pas la solution !
Comment faire pour que excel calcul un temps qui est la différence entre 2 temps
Exemple :
1er temps 2 minutes 57
2eme temps 4 minutes 38

Comment faire pour qu 'il calcule la difference de temps entre les 2 ?

Merci !!!

 

[jo]

SAlut yo !

essaie cette fonction.

DateDiff(interval, date1, date2)

Interval :

yyyy Year
q Quarter
m Month
y Day of year
d Day
w Weekday
ww Week
h Hour
n Minute
s Second

par contre je pense que tes "temps1 & 2" doivent être en format("dd/mm/yy hh:mm:ss").

Pour ton cas choisir interval "n" pour les minutes ou "s" ...
Bye!

 

[YO]

Merci pour ta reponse.
Cependant, etant debutant, peux tu m'ecrire ce que je dois taper en prenant les 2 temps que j ai donné ?
Merci

 

[jo]

re salut

Pour faire plus simple peux tu joindre un exemple (<50 k), je vais faire
les mofis directement ;-)

@++

 

[YO]

Voila le fichier

Je te remercie

 

[jo]

re salut !
je pense qu'il y a des petits pb au niveau des pièces joints...
j'arrive pas à ouvrir le fichier :-(
(peut être un sur charge du forum ?!)

Bref met ce code dans un module:

function calcul_diff(temps1 as date, temps2 as date)
dim rep

if temps1 <>"" and temps2<>"" then

rep = datediff("n",temps1,temps2)

end if

end function

tiu pourras ensuites utiliser cette fonction sur une feuille excel ...

Bye !

 

[YO]

comment je fais pour mettre ce code dans un module ?

C etait une erreur de ma part.
Je reposte le fichier, tu pourras le telecharger

 

[YO]

Je pense que cette fois ci le fichier ro.zip va fonctionner

 

[YO]

Non ca ne fonctionne pas.
Peux tu alors m expliquer comment mettre ta formule dans un module et que ce module fonctionne pour toute la feuille excel.
Merci

 

[jo]

re salut !

Oui excuse j'étais parti...

Ouvre le edit VBE :
Fenêtre > Macro > Visual Basic Editor

copie et colle la fonction dans un module de VBE :
inserer> module.

voila j'espere aue ça ira ...

Bye

 

[jo]

un oubli ...voila le code :


function calcul_diff(temps1 as date, temps2 as date)
dim rep

if temps1 <>"" and temps2<>"" then

rep = datediff("n",temps1,temps2)

end if

calcul_diff=rep

end function

 

[YO]

je dois taper comment les temps car 3:57 et 4:28 il me met #valeur en resultat ?

 

[YO]

Et ensuite, comment faire pour que puisse taper en A1 un temps, en B1 un autre temps et qu il me donne le calcul fait en C1 ?
Merci d avance

 

[jo]

Essaie ce fichier ;
Ah oui active les macro en l'ouvrant !
Bon courage ;-)

 

[jo]

au cas ou le pièce joint ne s'ouvre pas :


Voici la correc.


Function calcul_diff(temps1 As String, temps2 As String)

If temps1 <> "" And temps2 <> "" Then
calcul_diff = DateDiff("n", temps1, temps2) & " min"
End If

End Function



Avec ;
format de A1 & B1 en format perso "hh:mm:ss"
format de C1 en general

Bye !