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

 

[Eric C]

Bonne soirée le forum

Ton code à modifier :

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]

Bonne soirée le forum

Ton code à modifier :

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]

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]

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]

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

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

@+ Eric

 

[NONO14]

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

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

@+ Eric

Désolé mais ça ne fonctionne pas. La croix est bien bloquée. Mais si l'utilisateur veut sortir du formulaire avant même d'avoir saisie du texte dans TxtIntitulé, il ne peut, il est obligé de taper quelque chose s'il veut sortir

 

[Eric C]

Bonjour le forum
Bonjour Nono, bonjour Nicolas

Après de nombreux essais, je me suis décidé à rechercher sur le Net puis sur notre cher forum. Euréka, j'ai trouvé mon bonheur (qui fera le tien également, je l'espère) avec un fichier de notre ami Dudu2, que je salue au passage. Le seul bémol est qu'il délivre avant la fermeture (que ce soit via le BTN ou la croix du USF), un message d'alerte, ce qui n'est trop gênant en soi.
Réutilise tes noms de contrôle et n'oublies pas les 2 modules.
Bon ouikand à toutes & à tous.

 

[NONO14]

Bonjour le forum
Bonjour Nono, bonjour Nicolas

Après de nombreux essais, je me suis décidé à rechercher sur le Net puis sur notre cher forum. Euréka, j'ai trouvé mon bonheur (qui fera le tien également, je l'espère) avec un fichier de notre ami Dudu2, que je salue au passage. Le seul bémol est qu'il délivre avant la fermeture (que ce soit via le BTN ou la croix du USF), un message d'alerte, ce qui n'est trop gênant en soi.
Réutilise tes noms de contrôle et n'oublies pas les 2 modules.
Bon ouikand à toutes & à tous.
Regarde la pièce jointe 1227000

Bonjour Eric, bonjour le forum,
Merci pour l'exemple et merci à Dudu2. J'avais ce modèle dont je mettais inspiré, mais c'est ce message délivré à la fermeture qui me gênait un peu car il peut être déroutant pour l'utilisateur. Je cherche un parade à ça et si je la trouve je la partagerais avec vous.
Bon weekend à tous

 

[NONO14]

Voici le fichier sans le message à la sortie.

 

[Eric C]

Re,

Une autre routine de notre patricktoulon, que je salue au passage, qui ne donnera pas de MSGBox "Veuillez entrer un nom" et en mettant la propriété TakeFocusOnClick du "CommandantButton2" à False.
@+ Eric c

 

[Eric C]

Bon courage pour la suite de ton programme.
Eric c

 

[NONO14]

Bon courage pour la suite de ton programme.
Eric c

Merci pour le classeur et merci à patricktoulon que je salue également.
Je construit mon application lentement, j'ai tout le temps, je suis à la retraite.
Merci beaucoup pour ton aide

 

[Eric C]

Re,
Tu pourra le mettre dans la rubrique téléchargement lorsqu'il sera fini. Cela peu intéresser certaines personnes.
Eric c