Discussion :

[moilou2]

Bonjour, je voudrais savoir comment tester si une variable n'est pas un entier?

Je sais tester :

Si ce n'est pas numérique alors...

Mais je ne sais pas comment tester:

Si ce n'est pas un entier alors...

[al_bert]

Bonjour,

une solution possible réside ici. Il s'agit de tester afin de voir si la partie décimale du nombre est nulle ou non.

Bonne journée!

[ilank]

Bonjour,

l'instruction VBA TypeName(..) renvoie la chaine de caractère du type de la variable passée en paramètre.

Ex:

Code :

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

1
2
3
4
5
6
sub PorteNawak (j as variant)
 
 If TypeName(j)<>"Integer" Then
  .....
 End if
End sub

[galaktikx]

normalement cela suffit

if not int (variable) then
...
end if

[moilou2]

RE,

Cette solution ne fonctionne pas:

Code :

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

1
2
3
4
5
If Not Int(Me.txtStockMinimum) Then
MsgBox ("Le Stock Minimum doit être un nombre entier")
Exit Sub
Else
End If

[moilou2]

Pour cette solution:

Code :

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

1
2
3
4
5
6
sub PorteNawak (j as variant)
 
 If TypeName(j)<>"Integer" Then
  .....
 End if
End sub

Je fais comment sima sub est tu type:

Code :

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

1
2
Private Sub cmdModiferRéférence_Click()
End sub