Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Question de Focus

  • Initiateur de la discussion Initiateur de la discussion zeltron24
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

zeltron24

XLDnaute Impliqué
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
 
Re : Question de Focus

Bonjour,

place le code dans l'événement "enter" du "textbox", enfin si celui-ci est sur un userform....
Code:
FrmNewTache.Height = 342
Me.Calendrier.Value = Date
bon après midi
@+
 
Re : Question de Focus

Re,

bah... chez moi si :
Code:
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....
 
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.
 
Re : Question de Focus

Oui, mais cela ne fonctionne toujours pas.

Voici le code

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+
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
7
Affichages
538
Réponses
4
Affichages
586
Réponses
10
Affichages
645
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…