Private Sub UserForm_Initialize()
'**' Dans cette procédure nous allons ajouter les clés du dictionnaire comme source pour la combobox.
Me.cboSpeca.List = dicoSpecialite.Keys
With Worksheets("Liste")
TextBox2.Text = Format(Application.EDate(.Range("O1"), Application.VLookup(.Range("D2"), .Range("$I$3:$J$7"), 2, False)) - 1, "dd/mm/yyyy")
End With
End Sub
Bonjour,
Dans Initialize() de l'UserForm :
Code:Private Sub UserForm_Initialize() '**' Dans cette procédure nous allons ajouter les clés du dictionnaire comme source pour la combobox. Me.cboSpeca.List = dicoSpecialite.Keys With Worksheets("Liste") TextBox2.Text = Format(Application.EDate(.Range("O1"), Application.VLookup(.Range("D2"), .Range("$I$3:$J$7"), 2, False)) - 1, "dd/mm/yyyy") End With End Sub
Private Sub TextBox1_Change()
If TextBox1 = "" Then TextBox2 = "": Exit Sub
If Len(TextBox1) = 10 And IsDate(TextBox1) Then
TextBox2 = CDate(Application.EDate([Liste!O1], Application.VLookup([D2], [Liste!$I$3:$J$7], 2, False)) - 1)
End If
End Sub