VBA - redondance pour signaler une erreur - Userform

a

Bonjour,

Je ne peux pas tester ton code car sur iPad mais à ta place, sur chaque condition If-Then, je sortirai de la procédure avec Exit Sub et de cette façon ce n'est que quand toutes les conditions seront remplies que ça arrivera à la partie de traitement :

Private Sub EnregistrerButton_Click()
Dim Ligne As Integer
Dim Flag As Integer

If ComboBox1.Value = "" Then
TextBox7.Value = "Chantier non renseigné"
ComboBox1.ForeColor = RGB(255, 0, 0)
  ComboBox1.BackColor = RGB(255, 169, 169)
Exit Sub
End If

If CheckBox4.Value = False And ComboBox2.Value = "" Then
    TextBox7.Value = "Renseignements d'Armoire manquants"
    CheckBox4.ForeColor = RGB(255, 0, 0)
    CheckBox4.BackColor = RGB(255, 169, 169)
    ComboBox2.ForeColor = RGB(255, 0, 0)
    ComboBox2.BackColor = RGB(255, 169, 169)
    Exit Sub
End If

´...
´...