exécuter la suite de l' equation après avoir utiliser exit sub Résolu/Fermé

Question

Bonjour voila mon problème ,j'aimerais exécuter les codes derrière un bouton que j'ai créer dans un userforme . j'ai poser des conditions qui lorsqu'ils ne sont pas vérifier l'exécution doit s’arrêter ,mais le problème est que si les conditions sont respectées la suite du code ne s'execute plus. 
voici le code en question . merci 
Private Sub Enrgstr_Click()If Qtité_cmde.Value = "" Then MsgBox ("veuillez entré unne quantité")Exit Sub    If prix_achat.Value = "" Then MsgBox ("veuillez entré le prix d'achat")Exit Sub    'enrégistrement des produits comandéesFor i = 1 To Derline(1, 1)If (Nom_prdt.Value = Sheets("PRODUIT").Cells(i + 1, 1)) ThenSheets("PRODUIT").Cells(i + 1, 4) = Sheets("PRODUIT").Cells(i + 1, 4) + Qtité_cmde.Value    End IfNext iIf (flag = False) Then    Rows("2:2").Select    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAboveSheets("PRODUIT").Cells(2, 1) = Nom_prdt.ValueSheets("PRODUIT").Cells(2, 2) = Type_prdt.ValueSheets("PRODUIT").Cells(2, 3) = code_prdt.ValueSheets("PRODUIT").Cells(2, 4) = Qtité_cmde.ValueSheets("PRODUIT").Cells(2, 6) = prix_achat.ValueSheets("PRODUIT").Cells(2, 8) = Dat_achat.ValueSheets("PRODUIT").Cells(2, 9) = Dat_premp.ValueSheets("PRODUIT").Cells(2, 10) = Nom_grosis.ValueSheets("PRODUIT").Cells(2, 11) = Adres_gross.ValueEnd IfNom_prdt.Value = ""Type_prdt.Value = ""code_prdt.Value = ""Qtité_cmde.Value = ""prix_achat.Value = ""Dat_achat.Value = ""Dat_premp.Value = ""Nom_grosis.Value = ""Adres_gross.Value = ""Rows("2:2").Select    With Selection.Font        .Name = "Calibri"        .Strikethrough = False        .Superscript = False        .Subscript = False        .OutlineFont = False        .Shadow = False        .Underline = xlUnderlineStyleNone        .ColorIndex = xlAutomatic        .TintAndShade = 0        .ThemeFont = xlThemeFontMinor    End With    Selection.Font.Bold = False    Selection.Font.Italic = FalseEnd Sub

Utilisateur anonyme · Answer

Bonjour

si tu veux faire plusieurs instruction dans une boucle If, il faut faut délimiter ces instructions avec un End if et éventuellement un Else

If Qtité_cmde.Value = "" Then
     MsgBox ("veuillez entré unne quantité")
     Exit Sub
ElseIf prix_achat.Value = "" Then
     MsgBox ("veuillez entré le prix d'achat")
     Exit Sub
End if
 


Par contre, il faut enlever les noms d'accent dans les variables ou noms d'objets.
Il suffit que par besoin ou accident tu changes la langue de ton PC et ta macro sera cassée.

Exécuter la suite de l' equation après avoir utiliser exit sub

1 réponse

Discussions similaires