vba chiffre entier

[zumye]

bonjour le forum

je voudrais qu"une msgbox s'affiche si dans la cellule A1 si celui ci n'est pas un entier.
ex: 25 c'est ok
mais el25 msgbox"erreur ce n'est pas un entier"

merci

 

[Catrice]

Re : vba chiffre entier

Bonsoir,

Un exemple qui traite différents cas à adapter :

Sub Test()
If IsNumeric([A1]) Then
If [A1] - Int([A1]) = 0 Then
MsgBox "A1 est un entier"
Else
MsgBox "A1 est un nombre décimal"
End If
Else
MsgBox "A1 n'est pas un nombre"
End If
End Sub

 

[zumye]

Re : vba chiffre entier

merci catrice