Bonjour,
Sur un code je n'arrive pas à faire une question msgbox imbriqué dans un if
Je voudrais que si conformite (textbox à remplissage manuel) n'est pas égale à 0, 1, 2 ou 3 une erreur apparaît (fonctionne) mais je n'arrive pas à faire que si conformite = 2 une question msgbox apparaisse et demande confirmation pour continuer le code, pareil pour conformite = 3.
Tout le reste du code fonctionne uniquement cette partie ou je bloque...
Merci d'avance
Sur un code je n'arrive pas à faire une question msgbox imbriqué dans un if
Code:
'Conformité
If Me.Conformite = "" Or Me.Conformite <> 1 And Me.Conformite <> 2 And Me.Conformite <> 3 And Me.Conformite <> 0 Then
MsgBox "Veuillez renseigner une conformité comme ceci :" & vbCrLf & "0 = NC" & vbCrLf & "1 = C" & vbCrLf & "2 = 2C" & vbCrLf & "3 = 2NC"
Exit Sub
End If
'Remplissage des cellules
If Me.Conformite = 2 Then
ElseIf MsgBox("Etes-vous sur de mettre 2 points de nconformité ?", vbQuestion + vbYesNo, "Confirmation...") = vbYes Then
Else: Exit Sub
End If
If Me.Conformite = 3 Then
ElseIf MsgBox("Etes-vous sur de mettre 2 points de non-conformité ?", vbQuestion + vbYesNo, "Confirmation...") = vbYes Then
Else: Exit Sub
End If
If MsgBox("Confirmez-vous le contrôle de ce lot ?", vbQuestion + vbYesNo, "Confirmation...") = vbYes Then
L = v_DerniereLigne
Rows(L).Insert
Cells(L, 1).Value = NumLot
Cells(L, 2).Value = Date1
Cells(L, 3).Value = Trigramme
Cells(L, 4).Value = Equipement
Cells(L, 5).Value = Cuve
Cells(L, 6).Value = PurgeDebut
Cells(L, 7).Value = PurgeFin
Cells(L, 8).Value = Comm
Cells(L, 9).Value = Conformite
NumLot.Value = ""
Date1.Value = ""
Trigramme.Value = ""
Equipement.Value = ""
Cuve.Value = ""
PurgeDebut.Value = ""
PurgeFin.Value = ""
Comm.Value = ""
Conformite.Value = ""
Verif.Visible = False
MultiPage1.Visible = False
CommandButton1.Visible = False
Confirmer.Visible = False
Conformite.Visible = False
Label10.Visible = False
Label11.Visible = False
Label12.Visible = False
Label13.Visible = False
Label14.Visible = False
NumLot.BackColor = &H8000000A
End If
End Sub
Tout le reste du code fonctionne uniquement cette partie ou je bloque...
Merci d'avance