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 17277 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17277 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,
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:
- La fonction If VarType(mavariable) <> vbSingle ne fonctionne pas
- Fonction si et - Guide
- Fonction miroir - Guide
- Fonction moyenne excel - Guide
- Fonction remplacer sur word - Guide
- Fonction somme excel - Guide
2 réponses
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
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
Bonjour,
Ok merci, je vais donc chercher une autre solution.
Bonne journée
Ok merci, je vais donc chercher une autre solution.
Bonne journée
Bonjour,
Non, il y a Application.InputBox qui va tres bien, regardez sur le site suivant
http://boisgontierjacques.free.fr/pages_site/inpubox.htm
Non, il y a Application.InputBox qui va tres bien, regardez sur le site suivant
http://boisgontierjacques.free.fr/pages_site/inpubox.htm
