arrondir heures au plus bas

[olive323]

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]

Re : arrondir heures au plus bas

Bonjour Olive,

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]

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]

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

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

Peut donner

Sheets(1).range("A1")

ou

Feuil1.range("A1")