Validation d'une date controle calendrier

Résolu/Fermé
manuSP Messages postés 70 Date d'inscription mercredi 21 juillet 2010 Statut Membre Dernière intervention 7 janvier 2012 - 22 juil. 2010 à 15:29
manuSP Messages postés 70 Date d'inscription mercredi 21 juillet 2010 Statut Membre Dernière intervention 7 janvier 2012 - 22 juil. 2010 à 16:21
Bonjour,

Voilà sur mon UserForm1, j'ai un bouton de commande qui ouvre mon Userform2 dans celui ci se trouve un controle calendrier, (pour la mise de la date à jour j'ai trouvé) je n'arrive pas à trouver le code qui me permettrait après avoir sélectionné un date, de valider cette date avec un bouton de commande de l'afficher dans une Textbox dans mon Userform1.

Merci

4 réponses

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 752
22 juil. 2010 à 15:34
Bonjour,

tu utilises l'évènement click de ton calendar (appelons le calendar1 dans l'exemple) :
Private Sub Calendar1_Click()
UserForm1.TextBox1.Value = Calendar1.Value
End Sub
0
manuSP Messages postés 70 Date d'inscription mercredi 21 juillet 2010 Statut Membre Dernière intervention 7 janvier 2012
22 juil. 2010 à 16:09
Merci ça fonctionne

J'ai un autre souci quand je clique sur mon bouton " valider" de mon userform2, j'aimerais revenir sur mon useform1 qui est déja ouverte le code que j'ai mis ne focntionne pas :

Private Sub CommandButton2_Click()
Load UserForm1
UserForm1.Show
End Sub

Ca écrit une erreur d'éxécution '400'

Merci
0
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 752
22 juil. 2010 à 16:15
Oui, il faut "fermer" ton UserForm2
Private Sub CommandButton2_Click() 
UnLoad UserForm2 
UserForm2.Hide 
End Sub 

L'USF1 apparaitra alors car il n'est pas fermé...
0
manuSP Messages postés 70 Date d'inscription mercredi 21 juillet 2010 Statut Membre Dernière intervention 7 janvier 2012
22 juil. 2010 à 16:21
Encore merci
0