Fonction qui vérifie si la valeur d'une cellule est un réel...

Bonjour, Jibouille

=si(mod(A1;1)>0;Réel;Entier)

Converti cette fonction en VBA et tu as la réponse à ta question

Bonne journée

@+Jean-Marie

Salut Jibouille, Jean-Marie, le Forum

Ce petit code devrait aller

Sub Essai()
Dim Cell As Range
Set Cell = Range("A1")
If Application.WorksheetFunction.IsNumber(Cell.Value) Then
If (Int(Cell.Value) = Cell.Value) Then
MsgBox "Le nombre est entier"
Else
MsgBox "Le nombre est réel"
End If
Else
MsgBox "Le contenu de la cellule n'est pas un nombre"
End If
End Sub

Tu peux aussi mettre la valeur de la cellule à Integer
et tu gères l'erreur ?

Bonne journée

PhiBou

C'est tellement super tous ces gens qui disent merci !!!!

moi je vous dit Merci !! (et bonsoir !!)

@+Thierry