XL 2016 Rester sur un textbox

cajuba · 19 Septembre 2024

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

wDog66 · 19 Septembre 2024

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

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...

vgendron · 19 Septembre 2024

Bonjour

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

cajuba · 19 Septembre 2024

vgendron à dit:
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 · 19 Septembre 2024

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

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

cajuba · 19 Septembre 2024

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

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

cajuba · 19 Septembre 2024

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

Merci
Bonne journée

XL 2016 Rester sur un textbox

cajuba

XLDnaute Nouveau

wDog66

vgendron

XLDnaute Barbatruc

cajuba

XLDnaute Nouveau

wDog66

XLDnaute Occasionnel

cajuba

XLDnaute Nouveau

cajuba

XLDnaute Nouveau

Discussions similaires