Qu'est ce qui est faux dans cette expression vba?

Question

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

Answer 1

C'est correct syntaxiquement, mais ce n'est probablement pas le résulat voulu.

ErrPeriodeSaisie = False
If Not IsNumeric (PeriodeSaisie.Value) then ErrPeriodeSaisie = True
If Not IsInteger (PeriodeSaisie.Value) then ErrPeriodeSaisie = True
If Not IsPositive (PeriodeSaisie.Value) then ErrPeriodeSaisie = True

ErrRemb = False
If Not IsNumeric (Remb.Value) Then ErrRemb = True

Answer 2

je suis d'accord avec maverick. ce que tu lui as demandé, c'est de traiter comme une erreur le cas ou les trois conditions sont vraies en même temps. alors que une seule est déja une condition d'erreur

Answer 3

not isnumeric, isinteger, et ispositive sont des formules de l'application excel : tu ne peux pas les utiliser telles quelles en vba:
pour signaler à la macro que tu utilises une fonction de l'application excel tu dois utiliser le mot :
application.formula=..
après la touche magique: F1

Answer 4

end if

Answer 5

A chacun ses perversions ou amusements !

Answer 6

??