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

Code Module affecté à un bouton

Sub Heure()
Cells(3, 1) = Format(Cells(1, 1) - Cells(2, 1), "hh:mm")
End Sub

ou Code de Feuille qui se déclenche en remplissant A2

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

Cordialement

Merci pour la réponse, je regarde le résultat je vous tiens au courant !

Ok, alors je comprend votre programme (je debute en VBA),

et maintenant je souhaiterai que quand je rentre 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). Pouvez-vous m'aider svp ?

Bonjour

Code de Feuille

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

Cordialement

Merci beaucoup, cela marche niquel.

Hélas j'ai encore une question..

Je souhaiterai remplace le "9:00" par "9H00"

Que j'ecrive "9H00" au lieu de "9:00" dans le tableau excel

Cela est-il possible ???

Cordialement

Bonjour

Mettre les colonnes au format personnalisé [h]"h"mm;@

Par contre, tu saisis 11:45 et l'affichage est 11h45

Cordialement

Ce n'est pas possible de saisir 11h45 et l'affichage est 11h45 ??

Bonjour,

Bon au final, je répond à ma question, hélas il n'est pas possible d'écrire "9h07", nous sommes obligé d'écrire "9:07".

Merci beaucoup pour l'aide apportée

Cordialement