sortir de l'UserForm

[Bruce68]

Bonjour à tous

dans le fichier ci joint j'aimerais sortir de l' UserForm par le bouton QUITTER, il faut que les TextBox soient remplis.

Que faut il mettre pour sortir de l'UserForm ?

Je vous remercie de votre aide

 

[kiki29]

Re : sortir de l'UserForm

Salut, à priori Unload Me, en pj un exemple qui devrait t'inspirer surtout pour les saisies

 

[phlaurent55]

Re : sortir de l'UserForm

Bonjour à tous,

le fichier en retour ......................... avec un sérieux nettoyage d'une grosse partie de code inutile
il n'était pas nécessaire de faire les tests sur le bouton "Quitter" mais plutôt sur l'autre bouton de validation


à+
Philippe

 

[YANN-56]

Re : sortir de l'UserForm

Bonjour à tous,

Je confirme le nettoyage nécessaire dont parle Philippe.

Donc après avoir supprimé tes alertes à chaque TextBoxes:

Tu peux mettre ceci dans le bouton 2 ou un autre:

Private Sub CommandButton2_Click()
Dim INCOMPLET As Boolean
For Each TXB In UserForm1.Controls
  If TypeName(TXB) = "TextBox" Then
    If TXB.Value = "" Then INCOMPLET = True
  End If
Next
If INCOMPLET = False Then
Unload Me
Else
    MsgBox (" Saisie Incomplète")
End If
End Sub

Il y a peut-être encore plus simple...
Car avec les "If" et les "Else" puis "Exit Sub: Je ne suis pas bon!

Amicalement

Yann

 

[Robert]

Re : sortir de l'UserForm

Bonjour le fil, bonjour le forum,

Juste un tout petit plus avec la gestion de la ou des textboxes vides (curseur positionné dessus)...

 

[Bruce68]

Re : sortir de l'UserForm

Bonjour à tous

Je vous remercie tous de votre aide.
La solution de Robert est pour moi la meilleur, le controle est effectué à chaque TextBox cela evite de revenir dans L'userForm et de chercher le ou les TextBox vides surtout que dans mon fichier il y en aura une cinquantaine.

Bonne journée à tous et merci