Focus

[Bruce68]

Bonjour à tous

Dans cette macro pourquoi je ne recupere pas le focus? le focus passe au TextBox suivant

Je vous remercie de votre aide

Private Sub TextBox7_AfterUpdate()
z = TextBox7.Value
TextBox7.Value = Format(CCur(TextBox7), "0.00 € ")
Label18.Caption = Format(CCur(Label16) - Format(CCur(TextBox7) + Format(CCur(Label25), "0.00 €")))
If z <= x Then
Else
MsgBox (TextBox7.Text & " est plus grand que le solde! de: " & Label22)
TextBox7.Text = ""
TextBox7.SetFocus
If TextBox7.Value = "" Then Cancel = True
Label18.Caption = ""
End If
If z >= x Then
Else
Frame3.Visible = True
Label18.Caption = Format(CCur(Label18), "0.00 €")
End If
End Sub

 

[Pierrot93]

Re : Focus

Bonjour,

place peut être cette ligne de code à la fin de ta procédure...

TextBox7.SetFocus

bonne journée
@+

 

[Bruce68]

Re : Focus

Bonjour Pierrot93

Merci pour la réponse mais cela ne change rien, je passe toujours au TextBox suivant

Merci pour l'aide

 

[JNP]

Re : Focus

Bonjour le fil 🙂,
J'utiliserais plutôt l'événementielle

Private Sub TextBox7_Exit(ByVal Cancel As MSForms.ReturnBoolean)
... 
Else
MsgBox (TextBox7.Text & " est plus grand que le solde! de: " & Label22)
TextBox7.Text = ""
Cancel = True
...
End Sub

Sachant que tu as en plus un Cancel en dessous qui, à priori, ne sert à rien, vu que

Private Sub TextBox7_AfterUpdate()

n'a pas d'argument 😛...
Bonne journée 😎

 

[Pierrot93]

Re : Focus

Re,

tes contrôles sont placés où ? une feuille de calcul ou sur un USF ?

 

[Bruce68]

Re : Focus

Bonjour JNP et le forum

Merci JNP pour ta réponse cela fonctionne à merveille.

Bonn journée à tous