exemple de fonction roundup pour VBA

exemple de fonction roundup pour VBA - VB/VBA/VBS - Programmation

Marsh Posté le 21-05-2003 à 11:58:37    

salut a tous. :hello:  
j'ais un petit souci je n'arrive pas a appliquer la méthode ROUNUP sur une variable dans le VBA sous exel.
si quelqu'un peut me donner un ou plusieurs exemple ça m'aiderais. :??:  
pour info j'ais essayer ceci pour exemple.
variablev1 = ROUNDUP (variablev2)


Message édité par anagramme le 21-05-2003 à 12:17:14
Reply

Marsh Posté le 21-05-2003 à 11:58:37   

Reply

Marsh Posté le 21-05-2003 à 12:16:01    

anagramme a écrit :

salut a tous. :hello:  
j'ais un petit souci je n'arrive pas a appliquer la méthode ROUNUP sur une variable dans le VBA sous exel.
si quelqu'un peut me donner un ou plusieurs exemple ça m'aiderais. :??:  
pour info j'ais essayer ceci pour exemple.
variablev1 = ROUNDUP (variablev2)
 


 
 
direction programmation >>>

Reply

Marsh Posté le 21-05-2003 à 12:16:49    

cvb a écrit :


 
 
direction programmation >>>


 
ouais


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
Reply

Marsh Posté le 21-05-2003 à 15:24:31    

c'est censé faire quoi la fonction roundup ?


---------------
"I wonder if the internal negative pressure in self pumping toothpaste tubes is adjusted for different market altitudes." John Carmack
Reply

Marsh Posté le 21-05-2003 à 19:14:16    

mareek a écrit :

c'est censé faire quoi la fonction roundup ?


 
Dans l'aide cette fonction n'existe pas ! [:spamafote]

Reply

Marsh Posté le 21-05-2003 à 22:43:50    

cette fonction sert a arrondire au superieur et elle existe bien.

Reply

Marsh Posté le 21-05-2003 à 22:45:18    

anagramme a écrit :

cette fonction sert a arrondire au superieur et elle existe bien.
 


 
Round existe mais pas Roundup

Reply

Marsh Posté le 21-05-2003 à 22:46:33    

Round, fonction
       
 
Description
 
Renvoie un nombre arrondi à un nombre spécifié de positions décimales.
 
Syntaxe
 
Round(expression [,numdecimalplaces])
 
La syntaxe de la fonction Round comprend les éléments suivants :
 
Élément Description  
expression Expression numérique arrondie.  
numdecimalplaces Facultatif. Nombre indiquant combien de positions à droite de la virgule sont incluses dans le nombre arrondi. Si cette valeur est omise, les entiers sont arrondis par la fonction Round.  

Reply

Marsh Posté le 22-05-2003 à 00:17:25    

la tu parle d'une macro faite avec exel qui comprent une valeur bien precise.
moi ce que je veut c'est pour une variable, comme je l'ais dit dans le premiere message.
v1 = roundup (v2).
car ce que je veur faire c'est pouvoir calculer le numero d'une semaine quelque soit la date.
mon code fonctionne trés bien a par qu'il faut que j'arrondice ma derniere valeur au supererieur.

Reply

Marsh Posté le 22-05-2003 à 01:30:08    

 Visual Basic Scripting Edition    
 
Int, Fix Functions
Requirements
Version 1  
[This topic is part of a beta release and is subject to change in future releases. Blank topics are included as placeholders.]
 
Returns the integer portion of a number.
 
Int(number)
Fix(number)
The number argument can be any valid numeric expression. If number contains Null, Null is returned.
 
Remarks
Both Int and Fix remove the fractional part of number and return the resulting integer value.
 
The difference between Int and Fix is that if number is negative, Int returns the first negative integer less than or equal to number, whereas Fix returns the first negative integer greater than or equal to number. For example, Int converts -8.4 to -9, and Fix converts -8.4 to -8.
 
Fix(number) is equivalent to:  
 
Sgn(number) * Int(Abs(number))
The following examples illustrate how the Int and Fix functions return integer portions of numbers:  
 
MyNumber = Int(99.8)    ' Returns 99.
MyNumber = Fix(99.2)    ' Returns 99.
MyNumber = Int(-99.8)   ' Returns -100.
MyNumber = Fix(-99.8)   ' Returns -99.
MyNumber = Int(-99.2)   ' Returns -100.
MyNumber = Fix(-99.2)   ' Returns -99.
Requirements
Version 1  
 
See Also
CInt Function | Round Function
 
 
 
--------------------------------------------------------------------------------
 
© 2001 Microsoft Corporation. All rights reserved.


 
 
Donc, tu nous fait une jolie fonction :
 

function roundup(var as variant) as int
   roundup = fix(var) + sgn(cint(var))      
end function

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed