Remp.tous les textbox, feuill.masquée

Private Sub CommandButton1_Click()
Dim Ctr As String
Dim nomctr As String

If ComboClientBox.Value = '' Then
Ctr = 'ComboClientBox'
nomctr = 'Client à payer'
GoTo fin

ElseIf MontantBox.Value = '' Then
Ctr = 'MontantBox'
nomctr = 'Montant à régler'
GoTo fin

ElseIf N°ChqBox.Value = '' Then
Ctr = 'N°ChqBox'
nomctr = 'N° chèque'
GoTo fin
End If

If OptionButton3.Value = False And OptionButton4.Value = False Then
MsgBox 'Vous devez choisir le compte principal oum le compte secondaire'
Exit Sub
End If

O2.Range('G8') = CDate(DateBox.Value)
O2.Range('A6') = ComboClientBox.Value
O2.Range('G6') = MontantBox.Value
O4.Range('A6') = N°ChqBox.Value
O4.Range('A11') = CpteBox.Value
O2.Protect Password:='gix', UserInterfaceOnly:=True
Unload Me
ArchiveChq.Show
Exit Sub

fin:
MsgBox 'Vous devez remplir le champ ' & nomctr & ' !'
Me.Controls(Ctr).SetFocus
End Sub

Cliquez pour agrandir...

Application.ScreenUpdating = False
O4.Visible = True
O4.Select
O4.Range('ref_effacer').Select
Selection.ClearContents
O4.Range('A1').Select
O4.Visible = xlSheetVeryHidden
Application.ScreenUpdating = True

Cliquez pour agrandir...

If OptionButton3.Value = False And OptionButton4.Value = False Then
MsgBox 'Vous devez choisir le compte principal ou le compte secondaire.'
Exit Sub
End If

'************ DÉBUT ICI **************
If Not IsNumeric(MontantBox.Value) = True Then
MsgBox 'Valeur du montant non valide.'
MontantBox.Value = ''
MontantBox.SetFocus
Exit Sub
End If

If Not IsNumeric(N°ChqBox.Value) = True Then
MsgBox 'Numéro de chèque non valide non valide.'
N°ChqBox.Value = ''
N°ChqBox.SetFocus
Exit Sub
End If
'************ FIN ICI **************

O2.Range('G8') = CDate(DateBox.Value)

Cliquez pour agrandir...

Private Sub MontantBox_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 46 Then KeyAscii = 44
End Sub

Cliquez pour agrandir...