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

Signaler
Messages postés
5
Date d'inscription
jeudi 8 juin 2017
Statut
Membre
Dernière intervention
29 juillet 2020
-
Messages postés
15391
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
25 octobre 2020
-
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,

2 réponses

Messages postés
15391
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
25 octobre 2020
1 385
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
Messages postés
5
Date d'inscription
jeudi 8 juin 2017
Statut
Membre
Dernière intervention
29 juillet 2020

Bonjour,

Ok merci, je vais donc chercher une autre solution.

Bonne journée
Messages postés
15391
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
25 octobre 2020
1 385
Bonjour,

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