Discussion :

[moilou2]

Bonjour, je voudrais afficher un calendrier placé dans un UserForm, en cliquant sur une textBox d'un autre UserForm.

C'est très simple, mais je ne comprend pas pourquoi le calendrier ne s'ouvre pas en cliquant sur ma textBox avec le code suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub TxtDate_Click()
 
Calendrier.Show
 
End Sub

Alors que si je met sa sur un bouton sa fonctionne??? Qu'est ce qui peut bloquer? C'est bizzard quand même?

[oOVaveOo]

Il faut peut-être masquer ton premier userform pour afficher le second ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub TxtDate_Click()
 
Bidule.hide 
Calendrier.Show
 
End Sub

[ucfoutu]

Bonjour,

Ce que tu fais n'est valable que si calendrier est le nom de ton autre UserForm et non celui d'un contrôle que contiendrait ton autre UserForm.

Si calendrier est le nom d'un UserForm, il va de surcroît falloir jouer avec Zorder
Calendrier.Zorder
pour le mettre au premier plan

[wilfried_42]

bonjour

je ne pense pas que cela soit bizarre., il n'y a pas d'évennement click sur un textBox, c'est une zone de saisie, donc on a un evennement Enter et Exit

Enter quand on entre dans ce control, soit par la souris soit par tab ou entrée
Exit Quand on en sort

oups : je suis en retard moi, Bonjour à tous, et j'ai peut etre dit une bétise

[moilou2]

re et merci pour vos réponses.

Wifried, tu as raison c'est pour cela que sa ne fonctionnait pas. J'ai placé mon code sur evenemnt "Enter" et maintenant cela fonctionne.

Merci

[pgz]

Bonjour.

Bien bizarre cet évènement Click...
J'essaierais GotFocus...

[moilou2]

Juste un petit souci sur évenement Enter.

Sa m'affiche bien mon calendrier, je clic sur une date sa me met bien la date dans ma textBox, mais si je me suis trompé de date et que je souhaite réaficher mon calendrier, il faut que j'aille reclicer ailleur pour le réafficher? Y a t-il un autre moyen de procéder?

Merci

[wilfried_42]

re:

Quand tu mets la date dans ton textbox : envoie le focus sur le control suivant, comme cela s'il y a une erreur, le retour sur txtdate provoquera automatiquement le retour du calendrier

txtdate = mavaleur
2emetxt.setFocus

[ucfoutu]

Utilise alors l'évènement MouseDown ou l'évènement DbdClick

[moilou2]

OK super.