arrondir un temps aux 30 secondes supérieures en VBA

Modeste geedee

XLDnaute Barbatruc

• 23 Août 2015

• #2

Re : arrondir un temps aux 30 secondes supérieures en VBA

Salut Patrick©

=ARRONDI.AU.MULTIPLE(A1;1/2880)
ou
=ARRONDI.AU.MULTIPLE(A1;TEMPSVAL("0:00:30"))

ou pour arrondi supérieur
tout simplement :
=(1+ENT(A1*2880))/2880

soit en VBA :

VB:

function arrondi30s(target as double) as double
dim resultat resultat as double 
resultat=(1+int(target*2880))/2880
end function

 

Dernière édition: 23 Août 2015

Vote positif 0 Vote négatif

I

ivan27

XLDnaute Occasionnel

• 23 Août 2015

• #3

Re : arrondir un temps aux 30 secondes supérieures en VBA

Bonsoir gosselien, Modeste geedee, Le forum

Une autre possibilité :

=ARRONDI.SUP(A1*60*24*2;0)/60/24/2

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 23 Août 2015

• #4

Re : arrondir un temps aux 30 secondes supérieures en VBA

Bonsoir gosselien, Modeste GD, ivan,

ou bien

Code:

=PLAFOND(A1;"00:00:30"*1)

Plafond s'appelle Application.Worksheetfunction.Ceiling en VBA

 

Vote positif 0 Vote négatif

I

ivan27

XLDnaute Occasionnel

• 23 Août 2015

• #5

Re : arrondir un temps aux 30 secondes supérieures en VBA

Re bonsoir,

La demande était en VBA...

Sub Arrondir()
[B1].Value = Application.WorksheetFunction.RoundUp(Range("A1") * 60 * 24 * 2, 0) / 60 / 24 / 2
End Sub

 

Vote positif 0 Vote négatif

gosselien

XLDnaute Barbatruc

• 23 Août 2015

• #6

Re : arrondir un temps aux 30 secondes supérieures en VBA

Bonsoir Modeste, toto,ivan,

Merci , j'avais essayé tout ça (=PLAFOND(B2;"00:00:30") mais en vba comment traduire:

05:15:37 qui donne : 0.219178240740741 dans ma variable mais je ne peux pas mettre "00:00:30" en vba et c'est là que je bute
pour avoir ensuite 05:16:00 ?

 

Vote positif 0 Vote négatif

gosselien

XLDnaute Barbatruc

• 23 Août 2015

• #7

Re : arrondir un temps aux 30 secondes supérieures en VBA

Oups...et le gagnant est: Ivan

Merci de me l'expliquer svp , ça semble être ça

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 23 Août 2015

• #8

Re : arrondir un temps aux 30 secondes supérieures en VBA

Bonsour®


Dim MyVal as Double
=Application.WorksheetFunction.Ceiling(MyVal , TimeValue("00:00:30"))

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 23 Août 2015

• #9

Re : arrondir un temps aux 30 secondes supérieures en VBA

Heu ... si je ne m'abuse ...

60 * 24 * 2 = 2880
60 / 24 / 2 = 1/2880 = "0:00:30"

 

Vote positif 0 Vote négatif

gosselien

XLDnaute Barbatruc

• 23 Août 2015

• #10

Re : arrondir un temps aux 30 secondes supérieures en VBA

Wiiiii

pas pensé à utiliser ça de cette manière, merci Modeste !!! (et les autres)

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 23 Août 2015

• #11

Re : arrondir un temps aux 30 secondes supérieures en VBA

Re,

résumé des solutions

 

Pièces jointes

• Classeur1.xlsm

  14.8 KB · Affichages: 52
• Classeur1.xlsm

  14.8 KB · Affichages: 57

Vote positif 0 Vote négatif

gosselien

XLDnaute Barbatruc

• 23 Août 2015

• #12

Re : arrondir un temps aux 30 secondes supérieures en VBA

grrrr....
pour le début ça va mais à présentje patauge VRAIMENT avec les dates et les heures)

comment tester , pour ne pas en tenir compte, une cellule qui est < à 00:06:30 et > 23:30:00 ?
sorry mais ce n'est pas ma tasse de thé

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 23 Août 2015

• #13

Re : arrondir un temps aux 30 secondes supérieures en VBA

Re,

Modeste GD et moi venons de te fournir 2 exemples avec TimeValue

If Range("A1").value < timevalue("06:30:00") or Range("A1").value> timevalue("23:30:00") then

Dans la mesure où la cellule ne contient qu'une heure, pas une date et heure...

 

Vote positif 0 Vote négatif

gosselien

XLDnaute Barbatruc

• 23 Août 2015

• #14

Re : arrondir un temps aux 30 secondes supérieures en VBA

De fait.... un peu distrait sur le coup, mais il est tard

Encore merci !

Patrick

 

Vote positif 0 Vote négatif