Discussion :

[baptbapt]

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

[Commodore]

tu as essayé avec Cells(x,y).FormulaLocal ?

[ouskel'n'or]

En VBA, qu'il a dit...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SfJ5Rpw8]

avec WorkSheetfunction ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Juste pour dire

[SfJ5Rpw8]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

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