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

[pite0611]

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 :

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

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

[eriiic]

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