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.