Bonsoir,

j'aurais besoin d'un petit coup de main.
J'aimerais pouvoir créer un format heure à l'aide de 2 combobox séparés par ":" (voir mon code ci-dessous):

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub CommandButton3_Click()
 
Dim derligne As Integer
 
 
 
Sheets("EQUIPE JOUR").Select
 
 
    If MsgBox("Confirmez-vous les heures saisies ?", vbYesNo, "Confirmation") = vbYes Then derligne = Sheets("EQUIPE JOUR").Range("E10000").End(xlUp).Row + 1
 
        Cells(derligne, 1) = ComboBox1.Value
        Cells(derligne, 2) = TextBox1.Value
        Cells(derligne, 3) = concatener(ComboBox3 And ":" And ComboBox4).Value
 
merci par avance...;)