Dans un premier textbox 5 chiffres ou lettres et le deuxième 4 chiffres ou lettres.
-- Mar Août 23, 2011 9:18 pm --
Voici une partie de mon code :
Private Sub CheckBox1_Click()
With ThisWorkbook.Names
.Add Name:="txt1", RefersTo:=Me.TextBox1.Value
.Add Name:="txt4", RefersTo:=Me.TextBox4.Value
End With
End Sub
Private Sub UserForm_Initialize()
esv.TextBox2.Value = ""
On Error Resume Next
esv.TextBox1.Value = vbNullString
esv.TextBox2.Value = vbNullString
esv.TextBox4.Value = vbNullString
esv.TextBox1.Value = Evaluate(ThisWorkbook.Names("txt1").Value)
esv.TextBox4.Value = Evaluate(ThisWorkbook.Names("txt4").Value)
End Sub
Une idée ?