[E-03] Test sur un entier

Version imprimable

Bonjour,

Je souhaite tester si une variable rentrée à l'aide d'un MsgBox est un entier.
Je l'ai codé comme suit :
Code:

1 2 3 4 5 6 7 8 9 Dim nbActifs As Variant nbActifsBest = InputBox("Combien d'actifs souhaitez vous utilisez ?", "nombre d'actifs") Do While Not ok nbActifsBest = InputBox("Combien d'actifs souhaitez vous utilisez ?", "Vous devez saisir un entier") ok = IsNumeric(nbActifsBest) ok = ok And nbActifsBest = Int(Val(nbActifsBest)) ok = ok Or nbActifsBest = "" Loop
Et le problème c'est que même si on rentre un entier pour la première fois il redemande la saisie d'un entier puis si c'est un entier passe à la suite.

Quelqu'un aurait-il une idée pour éviter cette boucle inutile ?

Merci d'avance,
Arnaud.

07/03/2009, 13h40
ouskel'n'or
L'erreur ne vient pas de ta boucle dont tu sors normalement si ok... Donc ça vient "d'ailleurs"
Pour le vérifier, ajoute la ligne suivante après la sortie de la boucle (après Loop)

Code:

MsgBox ok

Où places-tu ton code ? Dans quel événement ? Tu dois coller une donnée quelque part qui provoque un événement dans lequel ton code se trouve... C'est Sherlock Holmes qui me l'a dit :mouarf:

Edit
En cas d'erreur de saisie, et afin que l'utilisateur puisse voir ce qu'il a saisi, j'ajouterais ça à ton inputbox
Code:

1 2 nbActifsBest = InputBox("Combien d'actifs souhaitez vous utilisez ?", _ "Vous devez saisir un entier", nbActifsBest)
Juste une idée ;)
07/03/2009, 14h27
sincenono

Quand je rajoute

Code:

MsgBox Ok

Le message s'affiche que lors de la deuxième saisie de l'entier.
Il me semble que l'erreur provient de la boucle et de la place du test.

Arnaud.
07/03/2009, 14h40
Gorfael

Salut sincenono et le forum
Si on fait ta macro à la main, on a
- une première InputBox
- un test si ok, qui est à false, puisque la macro vient de la créer
- une deuxième InputBox
- des tests pour mettre à True la variable OK
Et si tu supprimais la première ligne, hein ?

Quand tu as des problèmes de ce style, exécute ta maco en pas-à-pas avec F8, en vérifiant tes variables
A+
07/03/2009, 14h44
sincenono

Si je supprime la première ligne effectivement je n'ai plus le problème.

Mais dans ce cas comment je peux faire pour avoir deux MsgBox différentes : la première qui demande le nombres d'actifs et la deuxième expliquant qu'il y a une erreur lors de la saisie précédente ?
07/03/2009, 14h51
Gorfael

Salut sincenono et le forum
Tu mets une variable "compteur" que tu incrémentes et tu la testes soit pour choisir la inputbox, soit pour choisir le texte.
Mais pourquoi ne pas préciser d'entrée que c'est un entier que tu veux ? Où récupérer la partie entière ?
A+

Bon en fait, j'ai trouvé une solution, mais pas très belle.

C'est la suivante :

Code:

1
2
3
4
5
6
7
8
9
10
nbActifsBest = InputBox("Combien d'actifs souhaitez vous utilisez ?", "nombre d'actifs")
ok = IsNumeric(nbActifsBest)
ok = ok And nbActifsBest = Int(Val(nbActifsBest))
ok = ok Or nbActifsBest = ""
Do While Not ok
        nbActifsBest = InputBox("Combien d'actifs souhaitez vous utilisez ?", "Vous devez saisir un entier")
        ok = IsNumeric(nbActifsBest)
        ok = ok And nbActifsBest = Int(Val(nbActifsBest))
        ok = ok Or nbActifsBest = ""
Loop

J'ai fait quelque test ca a l'air de marcher.

Arnaud.

bonjour sincenono ouskel'n'or Gorfael le forum
sur une autre idee passer par un petit user une textbox un label 2 boutons

Option Explicit
Code:

1 2 3 Private Sub ok_Click() If TextBox1 <> "" Then MsgBox "action" End Sub
Code:

1 2 3 Private Sub annuler_Click() TextBox1 = "" End Sub
Code:

1 2 3 Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If InStr("0123456789", Chr(KeyAscii)) = 0 Then KeyAscii = 0 End Sub

Saltations à toutes et à tous
une proposition (honnête)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
Dim nbActifsBest
Dim CP As Boolean
Dim ok
Do While Not ok
    nbActifsBest = InputBox("Combien d'actifs souhaitez vous utilisez ?", _
      IIf(CP, "Vous devez saisir un entier", "nombre d'actifs"))
    ok = IsNumeric(nbActifsBest)
    ok = ok And nbActifsBest = Int(Val(nbActifsBest))
    ok = ok Or nbActifsBest = ""
    CP = True
Loop
End Sub

A+

07/03/2009, 17h06
ouskel'n'or

Je maintiens ce que j'ai dit, "ton premier code était suffisant". Ton problème vient d'ailleurs.

Salut à tous,

Un entier, donc ?

Mon grain de sel :

Code:

1
2
3
4
Dim nbActifs As String
Do While Not nbActifsBest Like String(Len(nbActifsBest), "#") Or nbActifsBest = ""
   nbActifsBest = InputBox("Combien d'actifs souhaitez vous utilisez ?" & vbCrLf & "(Vous devez saisir un entier)", "nombre d'actifs ")
Loop

07/03/2009, 18h25
laetitia

rebonjour le fil
ucfoutu (e) c est pas un grain de sel !!!!!!!!! c est Saint Calice "graal"

bravo je mets dans mes archives

Salut laeticia...

Ah ?

Achète alors vite un carnet tout neuf car on pourrait en sortir 13 à la douzaine, des "comme celle-là" ...:lol:

Allez :
page deux de ton carnet :
Code:

1 2 3 4 Dim nbActifsBest As String Do While CStr(Val(nbActifsBest) \ 1) <> nbActifsBest Or nbActifsBest = "" nbActifsBest = InputBox("Combien d'actifs souhaitez vous utilisez ?" & vbCrLf & "(Vous devez saisir un entier)", "nombre d'actifs ") Loop
Note bien, hein : c'est bien \ 1 et non /1
T'en veux combien d'autres pour faire la même chose ? :lol:

Amitiés

07/03/2009, 18h44
laetitia

re le fil javais compris "/" j espere que c est gratuit (lol) bonne soiree a+

Fuseau horaire GMT +2. Il est actuellement 06h04.