Salut Aour
Soit UserForm1 ton Control Calendar
Private Sub Calendar1_Click()
UserForm2.ActiveControl = Format(UserForm1.Calendar1.Value, "DD MMMM YYYY")
Unload UserForm1
End Sub
Et UserForm2 tes Textbox's
Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
UserForm1.Show
End Sub
Private Sub TextBox2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
UserForm1.Show
End Sub
Private Sub TextBox3_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
UserForm1.Show
End Sub
A voir si cela pourrait t'aider
Mytå