XL 2013 afficher des heures en format nombre

[stéphane97429]

Bonjour à tous
Pouvez vous me dire comment faire pour transformer l'affichage 02:55 en 2,92 dans la même cellule avec un code vba?
Merci d'avance
Steph.97429

 

[gosselien]

Bonjour,

à côté pour test 🙂
la zone en gris est nommée "GRIS"

P.

Sub Heur()
Dim c
For Each c In [gris]
   c.Offset(, 3) = c.Value * 24 ' enlever c.offset
Next
[gris].Offset(, 3).Select
Selection.Style = "Comma"
End Sub

 

[stéphane97429]

Bonjour Gosselien
Merci. Je n'arrive pas à utiliser votre code. Pour tout dire, je ne comprends pas ce que je dois enlever lorsque je lis votre code.
Cordialement
Stéph.97429

 

[gosselien]

Avec une copie PROCHE du fichier réel, ça serait plus facile ...ou le réel anonymisé 🙂

ici le c.offset(,3) mets le résultat 3 colonne à côté de chacune des cellules scannées dans la boucle for-next pour ne pas effacer les données originelles

 

[stéphane97429]

Bonsoir Gosselien
J'ai mis un fichier proche de celui que je veux utiliser.
Merci du temps que vous prenez pour me donner un "coup de main"
Steph.97429

 

[gosselien]

Ceci devrait convenir...

P.

 

[stéphane97429]

Merci beaucoup pour votre aide. C'est parfait.
Steph.97429