[VBA-E]arrondisup en VBA

Version imprimable

Bonjour a tous

Et oui je ne peut me passer de vous, me revoila après cette petite pause.

Bon, ayant terminer de développer mes scripts depuis 2 semaines, je me suis enfin decider à les simplifier un peu.

Pour cela j'aimerai calculer mon nombre de tranche de façon la plus simple qui soit, sa fonctionne en calcul, mais je n'arrive pas à le retranscrir en VBA.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Sub NbTr() Dim NbTr As Integer Dim NBfinal As Long Nbdep = Cells(1, 3).Value NBfinal = Cells(65536, 3).End(xlUp).Row NBfin = Cells(NBfinal, 3).Value Nbval = ((NBfin - Nbdep) / 2) / 60 Cells(9, 10).Value = Nbval '=ARRONDI.SUP(ARRONDI.SUP(Nbval;0)/2;0) End Sub
arrondi.sup je n'arrive pas à le mettre en VBA

Help me

Merci

17/08/2006, 16h49
Commodore

tu as essayé avec Cells(x,y).FormulaLocal ?
17/08/2006, 17h14
ouskel'n'or

En VBA, qu'il a dit...

Code:

MsgBox Evaluate("= ROUNDUP(12.75,0)")

Regarde dans Excel pour ce qui est de la syntaxe d'ARRONDI.SUP et dans VBA à Evaluate qui permet d'utiliser "certaines" formules d'Excel ;)

avec WorkSheetfunction ...

Code:

1
2
3
4
 
With WorksheetFunction
 MaValeur = .RoundUp(.RoundUp(Nbval, 0) / 2, 0)
 End With

18/08/2006, 12h28
ouskel'n'or
Merci bbil. J'ai appris quelque chose, je me coucherai moins bête ;)
Mais, as-tu essayé ta formule ?
- Elle fonctionne parfaitement, pas de problème.
- Elle donne bien les résultats correspondant à ce qu'on demande, pas de problème non plus
Cependant, je déconseillerais d'enchaîner plusieurs fois RoundUp ;)
Essaie ça
Code:

1 2 3 4 5 Nbval = 12.1 With WorksheetFunction MaValeur = .RoundUp(.RoundUp(Nbval, 0) / 2, 0) End With MsgBox MaValeur
Juste pour dire ;)
18/08/2006, 19h46
SfJ5Rpw8
Citation:
Envoyé par ouskel'n'or

Merci bbil. J'ai appris quelque chose, je me coucherai moins bête ;)
Mais, as-tu essayé ta formule ?
- Elle fonctionne parfaitement, pas de problème.
- Elle donne bien les résultats correspondant à ce qu'on demande, pas de problème non plus
Cependant, je déconseillerais d'enchaîner plusieurs fois RoundUp ;)
Essaie ça

Code:

1 2 3 4 5 Nbval = 12.1 With WorksheetFunction MaValeur = .RoundUp(.RoundUp(Nbval, 0) / 2, 0) End With MsgBox MaValeur

Juste pour dire ;)
? ben cela fait 7 ..? et alors.. je vois pas le probléme..?

cela aussi :

Citation:

Envoyé par baptbapt

...
'=ARRONDI.SUP(ARRONDI.SUP(Nbval;0)/2;0)
...