VBA nombre entier Résolu

Question

J'aimerai demander en VBA de vérifier que le valeur de la cellule 2,2 de la feuille "paramètres" est un nombre entier. Savez vous comment faire ?

lermite222 · Accepted Answer

Bonjour tous,
Quel que soit la configuration de la variable, entier, single, double...etc.
Essais avec respectivement la variable A = 52.32 et A=52
Dim A
A = 52
    If A - Fix(A) = 0 Then
       'C'est un entier
    Else
        'C'est pas un entier
    End If
A+

LDMBatman · Answer

bool result = Int32.TryParse(value, out number);

result : valeur booléen. Vrai si c'est un entier, faux sinon.

Value : la valeur à tester

number : valeur d'entrée/sortie. Renvoie le nombre converti en "entier"

tut · Answer

Heu, je suis désolé mais je ne suis pas assez calé pour comprendre ton explication. 

Je voudrais juste que l'algorythme me renvoie : Vrai si c'est un entier, Faux sinon. 
Donc je met un truc du style  :

If Bool result (Worksheets("Paramètres").cells(2,2))=False then

 MsgBox "Attention ce nombre n'est pas entier"

End if

tut · Answer

Voila tel que le code que j'ai inséré dans mon programme:

Dim monEntier
int32 monEntier = 0
Bool result = Int32.TryParse(Worksheets("Paramètres").cells(12,6), out monEntier);
If (result) = False Then
MsgBox "Attention ce nombre n'est pas entier"
End If

Il me renvoie un message d'erreur sur la ligne 3 en me mettant en gras "monEntier" et en me disant : Attendu : séprateur de liste ou ). 

Avez vous une idée de pourquoi ? 
je vous remercie de votre aide! c'est important pour mon travail !

Yoskopolite · Answer

Je ne connais pas trop la solution que t'as proposé LDMBatman, donc je ne peux pas trop t'aider. Cependant, on dirait plus du VB que du VBA.

Par contre à mon avis, il doit y avoir d'autres solutions plus simples à comprendre.

Par exemple en utilisant VarType : 
Dim TypeDeMaVariable as Integer
TypeDeMaVariable  = VarType(Range("A1").Value)
Bon, normalement, il devrait te retourner "2" si c'est un entier. Malgré tout en testant rapidement, il me retourne "5" (ce qui signifie double au lieu d'entier)...
En fouillant de ce côté-ci, ça devrait t'aider (regarde dans l'aide en faisant F1 sur le mot clé VarType).

Malgré tout, si tu cherches à vérifier que c'est un entier, quel autre type de donnée peux-tu avoir ? du texte ? des décimaux ?

michel_m · Answer

bonjour   
bon, restons en VBA !   

 VarType(nombre) te renvoie 2 ou 3 s'il s'agit d'un entier (3 pour "long")   
attention: nombre ne doit pas être déclaré   
les valeurs des cellules XL sont toujours considérés comme des "doubles"   
par ex A1=3   
vartype(range("A1").value) te renvoie 5   

donc    
if vartype(nombre)=2 OR vartype(nombre)=3 then: msgbox "c'est un entier"   

edit à Yosko: 
c'est piégé: il ne faut pas déclarer et donc pour Tut ne pas utiliser "option explicit" (souvenir de crises de nerfs) ;-)

:-x

lermite222 · Answer

Et pour conclure et suivre la dernière question...
    MsgBox "La valeur sélectionnée " & IIf(A - Fix(A) = 0, "Est un entier", "n'est pas un entier")
A+

VBA nombre entier

7 réponses

Discussions similaires

Newsletters