l opposé ou contraire ??

  • Initiateur de la discussion Evelynetfrancois
  • Date de début
E

Evelynetfrancois

Guest
bonjour le forum

je me permet de vous solliciter une fois de plus
pour un soucis........;
voila
si la value de combobox2 et egale à la valie de TextBox2.
je voudrais que ma textbox1 soit l oppose de ma textbox3

soit textbox1= 45 donc textbox3 = -45

(oppose ou contraire je sais plus ??)

If ComboBox2.Value = TextBox2.Value Then
TextBox1.Value = L'opposé de TextBox3.Value
End If

merci pour vos sujetions
bonne journee a tous
EetF
 

Abel

XLDnaute Accro
Bonjour Evelyneetfrançois,

Ca fesait longtemps qu'on ne vous avait vu.

Vous donner presque la solution ...

If ComboBox2.Value = TextBox2.Value Then
TextBox3.Value = TextBox1.Value * -1

C'est l'opposé.
Le contraire de la multiplication est la division.


En espérant que cela te (vous) dépanne.
Bonne journée.

Abel.
 

PascalXLD

XLDnaute Barbatruc
Modérateur
Bonjour

Abel sans tester il y aura peut-être un problème si il y a des chiffres avec des décimales qui utilise le . par exemple alors que la virgule est reconnu comme séparateur

Mais si que des entiers pas de problème

Bonne journée

Message édité par: Pascal76, à: 22/06/2005 08:35
 
E

Evelyne et francois

Guest
merci beaucoup Abel /pascal76

et oui multiplier par moins 1 !!!
quand on me donne la soluce c'est tellement evident lol
mais quand on est loin des math , c'est durr lol
merci beaucoup ca marche evidement tres bien !!

Apparement pascal ca a l air d aller (pour le moment)
mais je garde precieusement les lignes de vos macros

bonne journee et au plaisir de vous lire
EetF
 

Abel

XLDnaute Accro
Re,

Très juste, Pascal. Il me reste encore quelques progrès à faire ...

If InStr(1, TextBox1, '.', vbTextCompare) <> 0 Then
TextBox2.Text = Val(TextBox1) * -1
Else
TextBox2.Value = TextBox1 * -1
End If

Le code ci-dessus fonctionne quelque soit le séparateur décimal (point ou virgule).

Je viens de découvrir un truc. C'est marrant, si le séparateur décimal est une virgule, TextBox.Value ou .Text retourne un entier ...


Abel.
 

Discussions similaires

Membres actuellement en ligne

Statistiques des forums

Discussions
312 505
Messages
2 089 071
Membres
104 020
dernier inscrit
Mzghal