Signaler

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

Posez votre question adri3636 2Messages postés jeudi 8 juin 2017Date d'inscription 16 juin 2017 Dernière intervention - Dernière réponse le 16 juin 2017 à 14:00 par f894009
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,
Utile
+0
plus moins
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
Donnez votre avis
Utile
+0
plus moins
Bonjour,

Ok merci, je vais donc chercher une autre solution.

Bonne journée
f894009 12323Messages postés dimanche 25 novembre 2007Date d'inscription 21 octobre 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
Répondre
Donnez votre avis

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !