Je veux mettre une condition pour que soit considéré comme erreur un caractère saisi quand il n'est pas numérique positif entier
Private Sub BoutonValider_Click()
Dim ErrPeriodeSaisie, ErrRemb As Boolean
If Not IsNumeric(PeriodeSaisie.Value) Then
If Not IsInteger(PeriodeSaisie.Value) Then
If Not IsPositive(PeriodeSaisie.Value) Then
ErrPeriodeSaisie = True
Else
ErrPeriodeSaisie = False
End If
End If
End If
If Not IsNumeric(Remb.Value) Then
ErrRemb = True
Else
ErrRemb = False
End If
2006-10-23
09:33:30
·
6 réponses
·
demandé par
maya
1