XL 2016 Rester sur un textbox

vgendron à dit:

Bonjour

teste avec la méthode
TonTextBox.setfocus
a mettre dans l'évènement "TonTextbox_afterupdate"

Cliquez pour agrandir...

wDog66 à dit:

Bonjour,

Je n'ai pas bien compris le principe 🤔

Mais si c'est simplement pour que le bouton [Administrateur] ne soit pas sélectionné,
il suffit de changer l'ordre des contrôles
Regarde la pièce jointe 1203694
et d'enlever la propriété correspondante
Regarde la pièce jointe 1203693

Sinon, dans votre USF, il faut ces instructions

VB:

Option Explicit
Dim Flg As Boolean

Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  Flg = True
End Sub

Private Sub CommandButton2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  Flg = True
End Sub

Private Sub Référence_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  If Flg = False Then Cancel = True
End Sub

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

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
  Flg = True
End Sub

Cliquez pour agrandir...

wDog66 à dit:

Bonjour,

Je n'ai pas bien compris le principe 🤔

Mais si c'est simplement pour que le bouton [Administrateur] ne soit pas sélectionné,
il suffit de changer l'ordre des contrôles
Regarde la pièce jointe 1203694
et d'enlever la propriété correspondante
Regarde la pièce jointe 1203693

Sinon, dans votre USF, il faut ces instructions

VB:

Option Explicit
Dim Flg As Boolean

Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  Flg = True
End Sub

Private Sub CommandButton2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  Flg = True
End Sub

Private Sub Référence_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  If Flg = False Then Cancel = True
End Sub

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

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
  Flg = True
End Sub

Cliquez pour agrandir...