Discussion :

[sincenono]

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.

[drakkar_agfa]

Bonjour,

Avec ceci, tu peux convertir ton String en double

Code :

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

CDbl(Toto)

[sincenono]

Je ne veux pas convertir mon string en Double.

J'explique un peu plus ce que j'aimerais faire.

- Je demande à l'utilisateur de me rentrer la pondération qu'il souhaite, mais il faut que cette donnée soit un nombre (idéalement un double pour vba),
- Puis faire un test pour savoir si ce qu'il a rentré est bien un Double ou pas
- Si c'est un Double pas de problème on passe à la suite
- Si ce n'est pas un Double on lui demande de rerentrer ce qu'il voulait rentrer.

Typiquement cela permet d'éviter les erreurs de frappes sont relancé à chaque fois tout le programme.

Si quelqu'un à une solution on souhaite des compléments d'informations, demandez.

Merci d'avance,
Arnaud.