quel code pour dire "x n'est pas un Integer" ?

Version imprimable

30/07/2008, 15h50
nat44

quel code pour dire "x n'est pas un Integer" ?
Bonjour,

j'ai défini une variable x en tant que Integer

Code:

dim x as Integer

Pour qu'il n'y ait pas de bugg, je chercher le code pour dire
Code:

1 2 3 if x n'est pas Integer then ..... end if
Malheureusement je n'arrive pas à trouver

Quelqu'un peut-il m'aider ?

Merci d'avance
Nat
30/07/2008, 16h01
ouskel'n'or

Le mieux ne serait-il pas que tu connaisses les caractéristiques des différents types de données ? Regarde à "Résumé des types de données" dans l'aide en ligne de VBA -> F1
30/07/2008, 16h10
Laestic
La fonction que tu cherches est VarType :
Code:

1 2 3 4 If Not VarType(x) = vbInteger Then ... End If
Sachant qu'en déclarant x comme Integer ce test sera toujours faux et tu n'entreras jamais dans la condition.
30/07/2008, 16h37
nat44
Merci de tenter de m'aider, mais je ne comprends pas...

J'ai bien sûr tenté l'aide office F1, dont résumé des types de données, mais le plupart du temps c'est du chinois pour moi.

Il faut savoir que x prend la valeur donnée dans une Textbox.
Je souhaite que cette valeur soit un nombre entier et je cherche à éviter l'erreur pour "incompatibilité de Type" si la valeur tapée est autre que numérique.

au départ mon code était
Code:

1 2 3 if x <> vbInteger then msgbox("veuillez entrer une donnée valide") end if
Mais dans ce cas, il n'y a que 2 qui est accepté comme donnée valide (le code correspondant à VbInteger).

Peut être que je ne déclare pas le bon type de variable...

Merci d'éclairer ma lanterne
Nat
30/07/2008, 16h47
nat44
Suis je bête !

Je viens de trouver la réponse à ma question en vous la reformulant

voilà une partie de mon code
Code:

1 2 3 4 5 6 7 8 9 10 11 dim x as integer ... If IsNumeric(TextBox1.Value) Then x = TextBox1.Value Else MsgBox ("veuillez entrer un nombre valide") End End If
c'était aussi simple que cela et cela fait 2 heures que je me casse la tête dessus !

En tout cas merci de m'avoir aidé à réfléchir
Nat
30/07/2008, 16h53
Laestic
D'une part ce n'est pas le test que j'ai écris, d'autre part, je le répète, en déclarant x comme Integer ce sera forcément un Integer...

La valeur d'un textbox est une chaîne. Ce n'est pas x qu'il faut tester, mais le textbox avant de l'affecter à une variable qui sera forcément entière (soit ça provoque une erreur de type soit il y a conversion implicite si la chaîne ne peut pas être convertie en nombre.)
Code:

1 2 3 4 5 6 7 Dim maSaisie as Variant maSaisie = txtNombre If VarType(maSaisie) <> vbInteger Then MsgBox "Veuillez saisir un nombre entier" Exit Sub Endif ' traitement...
Par exemple.

EDIT pour au dessus : IsNumeric() teste sur un nombre, pas forcément un entier (décimal, long...)

Bonjour,

1) à laestic :
tu es bien trop sûr de toi ...
essaye donc ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Command1_Click()
  Dim x As Integer
  If Not VarType(x) = vbInteger Then MsgBox x & " = pas entier" Else MsgBox x & " = entier" & vbCrLf & _
  "et regarde ce qu'est devenu ton x"
  x = 12.61
  If Not VarType(x) = vbInteger Then MsgBox x & " = pas entier" Else MsgBox x & " = entier" & vbCrLf & _
  "et regarde ce qu'est devenu ton x"
  'ici, on va ajouter un on error resume next, sinon on se ferait jeter, pardi
  On Error Resume Next
  x = "a"
  If Not VarType(x) = vbInteger Then MsgBox x & " = pas entier" Else MsgBox x & " = entier" & vbCrLf & _
  "et regarde ce qu'est devenu ton x"
  x = a
  If Not VarType(x) = vbInteger Then MsgBox x & " = pas entier" Else MsgBox x & " = entier" & vbCrLf & _
  "et regarde ce qu'est devenu ton x"
End Sub

2) à nat44 :
tu es toi également trop sûr de toi !
frappe donc 12,61 (avec une virgule) dans ta textbox et vois (et vois aussi ce qu'est devenu ton x, hein...)

Si tu nous expliquais maintenant ce que tu cherches à faire exactement ?

30/07/2008, 17h10
nat44
Je vois ce que tu veux dire, mon bout de code "fonctionne", mais n'est pas propre. j'ai la msgbox quand la donnée n'est pas numérique, mais si c'est un décimal la valeur est arrondie automatiquement ce qui va me générer des erreurs de calcul ensuite si elle l'est à l'entier supérieur.

Par contre je ne comprends pas :
C'est quoi txtNombre ?

J'ai fait un copier/coller de ton bout de code, et j'ai une erreur de compilation : variable non définie.

j'ai modifié comme suit,
Code:

1 2 3 4 5 6 Dim maSaisie As Variant maSaisie = Textbox1.Value If VarType(maSaisie) <> vbInteger Then MsgBox "Veuillez saisir un nombre entier" Exit Sub End If
Mais là, quoique j'entre dans ma textbox, la msgbox s'affiche.
????

Nat
30/07/2008, 17h13
ucfoutu

Citation:

Envoyé par ucfoutu

Si tu nous expliquais maintenant ce que tu cherches à faire exactement ?

on gagnera peut-être alors beaucoup de temps :lol:
30/07/2008, 17h25
ucfoutu
Bon (à tout hasard, donc)...

Voilà une solution (ce sera la énième manière différente de traiter cette question plus que récurrente) ...
Code:

1 2 3 4 5 6 7 Private Sub Command1_Click() If Len(Trim(Str(Val(Textbox1.Text)))) = Len(Textbox1.Text) And IsNumeric(Textbox1.Text) Then MsgBox "ok" Else MsgBox "pas bon" End If End Sub
et tu seras ainsi à l'abri de tout ...
30/07/2008, 17h46
nat44
Ok on y va. Je vais essayer d'être claire

Je suis en train de mettre en place des outils de gestion informatisé pour un artisan (stage DUT GEA). Mais avant le début de mon stage, les macros et VBA m'étaient totalement inconnus.

Et là je tente de lui faire un suivi de sa trésorerie sur Excel. J'ai donc créé diverses userform pour cela. L'enregistrement immédiat d'une opération fonctionne et maintenant j'entreprends la planification d'opérations (échéances de prêts bancaires par exemple).

Pour cela j'ai besoin entre autre du nombre d'échéances (c'est mon x) et de la date de la 1ère échéance. Toutes ces données s'inscrivent dans un tableau qui doit me servir par la suite à enregistrer les opérations dans mon tableau de trésorerie, quand la date d'échéance est arrivée, et pendant x mois si la périodicité est mensuelle.

C'est pour cela que j'ai besoin que x soit un entier (et pas arrondi au supérieur)

Là je viens de bidouiller un truc qui a l'air de fonctionner
Code:

1 2 3 4 5 6 If IsNumeric(TextBox1.Value) And TextBox1.Value = Format(TextBox1.Value, "0") Then x = TextBox1.Value Else MsgBox ("veuillez saisir un nombre entier") Exit Sub End If
Qu'en pensez-vous ?
Il y a peut-être mieux comme écriture ?

Merci d'avance
Nat
30/07/2008, 17h56
ucfoutu

énième + 1 méthode, donc ... il en existe plein d'autres encore ...

Si ton textbox est dans un userform tu as une manière simple de vérifier le code saisi
Code:

1 2 3 4 5 6 7 8 Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) Dim st as string st = String(Len(TextBox1), "#") If Not IsNumeric(TextBox1.Value) Or Not TextBox1.Value Like st Then MsgBox "Veuillez saisir une valeur entière" Cancel = True End If End Sub
Si tu souhaites que le nombre de chiffre soit fixe, tu peux fixer st à cette dimension

Code:

If Not IsNumeric(TextBox1.Value) Or Not TextBox1.Value Like "#####" Then

Le code ci-dessus fixe à 5 le nombre de chiffres
Mais ainsi tu ne pourras pas saisir de décimaux.
Cancel = True impose de retourner dans la textbox.
Bonne soirée

NB - Ce code impose que ce soit un entier mais n'impose pas que ce soit un "integer" au sens de VBA (inférieur à 32768)

31/07/2008, 10h29
nat44

Merci à tous pour votre aide
Nat