XL 2016 VBA - Comment activer un UserForm vbModeless

  • Initiateur de la discussion Initiateur de la discussion Dudu2
  • 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 !

Dudu2

XLDnaute Barbatruc
Bonjour,

Je ne trouve pas le moyen de faire un SetFocus sur un Control de UserForm vbModeless après ré-activation du UserForm quand par exemple, l'utilisateur a cliqué dans la feuille puis clique dans le UserForm

Cordialement
VB:
Private Sub UserForm_Activate()
    'SetFocus sur la TextBox
    Me.TextBox1.SetFocus
End Sub

Private Sub UserForm_Click()
    AppActivate Me.Caption
 
    'Ne SetFocus de rien du tout !
    Me.TextBox1.SetFocus
End Sub

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
 
End Sub

Et si je déplace la séquence dans le UserForm_MouseMove() j'arrive encore moins à conditionner son exécution par le fait que le UserForm n'est pas actif.
 

Pièces jointes

Dernière édition:
Je trouve qu'en vbModeless c'est très très emm... car quand le UserForm est désactivé par une manip (sélection dans la feuille, sélection d'une autre feuille) l'évènement _Deactivate() ne se déclenche pas, pas plus que l'évènement _Activate() lors qu'on revient dans le UserForm en cliquant dans un Control quelconque. Alors que ces mêmes évènements sont déclenchés quand un autre UserForm est affiché "par dessus" le UserForm en cours.
 
- 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
41
Affichages
698
Retour