Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic Fonction qui arrondie unité supérieure, ça existe ???

Fonction qui arrondie unité supérieure, ça existe ???

26 réponses
Avatar
LE TROLL
Bonjour,

Est-ce qu'il existe une fonction qui arrondie à l'entier supérieur toute
valeur décimale?

Par exp:
1,1 = 2
0,0001 = 1
9,9=10

???

Merci, au revoir et à bientôt.
--
ng75 arobase noos.fr
------------------------------------------------------------
LE TROLL, éleveur de trolls depuis César, qui disait :
Avec une hache, celui qui tient le manche a toujours raison !
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2 3
Avatar
LE TROLL
Eh oui, salut, elle ne fait que le positif, ça calcul tout
simplement le nombre de feuille par rapport au nombre de ligne 66/feuille +
entête fixe... Base = 66

j'ai fait:

Dim j As Long ' j = nombre de ligne.
Dim ent, deci As Double
ent = j 66
deci = j Mod 66
If deci <> 0 Then: ent = ent + 1

Mais GRRRRrrrrrrrrrrrrr ce n'est pas la façon de le calculer, ça je vais y
arriver, c'est "S'IL existe une fonction"!!! GGGGGRRRRRRRRRrrrrrrrrrrrrr :o)
Avatar
ng
Salut,

Dim ent, deci As Double


Attention, comme ca tu ne déclares que deci en double, ton ent est en
variant. Il serait bon de le typer.


--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/

LE TROLL wrote:
Salut, voici cher ami, une des moult que naguère je fis :o)

Dim ent, deci As Double
ent = j 66
deci = j Mod 66
If deci <> 0 Then ent = ent + 1
' seule l'entier m'intéresse...


Avatar
ng
Salut,

Et vu qu'ici c'est en entier qu'on veut, le retour de la fonction peut etre
As Integer et non As double.

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/

Patrice Henrio wrote:
Si la fonction n'est utile que pour les nombres positifs :

Function ArrondiSupérieur(X as double) as double
ArrondiSupérieur (X) = - (Int( - X))
End Function



"ng" a écrit dans le message de news:

Plutot :

Public Function Arrondi(nb As Double) As Integer
Arrondi = Int(nb) - CInt(Int(nb) <> nb)
End Function

qui utilise une conversion explicite en int pour le test. c'est plus
propre

ou tout simplement :
Public Function Arrondi(nb As Double) As Integer
If nb > Int(nb) Then Arrondi = nb + 1 Else Arrondi = nb
End Function




--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/

GD wrote:
Bonsour® Gilles RONSIN,

Gilles RONSIN , le lun. 10 janv. 2005
21:36:44, debug.print int(x)+1
est mieux



???

x=1
debug.print int(x)+1 = ???? ;o)))

plutot :
debug.print int(x)+(int(x)<>x)
;o)))
@+






Avatar
LE TROLL
Ah, t'as raison, j'oublie toujours cette ânerie, merci :o)
---

"ng" a écrit dans le message de news:

Salut,

Dim ent, deci As Double


Attention, comme ca tu ne déclares que deci en double, ton ent est en
variant. Il serait bon de le typer.


--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/

LE TROLL wrote:
Salut, voici cher ami, une des moult que naguère je fis :o)

Dim ent, deci As Double
ent = j 66
deci = j Mod 66
If deci <> 0 Then ent = ent + 1
' seule l'entier m'intéresse...






Avatar
ng
Et ben dans ce cas non, il n'existe pas de fonction toute faite pour ca :)

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/

LE TROLL wrote:
Eh oui, salut, elle ne fait que le positif, ça calcul tout
simplement le nombre de feuille par rapport au nombre de ligne
66/feuille + entête fixe... Base = 66

j'ai fait:

Dim j As Long ' j = nombre de ligne.
Dim ent, deci As Double
ent = j 66
deci = j Mod 66
If deci <> 0 Then: ent = ent + 1

Mais GRRRRrrrrrrrrrrrrr ce n'est pas la façon de le calculer, ça je
vais y arriver, c'est "S'IL existe une fonction"!!!
GGGGGRRRRRRRRRrrrrrrrrrrrrr :o)


Avatar
Gilles RONSIN
"GD" , le lun. 10 janv. 2005 23:53:13, écrivait
ceci:

Bonsour® Gilles RONSIN,


,

x=1
debug.print int(x)+1 = ???? ;o)))



plutot :
debug.print int(x)+(int(x)<>x)
;o)))



Aïe. Il faudrait vraiment que je retravaille là... ça devient grâââve.
Merci pour cette petite claquouille :-)))


--
Embryon de site : http://gilles.ronsin.free.fr
Nouvelle astuce : Script de création de raccourcis cible
http://gilles.ronsin.free.fr/#targetlnk
Il est impossible pour un optimiste d'être agréablement surpris.
Avatar
Patrice Henrio
Je pense avoir répondu à ta question, même s'il faut typer en integer

Je recommence

Function ArrondiSupérieur(X as double) as integer
ArrondiSupérieur (X) = - (Int( - X))
End Function

En effet int(x) renvoient toujours l'entier inférieur ou égal à x, même pour
les nombres négatifs
donc int(-2,3)=-3
par conséquent arrondiSupérieur(2,3)= -(Int(-2,3))=-(-3)=3 CQFD
Il me semble que la fonction est plus simple que ce que tu écris.*


"LE TROLL" <le a écrit dans le message de news:
%
Merci, lol, même avec "oops", je n'ai pas demandé comment utiliser
debug, mais s'il existait une fonction qui arrondi à l'entier
immédiatement supérieur...
-------




Avatar
LE TROLL
Lol, merci, ta fonction est identique à mon résultat, mais je dois
avouer qu'elle est plus mystique et jolie, voire belle même, avec du
caractère, elle suinte l'intelligence:

-(-((x²)²)² * z²)+(-) * (-1)
k = --------------------------
y + a - b²²²

Ça fait combien ça, "k" est égal à combien ?

Non, je cherchais juste une fonction prédéfinie dans VB, dés fois qu'il
y en ait une que j'ignore, car en VBA il me semble qu'il y en a une...

C'est pas mon jour, y en a un qui me file un hyperlien en anglais (je
crois), et toi maintenant qui me parle en mathématique, pourtant on est dans
un forum "fr", non ? :o)
-----


"Patrice Henrio" a écrit dans le message de
news:
Je pense avoir répondu à ta question, même s'il faut typer en integer

Je recommence

Function ArrondiSupérieur(X as double) as integer
ArrondiSupérieur (X) = - (Int( - X))
End Function

En effet int(x) renvoient toujours l'entier inférieur ou égal à x, même
pour les nombres négatifs
donc int(-2,3)=-3
par conséquent arrondiSupérieur(2,3)= -(Int(-2,3))=-(-3)=3 CQFD
Il me semble que la fonction est plus simple que ce que tu écris.*


"LE TROLL" <le a écrit dans le message de news:
%
Merci, lol, même avec "oops", je n'ai pas demandé comment utiliser
debug, mais s'il existait une fonction qui arrondi à l'entier
immédiatement supérieur...
-------








Avatar
Patrick Philippot
LE TROLL wrote:
C'est pas mon jour, y en a un qui me file un hyperlien en anglais
(je crois),



Le code de cette page était pourtant en VB (je crois).

--
Patrick Philippot - Microsoft MVP
MainSoft Consulting Services
www.mainsoft.fr
Avatar
LE TROLL
Ah, tu ne comprends pas, alors je vais m'expliquer:

-1- Quand on est anglais, on met des variable à consonance anglaise, par
exemple, pour une "chose", un français mettra plutôt "Dim chose", tandis que
l'anglais mettra "Dim thing" plus volontiers, il en résulte que les variable
sont moins parlantes dans une autre langue, et les variables parlantes ça
aide à comprendre...
Idem pour les commentaires et le texte d'explications...
Donc il n'y a pas que le code stricto sensu, c'est assez navrant que je
dusse l'expliquer...

--> Tiens, traduis-moi "que je dusse" en anglais ?

-2- Un exemple, c'est généralement quand on ne connait pas, voire quand on
ne comprend pas, alors un exemple c'est déjà difficile à comprendre, ce
n'est pas en plus la peine d'aller l'écrire en anglais pour augmenter la
difficulté...

-3- Quand on (c'est moi) pose une question, tente de répondre plutôt que de
coller des hyperliens, de répondre si tu sais (de préférence), avec un
exemple qui collé, fonctionne, il est plus facile de comprendre le mécanisme
de quelque chose qui fonctionne que de quelque chose en panne, souvent moult
l'oublient... toi y compris...

-4- In fine, tu fais partie du genre d'individu qui estime que tout le monde
doit parler anglais, alors on envoie de l'anglais, ce qui est d'une
insolence insoutenable, d'autant qu'il est des gens qui ne connaissent que
l'allemand ou que l'espagnol, ou qui ont pris espagnol et allemand, ou qui
ne parlent que l'arabe ou le chinois; de quel droit estimer qu'ils sont
sensés parler l'anglais, de quel droit leur imposer une langue qu'il ne
comprennent pas, n'est-ce pas se moquer! (je ne parle pas ici des
expressions usuelles en différentes langues, évidemment)... Contrairement à
ce que tu crois, ce n'est pas l'anglais le plus parlé, mais le chinois,
seulement il faut espérer que les chinois ne feront pas comme les anglais,
en disant "vous n'avez qu'à parler anglais"... Même que les anglais quand
ils arrivent à un guichet, ils ne demandent pas si on parle anglais, il
parlent directement en anglais (là tu peux être certain que je comprends
"deux fois" rien)... Les spams tous les matins, c'est de l'anglais, comme je
te disais, j'en lis assez le matin, pour en avoir ma ration durant la
journée... En plus c'est même pas une langue, quand tu traduis on dirait un
enfant de 10 ans qui parle, alors je n'ai pas envie (ça c'est en sus), de me
retrouver à devoir parler anglais, j'aime bien la richesse du français et
des langues latines, or si on laisse faire, on va finir par tous parler
anglais, et là ce n'est pas pareil que d'avoir tous Windows (ce qui est un
bien), car ce sera le malheur de la littérature et de l'élocution de parler
l'anglais planétaire, on va régresser grave et sérieux!!! L'anglais ce n'est
pas une langue, c'est juste un truc pour se dire le minimum quand on voyage
(moi avoir faim; toi devoir tourner à droite), c'est pas une langue
l'anglais, c'est une sorte de patois... Les ricains nous font des spams, des
virus (y a presque qu'eux qui font ça), il font des bons produits aussi,
mais le problème c'est qu'ils exportent la langue avec, là je dis "non"! On
ne doit pas avoir besoin de parler anglais pour aller dans un forum "fr", et
en m'envoyant ce lien, c'est pourtant ce que tu as dis implicitement, ce que
je ne peux apprécier... Me servir de VB, j'adore, mais devoir parler anglais
pour l'utiliser: certainement pas!
---


"Patrick Philippot" a écrit dans le
message de news: uKz0E6%
LE TROLL wrote:
C'est pas mon jour, y en a un qui me file un hyperlien en anglais
(je crois),



Le code de cette page était pourtant en VB (je crois).

--
Patrick Philippot - Microsoft MVP
MainSoft Consulting Services
www.mainsoft.fr



1 2 3