Sauf erreur, le contenu des cellules Excel est toujours un double.
Sub es() For a = 1 To 10 If TypeName(Range("a" & a).Value) = "Double" Then If Int((Range("a" & a).Value)) = Range("a" & a).Value Then MsgBox "Cellule A" & a & " est entier" Else MsgBox "Cellule A" & a & " n'est pas entier" End If End If Next a End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionSub es() Dim A As Variant Dim B As Double Dim C As Integer MsgBox VarType(A) ' renvoit 0 (vbVariant) MsgBox VarType(B) ' renvoit 5 (vbDouble) MsgBox VarType(C) ' renvoit 2 (vbInteger) End Sub
c'était sous-entendu.
comment tu expliques alors que excel te proposes vbinteger ?
tu comprends pourquoi j'avais mis ca ?
je suis pas un mega expert du VB c'est vrai, mais qq part, MS déconne avec son VBA aussi (a méditer lol)
comment tu expliques alors que excel te proposes vbinteger ?- On dit Excel, mais c'est VBE en réalité qui te proposes vbInteger. (VBE Visual Basic Editor> c'est l'interface là où tu programmes)
tu comprends pourquoi j'avais mis ca ?
je suis pas un mega expert du VB c'est vrai, mais qq part, MS déconne avec son VBA aussi