Saisie dans textbox obligatoire

[denis]

Bonsoir à tous


Merci à tous pour l'aide, grace au forum on avance.

If TextBox1.Value = " " Then
MsgBox "La Case Nom et vide, veuillez compléter", vbCritical, "Invalide"
TextBox1.SetFocus
Exit Sub
End If

Quelqu'un a une soluce pour que quant on tape sur entrée (si textbox1 et vide je ne passe pas au textbox2

d'avance merci
@ + denis

 

[vincent]

Bonsoir

met ton code dans l'evenement Exit de ta textbox et remplace ton textbox1.setFocus par cancel=true.

A plus

@+Vincent

 

[denis]

Re bonsoir
Merci Vincent

C'est toujours le bazard, ça marche pas

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1.Value = " " Then
MsgBox "La Case Nom et vide, veuillez compléter", vbCritical, "Invalide"
TextBox1.Cancel = True
Exit Sub
End If

End Sub

Je passe toujours textbox1, j'ai plus le msgbox ???
j'ai pas tous capter

Merci pour le coup de mains

@+ denis

 

[vincent]

Re

je vois le problème (du moins je crois).

Le 1 est facile ce n'est pas textbox1.cancel=true mais cancel=true (sans textbox1. ).

Ensuite si ton textbox ne contient pas un espace (=" ") c'est normal que tu n'est rien soit tu mets textbox1.value="" soit isempty(textbox1)=true.

Voilà

@+Vincent

 

[denis]

re bonsoir


Grand merci Vincent ça marche au poil.
@+ Denis