XL 2013 afficher des heures en format nombre

gosselien

XLDnaute Barbatruc

• 8 Juillet 2017

• #2

Bonjour,

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

P.

VB:

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

 

Vote positif 0 Vote négatif

S

stéphane97429

XLDnaute Nouveau

• 8 Juillet 2017

• #3

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

 

Vote positif 0 Vote négatif

gosselien

XLDnaute Barbatruc

• 8 Juillet 2017

• #4

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

 

Dernière édition: 8 Juillet 2017

Vote positif 0 Vote négatif

S

stéphane97429

XLDnaute Nouveau

• 8 Juillet 2017

• #5

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

 

Pièces jointes

• changement affichage.xlsm

  12.6 KB · Affichages: 38

Vote positif 0 Vote négatif

gosselien

XLDnaute Barbatruc

• 8 Juillet 2017

• #6

Ceci devrait convenir...

P.

 

Pièces jointes

• changement affichage (1).xlsm

  15.1 KB · Affichages: 35

Vote positif 0 Vote négatif

S

stéphane97429

XLDnaute Nouveau

• 8 Juillet 2017

• #7

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

 

Vote positif 0 Vote négatif