XL 2016 Rester sur un textbox

[cajuba]

Bonjour,

Concernant EXCEL VBA,
J'ai un userform nommé DETERMINATION
Dedans, il a un textbox nommé REFERENCE (Il y en a d'autres, mais qui résultent de recherches), un bouton ADMINISTRATEUR et QUITTER
Je voudrais que le curseur reste toujours sur REFERENCE même après validation

Après plusieurs recherches infructueuses, je fais appel à vos connaissances, étant novice.
Merci

 

[vgendron]

Bonjour

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

 

[cajuba]

Bonjour

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

Merci mais ne fonctionne pas, passe toujours au bouton ADMINISTRATEUR :-(

 

[wDog66]

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

et d'enlever la propriété correspondante

Sinon, dans votre USF, il faut ces instructions

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

 

[cajuba]

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

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

UN GRAND MERCI POUR VOTRE AIDE
C'est parfait
Bonne journée

 

[cajuba]

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

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

Merci
Bonne journée