Private Sub TextBox9_Change()
If Not IsNumeric(TextBox9.Value) Then TextBox9 = ""
End Sub
Private Sub TextBox9_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If InStr("0123456789", Chr(KeyAscii)) = 0 Then KeyAscii = 0: MsgBox "Saisie Invalide"
End Sub
au début de l'initialize de l'USFMultiPage1.Value = 0
Private sub ComboBox5_exit (byval cancel as msforms.ReturnBoolean)
If ComboBox5 <>"" then Multipage1.value = 1
End sub
Private Sub combobox5_exit(ByVal cancel As msforms.ReturnBoolean)
If ComboBox5 <> "" Then MultiPage1.Value = 1
End Sub