Microsoft 365 Affichage date du jour dans un userform au démarrage

[Benjamin42]

Bonjour,

Je n'arrive pas à faire apparaitre automatiquement la date du jour dans mon userform pourriez vous me dire mon erreur :

Private Sub UserForm1_Initialize()


' Date de commande = Date du jour par défaut
Dateconsult = Date

j'ai essayé aussi avec Dateconsult.Value = Date

Est ce que le problème ne vient pas de mon choix Initialize ?

Merci pour votre aide

 

[Dranreb]

Bonsoir.
Enlevez le '1' à 'UserForm1_Initialize'

 

[Compte Supprimé 979]

Bonsoir Benjamin42

Je conseil toujours de mettre l'objet conteneur devant

Private Sub UserForm1_Initialize()
Me.DateConsult = Format(Date,"dd/mm/yyyy")

@+

 

[jmfmarques]

Bonjour

Est ce que le problème ne vient pas de mon choix Initialize

utiliser l'évènement Activate, seul garant du chargement terminé de la totalité des composants du userform.

Private Sub UserForm_Activate() ' ------ UserForm et non Userform1

  Dateconsult.Value = Date

End Sub

 

[Dranreb]

Bonjour.
Quel que soit le nom particulier de votre objet, son générateur d'évènements internes s'appelle toujours UserForm (voir la liste déroulante 'Objet' au dessus de la fenêtre de code, du coté gauche). Il déclenche l'évènement Initialize une seule fois, après la mise en place de sa structure complète en mémoire, mais avant son 1er affichage par la méthode Show. C'est lors de chaque emploi de cette dernière qu'il déclenche l'évènement Activate, donc même après un Hide, contrairement à Initialize. C'est seulement ces considérations qui doivent guider votre choix de l'évènement (liste déroulante 'Procédure', à droite cette fois), et à première vu Initialize convenait très bien pour votre besoin.

 

[Benjamin42]

Merci à vous tous !