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

[miloo]

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

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]

Bonsoir,
2 manières de contrôler :

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]

Bonsoir.
Il y a quand même aussi :

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

 

[patricktoulon]

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]

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 !