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...;)
Partager