Discussion :

[nat44]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

dim x as Integer

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

[Laestic]

La fonction que tu cherches est VarType :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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...)

[ucfoutu]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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