Bonjour,
[fmas] : Comme dit dans le fichier de téléchargement votre TextBox4 doit être nommé "tbDate"
puis vous devez insérer cette macro dans le code du UserForm :
Private Sub tbDate_Enter()
TB = 1
Calendrier.Show
End Sub
Si vous désirez conserver l'appellation TextBox4
Dans cas c'est cette macro que vous devrez ajouter :
Private Sub TextBox4_Enter()
TB = 1
Calendrier.Show
End Sub
Dans les 2 cas vous devez visiter le Module de Classe car vous avez également renommé votre UserForm en UserForm1
Dans ce module de classe vous devez adapter cette ligne à votre choix :
Else 'si utilisation dans un UserForm ******************************************???
UserForm1.tbDate.Value = maDate 'ou
UserForm1.TextBox4.Value = maDate 'une de ces lignes doit être supprimée selon votre choix...
End If
[hlbr] :
Dans Visual Basic, dans la fenêtre VBAProject les deux classeur étant ouverts, vous faites glisser le UserForm et les différents modules du projet source vers votre projet. Au besoin agrandissez la fenêtre VBAProject verticalement pour pouvoir voir les 2 projets en même temps...
Attention comme précisé ci dessus pour fmas, si vous utilisez le calendar dans un UserForm pensez à corriger la ligne (dans le module de classe ) :
usfDemo.tbDate.Value = maDate
...selon vos propres appellations !
A+