La fonction If VarType(mavariable) <> vbSingle ne fonctionne pas [Résolu]

adri3636 2 Messages postés jeudi 8 juin 2017Date d'inscription 16 juin 2017 Dernière intervention - 8 juin 2017 à 16:38 - Dernière réponse : f894009 12541 Messages postés dimanche 25 novembre 2007Date d'inscription 11 décembre 2017 Dernière intervention
- 16 juin 2017 à 14:00
Bonjour,

Voici le code :

Sub MAJ_TX()

Worksheets("SIG").Activate

Dim AssuranceCreditClient
AssuranceCreditClient = InputBox("Quel est le taux d'assurance crédit client ?", "Mise à jour des taux")
If VarType(AssuranceCreditClient) <> vbSingle Then
Range("I61").Value = 0
Else: Range("I61").Value = AssuranceCreditClient
End If

End Sub


Cette macro renvoi toujours la valeur 0 dans le cellule I61.
J'aimerais qu'elle renvoie la valeur qu'on lui donne dans l'InputBox si cette dernière est un nombre décimale ou non.

Avez-vous une idée de ce que j'ai mal fait ?

Merci,
Afficher la suite 
2Messages postés jeudi 8 juin 2017Date d'inscription 16 juin 2017 Dernière intervention

3 réponses

Répondre au sujet
f894009 12541 Messages postés dimanche 25 novembre 2007Date d'inscription 11 décembre 2017 Dernière intervention - 8 juin 2017 à 17:49
0
Utile
Bonjour,

Marche tres bien ce teste, vous oubliez simplement que le resutat d'une inputbox est une chaine de caracteres pas du numerique meme si vous entrez des chiffres
Commenter la réponse de f894009
adri3636 2 Messages postés jeudi 8 juin 2017Date d'inscription 16 juin 2017 Dernière intervention - 16 juin 2017 à 11:33
0
Utile
1
Bonjour,

Ok merci, je vais donc chercher une autre solution.

Bonne journée
f894009 12541 Messages postés dimanche 25 novembre 2007Date d'inscription 11 décembre 2017 Dernière intervention - 16 juin 2017 à 14:00
Bonjour,

Non, il y a Application.InputBox qui va tres bien, regardez sur le site suivant
http://boisgontierjacques.free.fr/pages_site/inpubox.htm
Commenter la réponse de adri3636