Bonsoir Black_Hole
Bonsoir voisin
Le calendrier fonctionne très bien....
@ Black_Hole
Tu veux mettre une date dans un "Label" de ton "UserForm1"
Tu es sûr que c'est pas plutôt un "TextBox"?
Dans ton Usf1, tu as 2 TextBox...
Pour y remédier, tu mets une variable "Public" dans le module 1 :
Public LeTxt As Byte
Dans le code de l'userform "UserForm1", tu modifies tes codes ainsi :
Private Sub CommandButton1_Click()
LeTxt = 1
FormCal.Show
End Sub
Private Sub CommandButton2_Click()
LeTxt = 2
FormCal.Show
End Sub
Et dans le code du bouton "Ok" de l'userform "FormCal", tu mets ceci :
Private Sub OK_Click()
UserForm1.Controls("TextBox" & LeTxt) = CDate(FormCal.Jour)
Unload Me
End Sub
Et ça marche (Excel 2016 pour moi...)
Bonne soirée