Option Explicit
Private Sub CommandButton1_Click()
Dim R As Range
Set R = Worksheets("gestion des clefs").Columns("B").Find(ComboBox1, [B1])
If Not R Is Nothing Then
R.Offset(, 3) = Me.TextBox1
Charge_Combobox
End If
End Sub
Private Sub UserForm_Initialize()
TextBox1.Value = Format(Now(), "mm/dd/yyyy-hh:mm")
Charge_Combobox
End Sub
Sub Charge_Combobox()
Dim Lig As Long
Me.ComboBox1.Clear
With Worksheets("gestion des clefs")
For Lig = 2 To .Range("B" & Rows.Count).End(xlUp).Row
If .Range("B" & Lig) <> "" And .Range("E" & Lig) = "" Then
ComboBox1 = .Range("B" & Lig)
If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem .Range("B" & Lig)
End If
Next Lig
End With
End Sub