Question de Focus

[zeltron24]

Bonjour à toutes et tous

Juste une petite question, Peut on agrandir un formulaire dés que l'on donne le focus à un TxtBox ?
J'ai noté cette formule dans mon formulaire mais cela ne fonctionne pas.

If TxtEcheance.SetFocus Then
FrmNewTache.Height = 342
Me.Calendrier.Value = Date
End If

Ceci dans le but d'afficher un calendrier
Merci à vous de me venir en aide.
Zeltron24

 

[Pierrot93]

Re : Question de Focus

Bonjour,

place le code dans l'événement "enter" du "textbox", enfin si celui-ci est sur un userform....

FrmNewTache.Height = 342
Me.Calendrier.Value = Date

bon après midi
@+

 

[zeltron24]

Re : Question de Focus

Bonjour Pierrot93,

Merci pour ta réponse rapide et efficace.
Bien cordialement
Zeltron24
Bonne fin d'Après Midi

 

[zeltron24]

Re : Question de Focus

PS: Le TxtBox se trouve dans un UserForm mais je ne vois pas l'événement entrer!!!

 

[Pierrot93]

Re : Question de Focus

Re,

bah... chez moi si :

Private Sub TextBox1_Enter()

End Sub

selectionne au préalable le "textbox" concerné dans la "combo" de gauche....

Edition : nous parlon bien d'un textbox sur un userform et non sur une feuille de calcul....

 

[zeltron24]

Re : Question de Focus

Oui c'est bien dans un UserForm.
Je travaille avec la touche "Tab" et je souhaiterai que lorsque j'arrive sur le TxtBox le formulaire s'agrandie pour afficher le calendrier.

 

[Pierrot93]

Re : Question de Focus

Re,

Je travaille avec la touche "Tab" et je souhaiterai que lorsque j'arrive sur le TxtBox le formulaire s'agrandie pour afficher le calendrier.

peu importe... tu as trouvé l'événement "enter" ? ....

 

[zeltron24]

Re : Question de Focus

Oui, mais cela ne fonctionne toujours pas.

Voici le code

Private Sub TxtEcheange_Enter()
' Format du formulaire
    FrmNewTache.Height = 342
' Inscription de la date
    Me.Calendrier.Value = Date
End Sub

Rectification, je viens de voir que j'ai noté TxtEcheange au lieu de TxtEcheance maintenant c'est bon.
Merci à toi pour ton aide
A+

 

[Pierrot93]

Re : Question de Focus

Re,

comprends pas trop, fonctionne chez moi....

 

[zeltron24]

Re : Question de Focus

Ok , c'est bon, revoir le fil précédent
Merci et A+
Zeltron24

 

[Pierrot93]

Re : Question de Focus

Re,

Rectification, je viens de voir que j'ai noté TxtEcheange au lieu de TxtEcheance maintenant c'est bon

travaille en "Option Explicit", ca évitera ce genre de problème.... instruction à placer en tête de module, oblige à déclarer toutes les variables....

 

[zeltron24]

Re : Question de Focus

Ok , encore mille merci