If not VBA

Bonjour les amis,

J'ai une question un pe debile, mais je sais pas comment formuler ca en VBA:

si x n'est pas un entier alors message d'erreur

j'ai tenter un truc du genre mais ca marche pas:
if not x as integer then
msgbox("veuiller rentrer un entier", vbok)

merci d'avance

2 réponses

  1. Contributeur
    Bonjour

    Tu as la fonction Vartype

    Vartype(x) renvoie 2 pour un entier

    If vartype(x)<>Z then
    ou + lisible à mon avis
    If vartype(x)<>vbinteger then
    1
    1. bonjour
      quelque chose comme ça

        If a = Int(a) Then
          MsgBox ("a est entier")
        Else
          MsgBox (" a n'est pas entier")
        End If
      

      bonne suite
      1
      1. bien joué
        0