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

[ucfoutu]

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

on gagnera peut-être alors beaucoup de temps

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

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

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

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

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

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

[ucfoutu]

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

[ouskel'n'or]

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

Code :

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

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 :

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

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)

[nat44]

Merci à tous pour votre aide
Nat