Question msgbox imbriqué dans un if

[Victor42]

Bonjour,
Sur un code je n'arrive pas à faire une question msgbox imbriqué dans un if

'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

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

 

[Staple1600]

Bonjour le fil, le forum

@Victor42
Il est toujours plus facile d'aider si on dispose d'un fichier exemple fourni par le demandeur.
Surtout qu'ici il s'agit d'un userform.
(Cela nous évitera de devoir le resconstruire)

 

[Victor42]

Je ne peux que vous exporter le fichier les données excel sont confidentielles.
Il faut juste que je puisse faire un if avec une question msgbox derrière qui fait poursuivre le code

 

[Staple1600]

Re

@Victor42
Il suffit d'anomyser ton fichier mais en préservant sa structrure
Et c'est cette copie (ou juste un extrait illustrant le problème) qu'il faut ici poster.

Entre 17 et 33 minutes, cela te prendra, jeune padawan.*
(grâce aux fonctionnalités d'Excel)

*: Oui, je sais j'ai trop regardé TF1 hier soir 😉

 

[Victor42]

Avec quel fonctionnalités on peut faire sa ?
Moi aussi j'ai trop regardé ^^
Edit: Je viens de trouver merci

 

[Victor21]

Bonjour, Victor 42.

ET LE CLIGNOTANT ?

 

[Victor42]

Clignotant oublié ^^

 

[ChTi160]

Bonjour Victor42
bonjour Le Fil,Le Forum
une idee comme une autre(pas sur d avoir compris lol)
si tu limitais la saisie dans le TextBox a 0,1,2,3 via l'evenement KeyPress du TextBox?
et ensuite un
Select case true
case conformite=0
traitement
case conformite=1
idem
etc
etc
End Select
en esperant avoir pu faire avancer le chimilimblick ！(depuis mon telephone)
bonne fin de journee
amicalement
jean marie