La je peche et n"y arrive pas

20/01/2006, 05h55

Tt d'abord, je suis heureux de trouver des multitudes de reponses et d'aides precieuses a mes difficultes.
Ma question est la suivante :

Je voudrais qu'à l'ouverture d'1 txtbox que la personne s'identifie pour ke son nom apparaisse dans un cellule mais qu'il soit obligé de remplir sinon la fentre reste ouverte, et un message box apparaisse en disant que la saisie du nom est obligatoire

En esperant avoir ete explicite

Cordialement et merci a celui ou celle qui si collera

AdDoNiZ

jacktati · 20/01/2006, 08h38

Salut,

ici un Test exemple pour la TextBox1, si elle est vide on est viré !!!

Code:

If TextBox1 = '' Then
MsgBox 'Vous n'avez rien saisi dans la textBox1 !'
TextBox1.SetFocus
Exit Sub
End If

Voilà
@+

Eric C · 20/01/2006, 10h08

Bonjour le forum
Bonjour adDoNIZ, jacktati

Pour ma part, j'aurais fait ainsi :

Code:

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1 = '' Then
MsgBox 'Vous n'avez rien saisi dans la textBox1 !'
TextBox1.SetFocus
Cancel = True
'Exit Sub
End If
End Sub

Ainsi l'utilisateur ne peut saisir de données dans le TextBox2 (s'il en est) et ne peut fermer via le CommandButton ==> Il est donc obligé de renseigner au moins un caractère dans le TextBox1.

Bonne journée à toutes & à tous

20/01/2006, 05h55	#1 (permalink)
ouverture si saisie dans txtbox Guest Messages: n/a	La je peche et n"y arrive pas Tt d'abord, je suis heureux de trouver des multitudes de reponses et d'aides precieuses a mes difficultes. Ma question est la suivante : Je voudrais qu'à l'ouverture d'1 txtbox que la personne s'identifie pour ke son nom apparaisse dans un cellule mais qu'il soit obligé de remplir sinon la fentre reste ouverte, et un message box apparaisse en disant que la saisie du nom est obligatoire En esperant avoir ete explicite Cordialement et merci a celui ou celle qui si collera AdDoNiZ

20/01/2006, 08h38	#2 (permalink)
jacktati XLDnaute Occasionel Date d'inscription: décembre 2005 Version Excel : Excel XP (PC) Messages: 122	Re:La je peche et n"y arrive pas Salut, ici un Test exemple pour la TextBox1, si elle est vide on est viré !!! Code: If TextBox1 = '' Then MsgBox 'Vous n'avez rien saisi dans la textBox1 !' TextBox1.SetFocus Exit Sub End If Voilà @+ __________________ Entre Ce que je pense, Ce que je veux dire, Ce que je crois dire, Ce que je dis, Ce que vous avez envie d'ententre Ce que vous croyez entendre, Ce que vous entendez, Ce que vous avez envie de comprendre Ce que vous croyez comprendre,Ce que vous comprenez Il y a dix posibilités qu'on ait des difficultés à communiquer Mais essayons quand même ... Citation de Bernard Werber

20/01/2006, 10h08	#3 (permalink)
Eric C XLDnaute Impliqué Date d'inscription: février 2005 Messages: 882	Re:La je peche et n"y arrive pas Bonjour le forum Bonjour adDoNIZ, jacktati Pour ma part, j'aurais fait ainsi : Code: Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) If TextBox1 = '' Then MsgBox 'Vous n'avez rien saisi dans la textBox1 !' TextBox1.SetFocus Cancel = True 'Exit Sub End If End Sub Ainsi l'utilisateur ne peut saisir de données dans le TextBox2 (s'il en est) et ne peut fermer via le CommandButton ==> Il est donc obligé de renseigner au moins un caractère dans le TextBox1. Bonne journée à toutes & à tous __________________

ANNONCES

Outils de la discussion
Afficher une version imprimable Envoyer un lien vers cette page par email