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)

mercredi 18 juin 2008 à 15:48:24 | Petit probléme

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.

mercredi 18 juin 2008 à 16:19:34 | Re : Petit probléme

jack

Administrateur CodeS-SourceS
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)

mercredi 18 juin 2008 à 18:14:36 | Re : Petit probléme

Kristof_Koder

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

jeudi 19 juin 2008 à 08:06:21 | Re : Petit probléme

nanardino64

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

Nanardino64
Développons-nous, développeurs.

jeudi 19 juin 2008 à 08:18:37 | Re : Petit probléme

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.

jeudi 19 juin 2008 à 08:33:59 | Re : Petit probléme

Yogan50

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

jeudi 19 juin 2008 à 08:38:25 | Re : Petit probléme

nanardino64

Pense à valider la bonne réponse!!!

Nanardino64
Développons-nous, développeurs.



Cette discussion est classé dans : value, probléme, if, epaisseur1, epaisseur2


Répondre à ce message

Sujets en rapport avec ce message

Outil recherche sur feuille Excel [ par Hades60 ] Bonjour tout le monde.Alors voilà, j'essaie de réaliser une base de donnée pour répertorier les entreprises avec lequelles ma société travaille.J'ai d Recherchev sous VBA avec conditions multiples [ par idieordeco ] Bonjour,Bon.... vous allez me détester, j'ai encore une merde que j'essaie de résoudre depuis 5 heures.Ma recherchev ne marche pas.Le code en question Problème avec une Listeview [ par capitainecav ] Bonjour à tous,J'ai un message d'erreur que je ne comprend pas :L'argument spécifié n'était pas dans les limites de la plage des valeurs valides. Nom ComboBox [ par teamtiti ] Bonjour a tous voila mon nouveau probléme, j'ai un combobox1 et je voudrait en fonction du choix mettre dans mon NumericUpDown4 une valeur prédéfinie Actualisation de Fonction VBA [ par MrHyDe ] Bonjour,J'ai créé une fonction en VBA qui avec plusieurs variables en entrée (la valeur de 4 cellules) me renvoie un résultat. Voici le code : (rien d else sans if [ par raphael_george ] Salut, un peu d'aide me ferai beaucoup de bien...Private Sub BoutABG_Click()If BoutABG.Value = True Then FrmKt.TextBox1.Value = frm.TextBox1.Value + " 1 choix sur 4 propositions [ par Gil369 ] Bonjour,je fais un petit programme pour gerer les finances d un club, je bute sur une fonction de choix ! j ai dans mon formulaire 4 boutonoption ( ch validation formulaire internet [ par got ] Bonjour,je voudrait par exemple avec WebBrowser (microsoft internet control) ou microsoft html library pouvoir valider un formulaire...j'ai toruvé com [Access] Problème de valeur par défaut [ par AiDuK ] Bonjour,j'ai un léger soucis.Je travail sur une BDD Access, sur laquelle j'ai fais formulaire, en relation avec ma table.Sur mon formulaire se trouven Remplir formulaire avec mon programme [ par minifranki ] Bonjour,Le formulaire ne se rempli pas lorsque je test et jobtient un erreur de debug quand il est temps denvoyer mon formulaire. Je ne sais vraiment


Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Téléchargements

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

Comparez les prix Nouvelle version

Photothèque Nouveau !



Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,296 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.