Private Sub Tbxlau_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
'Contrôle vraissemblance laize utilisée
Dim Ratio As Single
Ratio = (Tbxnela * Tbxla) / Tbxlau
'condition 1 bloquer la saisie si le ratio est > à 1
If Ratio < 0.95 Then
If MsgBox("La gâche latérale est supérieure à 5% ! la laize utilsée est la mieux adaptée ?", vbQuestion + vbYesNo, "Attention !") Then
Cancel = True
End If
'condition 2 message d'alerte si le ration est < à 0.95
If Ratio > 1 Then
If MsgBox("Incohérence nombre d'étiquettes à la laize / laize utilisée", vbCritical + vbOKOnly, "Attention !") Then
Cancel = True
Else
End If
End If
End If
End Sub