Discussion :

[pite0611]

Bonjour,

Voici mon problème: Je souhaiterai soustraire deux heures différentes dans deux cellules différentes (A1, A2 par exemple) et afficher le resultat dans une autre cellule (ex: A3). Le format de l'heure est hh:mm (ex: 9:06). Tout ceci en VBA bien-sur, pouvez-vous m'aider svp ?..

[halaster08]

Bonjour,

Un peu de lecturehttp://boisgontierjacques.free.fr/pa...tionsDates.htm
Extrait:

DateDiff(intervalle,Début,Fin)

Donne la différence entre 2 dates.

MsgBox DateDiff("yyyy", #9/10/2000#, Date)

[pite0611]

Tout d'abord, merci de votre rèponse.
J'ai créé un programme tout simple cependant je souhaite que au lieux qu'il s'affiche en MsgBox je souhaiterai qu'il s'affiche dans la colonne C1. Pouvez-vous m'aider ?
voici mon programme :

Code :

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

1
2
3
4
5
6
7
Sub Test() 
Dim HDeb As Date, HFin As Date, HDif As Date 
HFin = Range("A1" ).Value 
HDeb = Range("B1" ).Value 
HDif = HFin - HDeb 
MsgBox HDif 
End Sub

[halaster08]

je souhaiterai qu'il s'affiche dans la colonne C1. Pouvez-vous m'aider ?

(C1 est une cellule pas une colonne)
De la même manière que tu récupère la valeur de la cellule A1 ici: HFin = Range("A1" ).ValueTu peux écrire en C1: Range("C1" ).Value = HDif
ATTENTION, dans ton post initial tu parlais de différence en heure et je ne suis pas sûr que HDif = HFin - HDeb donne le résultat en heure.
Je te conseille à nouveau d'utiliser datediff, cf le tuto

[pite0611]

Excusez-moi pour la faute et sinon le programme ne fonctionne pas..

Code :

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

1
2
3
4
5
6
7
Sub j()
Dim HDeb As Date, HFin As Date, HDif As Date
HFin = Range("A1").Value
HDeb = Range("B1").Value
HDif = HFin - HDeb
Range("C1").Value = HDif
End Sub

Il me surligne la ligne, je ne comprend pas pourquoi !

[halaster08]

Effectivement il n'aime pas cette ligne et je ne sais pas pourquoi.
Tu peux contourner le problème en écrivant le calcul directement sans passer par des variables

Code :

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

1
2
3
Sub j()
Range("C1").Value = Range("A1").Value - Range("B1").Value
 End Sub