arrondir heures au plus bas

olive323 · 15 Novembre 2011

Bonjour à tous

Avec cet extrait de code j'arrondi au plus haut
par exemple 04:11:00 devient 04:15:00. etc...
je souhaiterais faire le contraire, 04:11:00 devienne 04:10
Mais je bug??

ActiveCell.Value = Application.WorksheetFunction.Ceiling(Time, 0.00347222)

j'aimerais aussi pouvoir renommer mon onglet sans avoir a modifier """Sheets("Pointage")"""dans la macro???

Petit exemple joint

Cordialement

Olive323

KenDev · 15 Novembre 2011

Re : arrondir heures au plus bas

Bonjour Olive,

VB:

If Time = Application.WorksheetFunction.Ceiling(Time, 0.00347222) Then
    ActiveCell.Value = Application.WorksheetFunction.Ceiling(Time, 0.00347222)
Else
    ActiveCell.Value = Application.WorksheetFunction.Ceiling(Time, 0.00347222) - 0.00347222
End If

devrait faire l'affaire ? Cordialement

KD

olive323 · 15 Novembre 2011

Re : arrondir heures au plus bas

Bonjour Ken,

Je viens de tester nikel ca fait l'affaire.

Merci beaucoup
Bonne journée
Cordialement

Olive

tototiti2008 · 15 Novembre 2011

Re : arrondir heures au plus bas

Bonjour Olive, Bonjour KenDev,

Pour la partie

j'aimerais aussi pouvoir renommer mon onglet sans avoir a modifier """Sheets("Pointage")"""dans la macro???

Tu peux appeler Sheets(1), mais ça dépend de l'ordre des feuilles dans le classeur
ou Feuil1, en fonction du nom afficher dans l'éditeur VBA (CodeName), dans l'explorateur de projets

Code:

Sheets("Pointage").range("A1")

Peut donner

Code:

Sheets(1).range("A1")

ou

Code:

Feuil1.range("A1")

arrondir heures au plus bas

olive323

XLDnaute Occasionnel

Pièces jointes

KenDev

XLDnaute Impliqué

olive323

XLDnaute Occasionnel

tototiti2008

XLDnaute Barbatruc

Discussions similaires