Validation formulaire

Question

Bonjour &#224; tous,

Je butte depuis plusieurs jours sur un probl&#232;me avec un userform et j'aurais besoin de vos conseils &#233;clair&#233;s :

J'ai un formulaire classique avec un bouton de validation qui fait appel &#224; 2 proc&#233;dures:
- Dans la premi&#232;re Sub,  j'affecte le contenu des champs &#224; des variables puis j'afecte ces variables &#224; des cellules de ma feuille Excel.
- Ma deuxi&#232;me Sub copie le classeur et l'enregistre sous un nouveau classeur.

Tout fonctionne correctement jusqu'&#224; ce que j'ajoute &#224; la fin de ma premi&#232;re proc&#233;dure, un contr&#244;le sur un champ :

If  LeNomDeMonChamp = "" Then
 alert = MsgBox("Merci de saisir votre les donn&#233;es" _
, vbExclamation + vbApplicationModal, "SAISIE INCOMPLETE!")
LeNomDeMonChamp.SetFocus
Else
Assistant.Hide
Unload Me
End If

Le contr&#244;le fonctionne la premi&#232;re fois si le champ est vide et affiche le message, mais si je persiste et que je valide encore sans remplir le champ, la deuxi&#232;me proc&#233;dure est ex&#233;cut&#233;e alors que je voudrais que le message s'affiche &#224; nouveau jusqu'&#224; ce que le champ soit rempli par l'utilisateur.

Merci d'avance pour votre aide

St&#233;phan

jpleroisse · Answer

Voil&#224; ce code doit fonctionner comme tu le veux.

Dim msg As String, Intx As Integer
If LeNomDeMonChamp = "" Then
msg = "Merci de saisir vos donn&#233;es"
Intx = MsgBox (msg, vbYesNo + vbExclamation, "SAISIE INCOMPLETE"
If Intx = vbYes Then
LeNomDeMonChamp.SetFocus
Exit Sub
Else
Unload Me
End If

jpleroisse

jpleroisse · Answer

PS: J'ai oubli&#233;, un 2&#232;me End If, apr&#232;s le 1&#233;r.

jpleroisse

Serialsiner · Answer

Merci beaucoup pour ton aide, &#231;a marche !!!!  

J'ai un peu modifi&#233; le code intuitivement pour avoir seulement un bouton OK, j'ai d&#233;clar&#233; Intx comme bool&#233;en et j'ai mis une condition  If Intx = True &#224; la place, et &#231;a a l'air de fonctionner correctement.

Merci encore.
St&#233;phan

Validation formulaire

3 réponses

Discussions similaires