Arrêter une execution VBA
Résolu
Bonjour,
J'ai, dans Excel, un UserForm qui me permet d'ajouter des données dans une autre feuille.
Il doit donc entrer du texte dans certains champs, mais aussi des dates! Le problème est que je ne veux pas envoyer les données si tous les champs ne sont pas bons. Je vérifie donc le format du TextBox.
Mon problème est que je ne sais pas comment dire au programme de ne pas ajouter les données sur l'autre feuille si tous les champs ne sont pas bons, c'est-à-dire redonner la main à l'utilisateur avec un MsgBox en prime pour qu'il puisse changer ces champs.
Voici mon code jusqu'ici :
Pouvez-vous m'aider svp?
J'ai, dans Excel, un UserForm qui me permet d'ajouter des données dans une autre feuille.
Il doit donc entrer du texte dans certains champs, mais aussi des dates! Le problème est que je ne veux pas envoyer les données si tous les champs ne sont pas bons. Je vérifie donc le format du TextBox.
Mon problème est que je ne sais pas comment dire au programme de ne pas ajouter les données sur l'autre feuille si tous les champs ne sont pas bons, c'est-à-dire redonner la main à l'utilisateur avec un MsgBox en prime pour qu'il puisse changer ces champs.
Voici mon code jusqu'ici :
If Me.Txt_Livraison.Text Like "**/**/**" Then feuilDemande.Cells(ligne + 1, 7).Value = Format(Txt_Livraison.Text, "dd/mm/yyyy") Else 'Je ne sais pas quoi mettre ici End If
Pouvez-vous m'aider svp?
6 réponses
-
Bonjour,
La validation de l'envoi se fait par le click d'un bouton?? -
Exactement je suis dans Private Sub Cmd_Enregistrer_Click(). J'ai changé mon code en ça :
For ligne = 5000 To 1 Step -1 If feuilDemande.Cells(ligne, 1).Value <> "" Then numero = ligne On Error GoTo Etiquette If Me.Txt_Demandeur.Text = "" Then erreur = "Veuillez entrez la personne qui fait la demande" MsgBox (erreur) Exit Sub End If MsgBox ("apres demandeur") If Cmb_Type.Value = "" Then erreur = "Veuillez indiquer le type de la demande" Exit Sub End If If Txt_Nature.Text = "" Then erreur = "Veuillez entrer la nature de la demande" Exit Sub End If If Cmb_Priorite.Value = "" Then erreur = "Veuillez entrer la priorité de la demande" Exit Sub End If If Not (Me.Txt_Livraison.Text Like "**/**/**") Then erreur = "Champ date de livraison incorrect, veuillez entrer un format de date (jj/mm/aaaa)" Exit Sub End If If VarType(Txt_Progression.Text) = 8 Then erreur = "Veuillez entrer un pourcentage de progression valide" Exit Sub End If If Not (Me.Txt_Fin.Text Like "**/**/**") Then erreur = "Champ date de fin incorrecte, veuillez entrer un format de date (jj/mm/aaaa)" Exit Sub End If MsgBox ("Numero de la demande : " & numero) feuilDemande.Cells(ligne + 1, 1).Value = numero feuilDemande.Cells(ligne + 1, 2).Value = Txt_Demandeur.Text feuilDemande.Cells(ligne + 1, 3).Value = Format(Now, "dd/mm/yyyy") feuilDemande.Cells(ligne + 1, 4).Value = Cmb_Type.Value feuilDemande.Cells(ligne + 1, 5).Value = Txt_Nature.Text feuilDemande.Cells(ligne + 1, 6).Value = Cmb_Priorite.Value feuilDemande.Cells(ligne + 1, 7).Value = Format(Txt_Livraison.Text, "dd/mm/yyyy") feuilDemande.Cells(ligne + 1, 8).Value = Txt_Retard.Text feuilDemande.Cells(ligne + 1, 9).Value = Val(Txt_Progression.Text) / 100 feuilDemande.Cells(ligne + 1, 10).Value = Format(Txt_Fin.Text, "dd/mm/yyyy") feuilDemande.Cells(ligne + 1, 11).Value = Txt_Reponse.Text feuilDemande.Cells(ligne + 1, 12).Value = Txt_Efficacite.Text Exit Sub End If Next ligne Etiquette: MsgBox ( erreur) End Sub
Je vais donc bien dans les If et je n'envoie pas les données si il y a une erreur, mon seul problème est que je n'affiche pas l'erreur obtenue, je ne rentre pas dans Etiquette.
Je sais que j'ai des erreurs de syntaxe dans le On Error GoTo, je ne sais pas l'utiliser, quelqu'un peut me dire comment aller dans l'étiquette si je relève une erreur svp? -
Autant pour moi, je n'avais pas du tout compris la fonction On Error GoTo, j'ai donc supprimé cette ligne pour simplement ajouté GoTo au dessus de mes Exit Sub pour ne pas envoyer mes données et relever l'erreur.
Merci quand même de t'être intéresser à moi f894009 -
Re,
Un instant de réflexion......... -
Le but de ma fonction était de n'effectuer les traitements SEULEMENT si tous les champs étaient bons. Mon code ne ressemblait à rien avant, j'avais pas compris la fonction On Error, je l'ai donc supprimée et j'ai seulement fait des GoTo comme cela :
If Cmb_Priorite.Value = "" Then erreur = "Veuillez entrer la priorité de la demande" GoTo Etiquette Exit Sub End If
Ainsi, s'il y a une erreur, je vais à Etiquette et j'arrête le programme en affichant mon erreur et en laissant la main à l'utilisateur pour changer, comme je le voulais ^^ -
Re,
Bonne route
