[VBA] Message d'erreur si une TextBox n'est pas remplie

Question

J'ai créé un code qui ajoute une feuille au Fichier. Une fois la feuille ajoutée, une TextBox s'affiche pour nommer la feuille selon un format spécifique. Sur le bouton "OK" : ActiveSheet.Name = TextBox1 Le soucis c'est que si on valide alors qu'aucun nom n'est rentré il y a une érreur d'éxécution sur ce code. J'aimerais donc que si aucun nom n'est rentrer, un message s'affiche "Veuillez entrer un nom". Je voulais éssayer avec un If TextBox1 Is Nothing Then UserForm3.Show mais je sais que ce n'est pas ça ^^ Merci pour vos réponses Calagan...

dsou · Accepted Answer

Quelque chose comme cela if textbox1="" then 'tu peux auusi controler la validider de la saise msgbox "Vous n'avez pas saisie un nom correct" textbox1.select end if user3.hide end sub...

Banzai64 · Answer

Bonjour Dsou Sans le code difficile de trouver une bonne solution Essayes If Me.TextBox1 = "" Then MsgBox "Veuillez renseigner le nom" Exit Sub End If ' ' Code pour renommer la page ' ActiveSheet.Name = TextBox1...

Zirak · Answer

Banzai tu n'es pas loin, mais avec ton code, cela va afficher le message et passer quand même à la tentative de rennomage de la feuille avec un nom vide et donc message d'erreur. Un truc ressemblant à mettre dans le code de ton bouton, je n'ai pas testé mais cela devrait marcher : Sub NomduBouton_click () If Me.TextBox1.value="" then MsgBox "Veuillez entrer un nom svp" else ActiveSheet.Name = TextBox1 Userform3.Hide end if end sub...

Banzai64 · Answer

Bonjour Zirak T'es sur ? je pensais qu'avec Exit Sub on sortait de la procédure et que le reste du code n'était pas exécuté Mais bon faut que je révise Bonne journée...