Gestion de nombres à virgule

Bonjour à tous,

Je fais appel de nouveau à vos lumières afin d'éclairer mon chemin.

J'aimerais faire un message d'alerte (msgbox) en fonction d'une condition qui est : si la valeur d'une textbox n'est pas un nombre entier (ex : 100,00), il faut afficher la message box avec la valeur de la textbox.

Faire une condition avec une message box ne me pose pas de problème en VBA. Mon problème, est : je ne sais pas dans quelle direction aller pour la prise en compte d'un nombre décimal.

Pour schématiser : 100,00 = OK / 100,01 = PAS OK

Merci par avance pour vos pistes.

Bonjour

Une solution

Sub test()
Dim Nb As Double

  Nb = 100.01
  If Nb \ 1 <> Nb Then MsgBox "Pas un nombre entier"

End Sub

Banzai64 a écrit :

Bonjour

Une solution

Sub test()
Dim Nb As Double

  Nb = 100.01
  If Nb \ 1 <> Nb Then MsgBox "Pas un nombre entier"

End Sub

Bonjour,

Merci pour la réponse rapide qui fonctionne parfaitement. Je l'ai adapter. C'était tout bête.

Je cherchais depuis plusieurs jours avec des histoires de ,## ou je ne sais quoi d'autre.

Merci pour la solution et la réactivité.