La fonction If VarType(mavariable) <> vbSingle ne fonctionne pas

Résolu
adri3636 Messages postés 4 Date d'inscription   Statut Membre Dernière intervention   -  
f894009 Messages postés 17272 Date d'inscription   Statut Membre Dernière intervention   -
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,
A voir également:

2 réponses

f894009 Messages postés 17272 Date d'inscription   Statut Membre Dernière intervention   1 713
 
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
0
adri3636 Messages postés 4 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour,

Ok merci, je vais donc chercher une autre solution.

Bonne journée
0
f894009 Messages postés 17272 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

Non, il y a Application.InputBox qui va tres bien, regardez sur le site suivant
http://boisgontierjacques.free.fr/pages_site/inpubox.htm
0