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 : Sélectionner tout - Visualiser dans une fenêtre à part
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