Discussion :

[sincenono]

Bonjour,

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

Code :

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

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.

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

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

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

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 :

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

1
2
        nbActifsBest = InputBox("Combien d'actifs souhaitez vous utilisez ?", _
                       "Vous devez saisir un entier", nbActifsBest)

Juste une idée

[sincenono]

Quand je rajoute

Code :

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

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.

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

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

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

[sincenono]

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

C'est la suivante :

Code :

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

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.