bonjour a tous,

je suis chargé de modifier un code av abs() mais je pige pas ce que c'est qqn peut m'aider?

merci d'avance

Salut,
En Appuyant sur F2 dans l'IDE VB tu te retrouve dans l'explorateur d'objets.

Tu peux Alors taper Abs dans la textbox de recherche et voir

Function Abs(Number)
Membre de VBA.Math
Renvoie la valeur absolue d'un nombre

Si tu as la MSDN c'est encore plus simple Tape F1 sur le mot Abs dans le code

tu tombe la dessus. (la MSDN est aussi disponible sur internet)

Abs, fonction

       

Renvoie une valeur de même type que celle transmise, indiquant la valeur absolue d'un nombre.

Syntaxe

Abs(number)

L' argumentnumber peut contenir toute expression numérique valide. Si l'argument number contient une valeur de type Null, Null est renvoyé ; s'il s'agit d'une variable non initialisée, zéro est renvoyé.

Remarques

La valeur absolue d'un nombre est sa valeur sans le signe. Par exemple, ABS(-1) et ABS(1) renvoient tous deux 1

@+: Ju£i€n
Pensez: Réponse acceptée

Function RemplaceABS(Number as Integer) as Integer
if Number < 0 then
return Number + (Number*2)
else
return Number
end if
End Function

We can't solve problems by using the same kind of thinking we used when we created them.

NON, impossible de jouer à cela en interprété, on a overflow.
Teste avec n = -30000 sur Excel, tu verras.

ciao...
BruNews, MVP VC++

Au fait Elxior, je vois au 'return' que tu es en .net donc tu as les manipulateurs de bits je crois.
Dans ce cas, c'est totalement conter productif de générer une multiplication pour si peu.

- inverser les bits (NOT EAX)
- ajouter 1 (INC EAX)
sera autrement plus rapide et aucun risque d'overflow.

ciao...
BruNews, MVP VC++

 Bonsoir à tous,

Julien (salut) ayant expliqué la fonction abs(), il reste la fonction Sng(), qui elle, renvoie
un entier indiquant le signe d'un nombre.

MsgBox Sgn(6.5)  &vbtab& "Sgn(6.5)  retourne  1 car nombre > 0"  &vbCr&_
       Sgn(+7.5) &vbtab& "Sgn(+7.5) retourne  1 car nombre > 0"  &vbCr&_
       Sgn(+0)   &vbtab& "Sgn(+0)   retourne  0 car nombre = 0"  &vbCr&_
       Sgn(0)    &vbtab& "Sgn(0)    retourne  0 car nombre = 0"  &vbCr&_
       Sgn(-0)   &vbtab& "Sgn(-0)   retourne  0 car nombre = 0"  &vbCr&_
       Sgn(-2.5) &vbtab& "Sgn(-2.5) retourne -1 car nombre < 0"

Merci lecorsaire59  de préciser ta demande.

jean-marc

Euh...
Elxior,

Function RemplaceABS(Number as Integer) as Integer
if Number < 0 then
return Number + (Number*2)
else
return Number
end if
End Function

Si je lis bien...
Si nombre négatif, alors 3 fois ce nombre=sa valeur absolue...
Il faut mettre Number-(Number*2) pour que ça marche :p
Mais dans ce cas là, ça revient à mettre return -Number, puisque a-2*a=-a...
Enfin bref, ça revient à la définition quoi, pas besoin de faire des additions ou je ne sais quoi ^^


 Pourapprendretoujoursplus!

Oups, ça m'apprendra à envoyer un morceau de code non-testé et pas optimisé ><.

We can't solve problems by using the same kind of thinking we used when we created them.