TextBox1 facultatif à remplir

[PJ87]

Bonjour le Forum,
Avec mon USF j’ajoute de nouveau nom dans mes différents groupes.
La textBox2 pour Nom-Prénom (obligation de la remplir)
La TextBox3 pour Catégorie (obligation de la remplir)
La TextBox1 la première à remplir doit être facultatif à remplir.
Si je laisse la textBox1 vide j’ai actuellement un message d’erreur.
Que faut il rajouter pour éviter ce bug.
Merci de votre aide
TEXTBOX1 FACULTATIF.xlsm (94,8 Ko)

[Yoyo01000]

Bonjour,
en regardant de plus près, tu verras que ça ne vient pas de la TextBox1 remplie ou pas mais que ça vient de la partie de ton code auquel tu demandes d’afficher une MsgBox si la ligne 43 est remplie (non vide)

[PJ87]

Bonjour Yoyo01000,
Aurais tu une idée à mon problème.
car la je n’arrive pas à trouver la solution.
Merci de ton aide

[FFO]

Bonjour

Quelque chose comme ceci :

If TextBox1.Text <> «  » Then
Sheets(« liste »).Cells(dlig, col - 1) = CDbl(TextBox1.Text)
End If
Attention aux guillemets à retaper au clavier accoler à la donnée ou sans espace entre
Cela devrais le faire

[PJ87]

Bonjour FFO,
C’est exactement la même chose que je viens de trouver à l’instant.
Merci de ton aide ainsi qu’à Yoyo01000.
Bonne après midi à tous les 2 et au Forum.