Récupération des valeurs

Fermé
lifefdiwa - 14 mai 2013 à 22:00
 lifefdiwa - 20 mai 2013 à 12:16
Bonjour,

je suis entrain d'élaborer un simulateur pour le calcul d'une prestation d'épargne, mais j'ai rencontré un problème c'est que je n'arrive pas à récupérer les valeurs numériques figurant dans les textboxs pour les utiliser dans les formules de calcul, on me donne toujours erreur d'incompatibilité de type.

Aidez moi svp

1 réponse

f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
15 mai 2013 à 09:10
Bonjour,

les valeurs saisies, ex: 4561.12, dans des texteboxs sont des chaines de caracteres, pas des nombres, il faut les convertir avant de faire des calculs avec.
0
bonjour,
merci beaucoup pour votre réponse, mais svp si vous me dîtes comment convertir en me donnant un pt exemple je vous serez très reconnaissante je suis débutante en VBA et je rencontre bcp de problème
0
f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
15 mai 2013 à 16:47
Re,

instruction chaine de chiffre a convertir en nombre: Val(chaine a convertir), ex: x=Val(TextBox1)
0
MERCI bcp d'avoir répondu mais ça ne marche tjr pas, on me donne erreur : incompatibilité de type. voila mon code:
Sheets("feuil2").Range("D9") = boxtaux.Value / 100
si je met x=val(boxtaux). les taux ne seront que des entiers et ne prennent pas en considération les décimales
0
f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
20 mai 2013 à 11:19
Bonjour,

il fallait dire que vous ecriviez des cellules de feuille excel. Pas besoin de Val(textbox). Par contre vous devez avoir l'erreur si la textbox est vide.

    If boxtaux<> "" Then
        Sheets("feuil1").Range("D9") = boxtaux.Value / 100
    Else
         Sheets("feuil1").Range("D9") =0
    End If
0
merci bcp pour votre aide, j'apprécie bcp.
bonne début de semaine .
0