Bonjour,

J'aimerais faire un test sur une variable que je rentre via un InputBox.
Le problème c'est que quand je rentre un nombre via un InputBox il considère que c'est un string et pas un double.

J'ai besoin de faire ce test car si l'utilisateur rentre autre chose qu'un double il doit resaisir et j'affiche pour cela un nouveau InputBox.

Voilà ce que j'ai fait pour le moment :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
 
Dim inter() As Variant
 
inter(1) = InputBox("Pondération du moins bon performer")
 
Do Until VarType(inter(1)) = vbDouble
inter(1) = InputBox("Pondération du moins bon performer", "Erreur lors de la saisie précédente")
Loop
Et quand je saisis 1 par exemple ca boucle alors que ca devrait pas car 1 est bien un Double.

Merci d'avance,
Arnaud.