OVH Cloud OVH Cloud

Comparer deux TextBox

4 réponses
Avatar
Patrick 24
Bonsoir,

" Débutant qui se pose des questions."

Je n'arrive pas bien à identifier le Text1 ou Text2 ou Text3 qui a changé de
contenu.
Au début je faisais :
If Text1 = Round(Text2 * 1.196 , 2) Then Goto Fin

Je me suis aperçu que si Text1 = 4 donc Text2 = 3.34 => Round(Text1 / 1.196
, 2) alors :
3.34 * 1.196 =3.99464 et donc pas égale à 4.

Je pensais enlever l'arrondi mais un prix 3,3444816 !
Il y a t'il une méthode pour comparer le contenu du TextBox ? Dans mon cas
il y a que des nombres.

Merci A+

4 réponses

Avatar
Ledev
Ah mince est pas passez...

Bon, je voulais répondre dans mon post précédent:

Arrondi le résultat, et sa collera niquel.

Pour arrondir, tu peut utiliser CInt:

a+


Ledev wrote:
Patrick 24 wrote:
> Bonsoir,
>
> " Débutant qui se pose des questions."
>
> Je n'arrive pas bien à identifier le Text1 ou Text2 ou Text3 qui a
> changé de contenu.
> Au début je faisais :
> If Text1 = Round(Text2 * 1.196 , 2) Then Goto Fin
>
> Je me suis aperçu que si Text1 = 4 donc Text2 = 3.34 => Round(Text1
> / 1.196 , 2) alors :
> 3.34 * 1.196 =3.99464 et donc pas égale à 4.
>
> Je pensais enlever l'arrondi mais un prix 3,3444816 !
> Il y a t'il une méthode pour comparer le contenu du TextBox ? Dans
> mon cas il y a que des nombres.
>
> Merci A+


Avatar
François Picalausa
Bonjour/soir,

CInt et es autres tels que Int, Round et ceux de la fiche suivante:
http://support.microsoft.com/default.aspx?kbid6652

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com


Ledev wrote:
Ah mince est pas passez...

Bon, je voulais répondre dans mon post précédent:

Arrondi le résultat, et sa collera niquel.

Pour arrondir, tu peut utiliser CInt:

a+


Ledev wrote:
Patrick 24 wrote:
Bonsoir,

" Débutant qui se pose des questions."

Je n'arrive pas bien à identifier le Text1 ou Text2 ou Text3 qui a
changé de contenu.
Au début je faisais :
If Text1 = Round(Text2 * 1.196 , 2) Then Goto Fin

Je me suis aperçu que si Text1 = 4 donc Text2 = 3.34 => Round(Text1
/ 1.196 , 2) alors :
3.34 * 1.196 =3.99464 et donc pas égale à 4.

Je pensais enlever l'arrondi mais un prix 3,3444816 !
Il y a t'il une méthode pour comparer le contenu du TextBox ? Dans
mon cas il y a que des nombres.

Merci A+






Avatar
Zoury
Salut Patrick! :O)

Une petite remarque... Prend la bonne habitude de toujours, toujours
spécifier la propriété, fonction ou méthode à laquelle tu accèdes même si
elle peut-être accéder par défaut. Comme dans ton exemple, tu devrais écrire
Text1.Text et non pas Text1. Ça évite les conflits de type dans certaine
circonstance, comme par exemple si une fonction attend un paramètre de type
String, tu devrais (je n'ai pas VB pour tester) obtenir une erreur de type
mismatch car VB passera l'objet (TextBox) en paramètre au lieu de sa
propriété par défaut qui est Text. Aussi, ça rend le code beaucoup plus
lisible pour ceux qui le prendront par la suite... Finalement, plusieurs
autres languages ne permettent pas de propriété par défaut alors autant
prendre une bonne habitude tout de suite.. ;O)

--
Cordialement
Yanick Lefebvre - MVP pour Visual Basic
http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/


ps : je n'ai plus internet depuis une semaine et je ne l'aurais peut-être
plus pour une autre semaine... Je voulais donc vous dire que je m'ennui de
vous! :O(
Avatar
François Picalausa
Bonjour/soir,

Zoury wrote:
Ça évite les conflits de
type dans certaine circonstance, comme par exemple si une fonction
attend un paramètre de type String, tu devrais (je n'ai pas VB pour
tester) obtenir une erreur de type mismatch car VB passera l'objet
(TextBox) en paramètre au lieu de sa propriété par défaut qui est
Text.



Private Sub Command1_Click()
Toto Text1
End Sub

Private Function Toto(Valeur As String)
Debug.Print Valeur
End Function

Et pas d'erreur ;-)

Par contre, c'est en effet une mauvaise habitude que de se reposer sur les
propriétés par défaut.

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com