Microsoft 365 Garder le focus tant que vide

NONO14 · Aujourd'hui à 08:06

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 · Aujourd'hui à 17:41

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

VB:

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 · Aujourd'hui à 18:10

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

VB:

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

Eric C · Aujourd'hui à 19:41

Bonne soirée le forum

Ton code à modifier :

VB:

Private Sub Frame19_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsNull(TxtIntitulé.Value) Or (TxtIntitulé.Text = "") Then
    MsgBox "Saisie obligatoire dans la textbox"
    Cancel = True
End If
End Sub

Bonne soirée à toutes & à tous
@+ Eric

NONO14 · 2026-01-23T20:24:56+0100

Eric C à dit:
Bonne soirée le forum

Ton code à modifier :

VB:

Private Sub Frame19_Exit(ByVal Cancel As MSForms.ReturnBoolean) If IsNull(TxtIntitulé.Value) Or (TxtIntitulé.Text = "") Then MsgBox "Saisie obligatoire dans la textbox" Cancel = True End If End Sub

Bonne soirée à toutes & à tous
@+ Eric

Bonne soirée le forum,
Ton code fonctionne à ceci près : Lorsque je clique sur un bouton pour fermer le formulaire, et bien je suis bloqué, le message s'affiche sans cesse.
Cependant, merci de t'être penché sur mon problème

Eric C · 2026-01-23T20:33:09+0100

Re,

C'est seulement lorsque tu cliques sur la croix de fermeture du USF qu'intervient ton MSG. Tu as déjà un bouton actif pour fermer ton formulaire, il te suffit de retirer la croix du bandeau du USF. !!! Pour fermer via ton bouton et afin de ne pas avoir ce MSG, il te faut remplir ton TxtIntitulé. Je regarderai demain, je vais dîner.
@+ Eric c

NONO14 · 2026-01-23T20:35:48+0100

Eric C à dit:
Re,

C'est seulement lorsque tu cliques sur la croix de fermeture du USF qu'intervient ton MSG. Tu as déjà un bouton actif pour fermer ton formulaire, il te suffit de retirer la croix du bandeau du USF.
@+ Eric c

Egalement lorsque je clique sur le bouton "Fermer le formulaire", c'est ce que j'ai remarqué chez moi.
Le message s'affiche aussi lorsque je clique sur la croix mais ce problème va être réglé par le fait que je vais rendre cette croix inactive.
Si l'utilisateur veut fermer le formulaire en cours de saisie, le message s'affiche. Bien entendu, il ne peut rien saisir ailleurs tant qu'il n'a pas saisie quelque chose dans TxtIntitulé, ça, ça fonctionne bien. C'est juste ce petit soucis de fermeture avec mon bouton

Eric C · 2026-01-23T20:48:54+0100

Re,
Ton code pour le bouton de fermeture (il faudra désactiver la croix du USF)

VB:

Private Sub BtnFermerFormulaire_Click()
If TxtIntitulé.Text <> "" Then
   Unload Me
End If
End Sub

@+ Eric

Microsoft 365 Garder le focus tant que vide

NONO14

XLDnaute Impliqué

Nicolas JACQUIN

XLDnaute Accro

NONO14

XLDnaute Impliqué

Eric C

XLDnaute Barbatruc

NONO14

XLDnaute Impliqué

Eric C

XLDnaute Barbatruc

NONO14

XLDnaute Impliqué

Eric C

XLDnaute Barbatruc

Discussions similaires

Microsoft 365 Garder le focus tant que vide

XLDnaute Impliqué

XLDnaute Accro

XLDnaute Impliqué

XLDnaute Barbatruc

XLDnaute Impliqué

XLDnaute Barbatruc

XLDnaute Impliqué

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency