XL 2016 VBA - Comment activer un UserForm vbModeless

Dudu2 · 20 Décembre 2021

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.

patricktoulon · 20 Décembre 2021

Bonsoir @Dudu2
si il y a au moins deux textboxs dans le userform celle si fonctionne

VB:

Private Sub UserForm_Click()
    With Me.TextBox1
        .Enabled = False: .Enabled = True
        .SetFocus
        .SelStart = Len(TextBox1)
    End With
End Sub

patricktoulon · 20 Décembre 2021

Bonsoir @Dudu2
si il y a au moins deux textboxs dans le userform celle si fonctionne

VB:

Private Sub UserForm_Click()
    With Me.TextBox1
        .Enabled = False: .Enabled = True
        .SetFocus
        .SelStart = Len(TextBox1)
    End With
End Sub

Dudu2 · 20 Décembre 2021

Bonsoir @patricktoulon.
Merci pour ta réponse.

Dudu2 · 20 Décembre 2021

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.

XL 2016 VBA - Comment activer un UserForm vbModeless

Dudu2

XLDnaute Barbatruc

Pièces jointes

patricktoulon

patricktoulon

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

Discussions similaires