XL 2019 [Résolu] VBA test sur une cellule en format [hh]:mm

miloo · 2 Novembre 2023

Bonjour
Je cherche à faire un test sur un plage de cellules, du type:

VB:

If ThisWorkbook.Worksheets("TestMois").Cells(LignEmpl, 2).Value = "35:00:00"

et donc de vérifier quelles personnes d'un liste ont un horaire de travail de 35h. Les cellules sont au format [hh]:mm.
Lors du déroulement de la macro, je vois en mettant un espion que la valeur de la cellule est 1.45833333, donc je me dis que c'est une histoire de format, mais malgré mes recherches, je n'arrive pas à trouver une formule pour transformer 35:00 en 1.4583333.
Avez-vous une solution pour moi? Pour info, s'il y a un calcul à faire, j'aimerais qu'il se fasse dans la macro, et ne pas rajouter une colonne sur une feuille par exemple.
Merci, bonne soirée.

Emilien

Cousinhub · 2 Novembre 2023

Bonsoir,
2 manières de contrôler :

VB:

Sub test()
If Range("A1").Value = 35 / 24 Then MsgBox "35:00:00"
If Range("A1").Text = "35:00:00" Then MsgBox "35:00:00"
End Sub

Bonne soirée

Cousinhub · 2 Novembre 2023

Bonsoir,
2 manières de contrôler :

VB:

Sub test()
If Range("A1").Value = 35 / 24 Then MsgBox "35:00:00"
If Range("A1").Text = "35:00:00" Then MsgBox "35:00:00"
End Sub

Bonne soirée

Dranreb · 2 Novembre 2023

Bonsoir.
Il y a quand même aussi :

VB:

If Range("A1").Value = TimeSerial(35, 0, 0) Then MsgBox "35:00:00"

patricktoulon · 2 Novembre 2023

bonsoir
ou tout simplement
If Range("A1").text= "35:00:00" Then MsgBox "35:00:00"
LOL
edit: j'avais pas bien vu la 2d ligne de @Cousinhub

miloo · 2 Novembre 2023

Merci à tous pour vos réponses, les 3 solutions fonctionnent. Pourquoi n'ai-je pas pensé au .Text = "35:00:00" ?? et au .Value = 35/24 ??
Ca me parait évident maintenant.
Merci encore @Cousinhub , @Dranreb , @patricktoulon !

XL 2019 [Résolu] VBA test sur une cellule en format [hh]:mm

miloo

XLDnaute Junior

Cousinhub

Cousinhub

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

miloo

XLDnaute Junior

Discussions similaires