[VBA] URGENTsvp!!! procédure d'enregistrement
Résolu
grace
-
grace -
grace -
Bonjour,
j'ai créé un formulaire permettant de remplir une base de données Excel. Lors de l'enregistrement des données (opérateur click sur le bouton "enregistrer") je souhaite que l'on affiche un message d'erreur si l'un des champs n'ai pas remplie.
Je ecrit ce programme :
If TextBox1.Value = "" Then
MsgBox "Il faut entrer un numéro d'étiquette"
End If
Or avec ceci il affiche le message d'erreur mais il enregistre aussi (quand même) les données!
Je pense qu'avant le "end if" il faut mettre un "else" avec une action qui lui indique de ne pas enregistrer mais je ne sais comment rédiger cette action!
J'espère avoir été assez claire!
Merci de me répondre le plus rapidement possible.
j'ai créé un formulaire permettant de remplir une base de données Excel. Lors de l'enregistrement des données (opérateur click sur le bouton "enregistrer") je souhaite que l'on affiche un message d'erreur si l'un des champs n'ai pas remplie.
Je ecrit ce programme :
If TextBox1.Value = "" Then
MsgBox "Il faut entrer un numéro d'étiquette"
End If
Or avec ceci il affiche le message d'erreur mais il enregistre aussi (quand même) les données!
Je pense qu'avant le "end if" il faut mettre un "else" avec une action qui lui indique de ne pas enregistrer mais je ne sais comment rédiger cette action!
J'espère avoir été assez claire!
Merci de me répondre le plus rapidement possible.
Configuration: Windows XP Internet Explorer 6.0
2 réponses
-
If TextBox1.Value = "" Then
MsgBox "Il faut entrer un numéro d'étiquette"
else
.... procedure d'enregristrement
End If
end sub-
-
-
Maintenant si je veux tester le contenu de plusieurs champs comment je fais?
Il y a des Combobox et des textbox
J'ai essayé cela mais ca ne marche pas :
If TextBox1.Value = "" Then
MsgBox "Il faut entrer un numéro d'étiquette"
If combobox1.Value = "" Then
MsgBox "Choisir un responsable dans la liste"
else
.... procedure d'enregristrement
End If
End if
end sub
Merci d'avance pour vos reponses
-
-
If TextBox1.Value = "" Then
MsgBox "Il faut entrer un numéro d'étiquette"
elseIf combobox1.Value = "" Then
MsgBox "Choisir un responsable dans la liste"
else-
Merci de nouveau!
Si je veux testé le contenu d'une textbox
format de date jj/mm/aaaa
il ne faut pas que cela s'enregistre si la date n'a pas ce format???
Et d'autre part comment fait-on pour mettre un message à l'ouverture de la userform (sachant que ma userform s'affiche suite à un click sur un commandbouton d'une autre userform)???
J'espère avoir été claire
Merci par avance
-
