Sortir d'une boucle si "Annuler" dans USF

Alghorn

XLDnaute Junior
Bonjour tous !

Je suis face à une problématique qui me semblait pourtant simple mais sur laquelle je me casse les dents.
J'ai un USF dans le lequel l'utilisateur va remplir un certain nombre de textbox.

Le but étant de contrôler la textebox de cette façon :
si textbox =""
alors msgbox "merci de vérifier la donnée"
inputbox "rentrer la donnée"
si la valeur est toujours "" on recommence
si "Annuler" est cliquer alors exitsub

Mais je n'arrive pas à traduire cela :(

I need somebody, help !

Merci d'avance pour votre aide
 

Bebere

XLDnaute Barbatruc
bonjour
prend le code qui t'arrange
Code:
Garder le focus dans un TextBox tant qu'il est vide.
Vba

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If TextBox1.Value = "" Then Cancel = True
End Sub

Private Sub TextBox8_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsNull(TextBox8.Value) Or (TextBox8.Text = "") Then
    MsgBox "Saisie obligatoire dans la textbox"
    Cancel = True
End If
End Sub
 

Alghorn

XLDnaute Junior
Bonjour Bebere et merci pour ta réponse

Le second code est celui qui me conviendrai le mieux.
Mais j'ai environ 8 textbox a checker, et une fois la validation effectuée, l'USF va ventiler les infos saisies dans mon classeur.
J'aurais aimé que lors de la validation, une vérification soit faite à ce moment là et qu'il m'empêche cette validation si des éléments sont manquant, avec la possibilité d'annuler et donc de sortir de la procédure de validation.

Avec ta solution, j'ai effectivement ce que j'attendais, mais je peux tout de même activer la validation, ce qui est problématique.
 

herve62

XLDnaute Barbatruc
Supporter XLD
Bonsoir à tous, Alghorn
Pas beaucoup de temps en ce moment pour être ici
Sinon je te laisse une idée avec cet exemple que je viens d'écrire vite fait , il faut améliorer puis adapter à ton sujet
pour moi c'est le msgbox qui me gêne ( à revoir) car il faut cliquer OK et on n'accède pas de suite à la box pour saisir
j'ai donc mis en grisé pour repérer les box à compléter ; partie à améliorer
L'USF disparaitra lorsque toutes les box seront complétées
Comme j'ai dit ce n'est qu'une idée : prendre ou ne pas prendre !!!
 

Pièces jointes

  • check-empty.xlsm
    15.3 KB · Affichages: 24

Statistiques des forums

Discussions
311 725
Messages
2 081 944
Membres
101 849
dernier inscrit
florentMIG