begin process at 2008 08 20 17:56:01
1 229 001 membres
360 nouveaux aujourd'hui
14 259 membres club

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum.
Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

Sujet : Petit probléme [ Langages dérivés / VBA ] (Yogan50)

Petit probléme le 18/06/2008 15:48:24

Yogan50
Bonjour a tous

    Je suis un débutant et j'ai un petit probléme avec ma macro que voici:
If Type_de_soudure.Text = "Monopasse" Then
    If 3 < Epaisseur1_0.Value <= 12 And 3 < Epaisseur2_0.Value <= "12" Then
        If Epaisseur1_0.Value > Epaisseur2_0.Value Then
            Mini.Value = Epaisseur2_0.Value * 0.5
            Maxi.Value = Epaisseur1_0.Value * 1.3
         
        ElseIf Epaisseur1_0.Value < Epaisseur2_0.Value Then
            Mini.Value = Epaisseur1_0.Value * 0.5
            Maxi.Value = Epaisseur2_0.Value * 1.3

        End If
    End If
End If

Je souhaite comparer deux valeurs contenue dans deux textbox différentes et suivant celle qui plus élevée que l'autre la multipliée par un certain nombre et la mettre dans une autre textbox. Pour toute les valeurs entre 3 et 9 ma macro fonctionne mais lorsque l'une des valeurs contenue dans une de mes deux textbox à comparer avec l'autres est supérieure ou égale à 10 (Epaisseur1_0.value = 10 et Epaisseur2_0 = 5) alors il me dit que Epaisseur1_0 est inférieure à Epaisseur2_0 car il ne prend que le premier chiffre du nombre 10 en l'occurence 1.

Re : Petit probléme le 18/06/2008 16:19:34

jack
(Admin CS)
Réponse acceptée !
Salut
Les TextBox sont sensées accueillir du Texte - Lapalisse (1470-1525)
Si le contenu correspond à des chiffres, transforme leur contenu en chiffre avec Val()
ET compare avec des chiffres et surtout pas avec des textes : ...Value <= "12"  non

Donc, à chaque fois que tu veux traiter numériquement une valeur, utilise Val. Exemple :
   Val(Epaisseur2_0.Value) <= 12

Pour les équations, je n'ai pas regardé.

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

Re : Petit probléme le 18/06/2008 18:14:36

Kristof_Koder
J'aurai plutôt utilisé une conversion du style CDbl() plutôt que Val(), non ?

Re : Petit probléme le 19/06/2008 08:06:21

nanardino64
Salut Yogan,
dis moi si ça a marché ce qu'on t'a donné

Nanardino64
Développons-nous, développeurs.

Re : Petit probléme le 19/06/2008 08:18:37

Yogan50
Salut Nanardino

Pour l'instant cela n'a pas marché. Dans les deux cas, ma macro fait toujours la même chose, quand le nombre est supérieur à 10 elle ne prend que le premier chiffre de mon nombre c'est à dire que 4 >10 autrement dit 4>1 normal.

Re : Petit probléme le 19/06/2008 08:33:59

Yogan50
C'est bon cela fonctionne comme il faut avec val(), l'erreur était de moi.
Merci à tous pour vos réponses

Re : Petit probléme le 19/06/2008 08:38:25

nanardino64
Pense à valider la bonne réponse!!!

Nanardino64
Développons-nous, développeurs.


Classé sous : value, probléme, if, epaisseur1, epaisseur2

Participer à cet échange

Pub



Appels d'offres

Recherche developpeur ...
Budget : 700€
campagne Adwords
Budget : 5 000€
Boite echanges securis...
Budget : 500€

CalendriCode

Août 2008
LMMJVSD
    123
45678910
11121314151617
18192021222324
25262728293031

VS Express FR Gratuit !

VS Express en français et 100% gratuit !

Téléchargements

Logiciels à télécharger sur le même thème :

Boutique

Boutique de goodies CodeS-SourceS