Microsoft 365 Garder le focus tant que vide

[NONO14]

Bonjour à toutes et à tous,
Voici mon problème : Dans un formulaire Vba, j'ai une TextBox qui a le focus à l'activation. Je souhaiterais savoir comment faire pour empêcher de quitter le focus tant que la TextBox est vide ? L'utilisateur ne peut rien rien tant que rien n'est saisie.
Merci par avance pour votre aide

 

[Nicolas JACQUIN]

Re, je pense que ça fonctionnerai mieux avec un code dans ce style, à adapter : "BeforeUpdate"

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
    If Trim(Me.TextBox1.Value) = "" Then
        MsgBox "Veuillez saisir une valeur.", vbExclamation
        Cancel = True   ' empêche la sortie du champ
    End If
End Sub

Nicolas

 

[NONO14]

Re, je pense que ça fonctionnerai mieux avec un code dans ce style, à adapter : "BeforeUpdate"

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
    If Trim(Me.TextBox1.Value) = "" Then
        MsgBox "Veuillez saisir une valeur.", vbExclamation
        Cancel = True   ' empêche la sortie du champ
    End If
End Sub

Nicolas

Bonjour Nicolas,
J'ai essayé mais ça ne fonctionne pas