Soustraire deux heure sur Excel en VBA

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 ?..

Bonjour,

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

Citation:

---

DateDiff(intervalle,Début,Fin)

Donne la différence entre 2 dates.

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

---

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:

---

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

---

Citation:

---

Envoyé par pite0611

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

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

Code:

---

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 !

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:

---

1 2 3

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

---

Bonjour,

Finalement, j'ai reussi à créer mon programme souhaité.. Et si je peux aider d'autre personne je vous le partage !
Ce programme fait en sorte que quand vous rentrer une heure dans la colonne A puis dans la colonne B, le programme soustrais les deux heures et affiche le résultat dans la colonne C. Peut importe si je rentre les heure en cellule A16, B16 (par exemple).

Code:

---

1 2 3 4 5

Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Target, Range("B:B")) Is Nothing Then Target.Offset(0, 1) = Format(Target.Offset(0, -1).Value - Target.Value, "hh:mm") End If End Sub

---

Je vous partage le fichier au cas où.

Cordialement

Bonjour,

tu peux te passer de Format() si tu as déjà mis le format de cellule voulu dans la colonne.

Format retourne une chaine et tu veux un numérique. Ca peut être gênant parfois.
Si tu fais 2:43 - 3:45 tu obtiens 1:02 (ce qui est faux) au lieu des #### habituels signalant un temps négatif.
eric