Private Sub TextBox15_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsNumeric(TextBox15) Or IsNumeric(Replace(TextBox15, ".", ",")) Then
TextBox15 = Format(Val(Replace(TextBox15, ",", ".")), "00")
TextBox17 = TextBox15 + 1
ElseIf TextBox15 <> "" Then
Cancel = True
MsgBox "Le texte saisi pour le nombre d'exemplaires n'est pas valide"
TextBox15 = ""
End If
End Sub
Private Sub TextBox17_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsNumeric(TextBox17) Or IsNumeric(Replace(TextBox17, ".", ",")) Then
TextBox17 = Format(Val(Replace(TextBox15, ",", ".")), "00")
ElseIf TextBox17 <> "" Then
Cancel = True
MsgBox "Le texte saisi pour le nombre d'exemplaires n'est pas valide"
TextBox17 = ""
End If
End Sub