additionner combobox heures

Version imprimable

06/04/2018, 15h47
ctrl32

1 pièce(s) jointe(s)

additionner combobox heures

Bonjour à tous

j'ai besoin d’effectuer une addition, heure de départ + durée = heure d'arrivée, ceci dans un formulaire
chaque champs est une combobox (1,2 et 3, dans l'ordre) dont les heures font références à la première feuille excel
- je n'arrive pas a effectuer l'addition,
- j'effectue un contrôle pour que l'heure d'arrivée = départ+durée, en cas d'égalité, celle ci n'est pas reconnu !
- j'effectue un contrôle pour que l'heure d'arrivée soit supérieur à l'heure de départ, le contrôle ne se fait pas

j'ai l'impression que le temps n’est pas interprété comme heure et minutes
auriez vous une idée ?

je précise que je débute en VBA

en PJ mon fichier

Merci de votre aide
Laurent
06/04/2018, 15h53
Jean-Philippe André

Bonjour,

pour des raisons de sécurité, je ne peux ouvrir tes pièces jointes, aussi pourrais-tu stp nous recopier le code VBA, en ajoutant les commentaires et un exemple pour que nous puissions t'aider stp ?
06/04/2018, 15h54
NEC14

Bonjour,

Regarde cette discussion :
https://www.developpez.net/forums/d3...dition-heures/

bonjour,

alors voici,

- une feuille Feuil1 de A1 à A96 format de cellule Heure 13:30, contenant des heures de 00:00 à 23:45 par parlier de 15mn
- 1 combobox1 :heure de depart
- 1 combobox2 :durée
- 1 combobox3 :heure d'arrivée

et voici le code de mon UserForm1

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
'declaration de la combobox1
Private Sub ComboBox1_Change()
ComboBox1.Value = Format(ComboBox1.Value, "hh:mm")
End Sub
 
'declaration de la combobox2
Private Sub ComboBox2_Change()
ComboBox2.Value = Format(ComboBox2.Value, "hh:mm")
End Sub
 
'declaration de la combobox3
Private Sub ComboBox3_Change()
ComboBox3.Value = Format(ComboBox3.Value, "hh:mm")
End Sub
 
Private Sub UserForm_Initialize()
 
'affectation des heures de la Feuil1 aux 3 combobox
 
 
Dim i As Integer
For i = 1 To 96
    Me.ComboBox1.AddItem Format(Sheets("Feuil1").Range("A" & i).Value, "hh:mm")
    Me.ComboBox2.AddItem Format(Sheets("Feuil1").Range("A" & i).Value, "hh:mm")
    Me.ComboBox3.AddItem Format(Sheets("Feuil1").Range("A" & i).Value, "hh:mm")
Next
 
 
End Sub
 
'***********************
'* addition des heures *
'***********************
 
'après mise à jour durée
Private Sub ComboBox2_AfterUpdate()
 
' heure de depart + durée = heure de arrivée
ComboBox3.Value = (Val(ComboBox1)) + (Val(ComboBox2))
 
 
End Sub
 
'après mise à jour heure de arrivée
Private Sub ComboBox3_AfterUpdate()
 
' contrôle si heure de depart + durée = heure de arrivée
If ComboBox3.Value <> (Val(ComboBox1)) + (Val(ComboBox2)) Then
    MsgBox ("ERREUR : l'heure de arrivée ne correspond pas à l'heure de depart + durée => veuillez corriger")
 
' contrôle si heure de arrivée toujours supérieur à heure de depart
ElseIf Val(ComboBox3.Value) < Val(ComboBox1.Value) Then
    MsgBox ("ERREUR : l'heure de arrivée est avant l'heure de depart => Veuillez corriger")
 
End If
End Sub

07/04/2018, 15h03
Docmarti

Utilise la fonction Format.

Remplace

Code:

MsgBox CDate(ComboBox1) + CDate(ComboBox2) = CDate(ComboBox3)

par

Code:

MsgBox Format(CDate(ComboBox1) + CDate(ComboBox2), "hh:mm") = Format(CDate(ComboBox3), "hh:mm")