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

J

Jibouille

Guest
Salut,

Connaissez vous une fonction du style Isreal ou IsInteger qui permet de savoir si la valeur d'une cellule est un reel ou un entier.

Du style
Isreal(cell.value)

merci
 
P

PhiBou

Guest
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
 

Discussions similaires

Réponses
3
Affichages
250

Statistiques des forums

Discussions
314 085
Messages
2 105 630
Membres
109 401
dernier inscrit
LE CLUB