begin process at 2012 02 16 08:22:19
  Trouver un code source :
 
dans
 
Accueil > Forum > 

Visual Basic 6

 > 

Langages dérivés

 > 

VBA

 > 

Petit probléme


Derniers messages déposésPoser une question dans le forum ou lancer une discussion

Petit probléme

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ée 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

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

 
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

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,468 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales