Soustraction heures et minutes!!!

[Sogood]

Salut tout le monde,
J'ai pour objectif de mettre en place une gestion de stock sous VBA. J'ai mis en place un document qui permet de connaitre le listing des opérations journalière.
celui-ci gère en même temps les délais de mise à dispo, mais la soustraction des heures ne s'effectue pas.
Si quelqu'un peut m'éclairer pour connaitre l'endroit où je me trompe, ne serait pas de refus 😉

Merci d'avance
Saw

voici le code :

Sub Saisie_Ponctualité()
Dim daate As Date, n As Integer, N_Commande As Long, Quantité As Integer, Formule As String, Grue As String, Partie_Ouvrage As String, H_Liv_Prévu As Date, H_Arrivée_Chantier As Date, H_Début_Vidange As Date, H_Fin_Vidange As Date, Tps_Vidange As Date, Att_Chantier As Date

N_Commande = InputBox("Entrez le Numéro de commande")
Quantité = InputBox("Entrez la Quantité")
Formule = InputBox("Entrez la Formule")
Grue = InputBox("Entrez le numéro de grue")
Partie_Ouvrage = InputBox("Entrez la partie ouvrage")
H_Liv_Prévu = InputBox("Entrez l'Heure de livraison prévue")
H_Arrivée_Chantier = InputBox("Entrez l'Heure d'arrivée au chantier")
H_Début_Vidange = InputBox("Entrez l'Heure de début de vidange")
H_Fin_Vidange = InputBox("Entrez l'Heure de fin de vidange")

n = Sheets("CC").Cells(1, 1)

Sheets("CC").Cells(n, "c") = Date
Sheets("CC").Cells(n, "d") = N_Commande
Sheets("CC").Cells(n, "g") = Quantité
Sheets("CC").Cells(n, "h") = Formule
Sheets("CC").Cells(n, "i") = Grue
Sheets("CC").Cells(n, "j") = Partie_Ouvrage
Sheets("CC").Cells(n, "k") = H_Liv_Prévu
Sheets("CC").Cells(n, "l") = H_Arrivée_Chantier
Sheets("CC").Cells(n, "m") = H_Arrivée_Chantier
Sheets("CC").Cells(n, "n") = H_Arrivée_Chantier
Sheets("CC").Cells(n, "o") = Sheets("CC").Cells(n, "n") - Sheets("CC").Cells(n, "l")
Sheets("CC").Cells(n, "r") = Sheets("CC").Cells(n, "l") - Sheets("CC").Cells(n, "k")
Sheets("CC").Cells(1, 1) = n + 1


End Sub

 

[Philippe68]

Re : Soustraction heures et minutes!!!

Bonsoir,

Il n'y a pas une erreur de frappe là ?

Sub Saisie_Ponctualité()
Dim daate As Date, n As Integer, N_Commande As Long, Quantité As Integer, Formule As String,

 

[gfortin9]

Re : Soustraction heures et minutes!!!

Bonsoir à tous,

Je cite :
Sheets("CC").Cells(n, "l") = H_Arrivée_Chantier
Sheets("CC").Cells(n, "m") = H_Arrivée_Chantier
Sheets("CC").Cells(n, "n") = H_Arrivée_Chantier

S'il n'y a pas soustraction, ne serait-ce pas dû à cette erreur ?

 

[Sogood]

Re : Soustraction heures et minutes!!!

Salut!
Philippe68 j'ai joint le fichier sur lequel je travaille.
Mon problème se trouve au niveau des reportings d'heures. C'est la même heure qui s'affiche à tous les champs, du coup j'obtiens toujours 0 pour les soustractions:

Sheets("cc").cells(n,"o")=Sheets("cc").cells(n,"n")-Sheets("cc").cells(n,"l")
Sheets("cc").cells(n,"r")=Sheets("cc").cells(n,"l")-Sheets("cc").cells(n,"k")

 

[Sogood]

Re : Soustraction heures et minutes!!!

Salut,
Philippe68 et Gfortin merci pour votre aide.
J'ai pu "localiser" l'erreur 🙂

Ciao

 

[JCGL]

Re : Soustraction heures et minutes!!!

Bonjour à tous,

Peux-tu essayer avec :

Sheets("CC").Cells(n, "O") = Sheets("CC").Cells(n - 1, "N") - Sheets("CC").Cells(n - 1, "L")
Sheets("CC").Cells(n, "R") = Sheets("CC").Cells(n - 1, "L") - Sheets("CC").Cells(n - 1, "K")

A+ à tous

 

[Sogood]

Re : Soustraction heures et minutes!!!

Merci Jcgl!! Cool 🙂