OVH Cloud OVH Cloud

"Bug" de date

3 réponses
Avatar
ManBas
Bonsoir à tous,
Voici comment je saisi un format de date pour un fichier particulier:
Heur=Now
MyHeure = Hour(Heur)
MyMinute = Minute(Heur)
ActiveCell.Offset(0, 6).Value = MyHeure & MyMinute 'colonne H: date hhmm
format standart
L'avantage c'est que je peux facilement comparer les valeurs (>,<, etc...)
C'est presque bon...
Mais quand il est 20h04, l'affichage devient 204! Idem pour les autres cas
de figures avec 2x 0.
Que me suggerez-vous?
Merci de votre aide.

3 réponses

Avatar
Jacky
Bonsoir,
Que me suggerez-vous?
'------
ActiveCell.Offset(0, 7).Value = Format(Time, "hh mm")
'-------------
Pour reste dans ta logique::-(
'-----------
ActiveCell.Offset(0, 6).Value = Format(MyHeure & MyMinute, "00 00")
'--------
Salutations
JJ

"ManBas" a écrit dans le message de news:

Bonsoir à tous,
Voici comment je saisi un format de date pour un fichier particulier:
Heur=Now
MyHeure = Hour(Heur)
MyMinute = Minute(Heur)
ActiveCell.Offset(0, 6).Value = MyHeure & MyMinute 'colonne H: date hhmm
format standart
L'avantage c'est que je peux facilement comparer les valeurs (>,<, etc...)
C'est presque bon...
Mais quand il est 20h04, l'affichage devient 204! Idem pour les autres cas
de figures avec 2x 0.
Que me suggerez-vous?
Merci de votre aide.




Avatar
JB
Bonsoir,


ActiveCell.Offset(0, 6).Value = Now
ActiveCell.Offset(0, 6).NumberFormat = "h:mm"

En réalité, c'est un nombre compris entre 0 et 1 qui est dans la
cellule. C'est le format qui modifie l'affichage.

JB



Bonsoir à tous,
Voici comment je saisi un format de date pour un fichier particulier:
Heur=Now
MyHeure = Hour(Heur)
MyMinute = Minute(Heur)
ActiveCell.Offset(0, 6).Value = MyHeure & MyMinute 'colonne H: date hhmm
format standart
L'avantage c'est que je peux facilement comparer les valeurs (>,<, etc...)
C'est presque bon...
Mais quand il est 20h04, l'affichage devient 204! Idem pour les autres cas
de figures avec 2x 0.
Que me suggerez-vous?
Merci de votre aide.


Avatar
ManBas
Merci beaucoup à tous les deux.
ça me va bien.
A bientôt

"JB" a écrit dans le message de news:

Bonsoir,


ActiveCell.Offset(0, 6).Value = Now
ActiveCell.Offset(0, 6).NumberFormat = "h:mm"

En réalité, c'est un nombre compris entre 0 et 1 qui est dans la
cellule. C'est le format qui modifie l'affichage.

JB



Bonsoir à tous,
Voici comment je saisi un format de date pour un fichier particulier:
Heur=Now
MyHeure = Hour(Heur)
MyMinute = Minute(Heur)
ActiveCell.Offset(0, 6).Value = MyHeure & MyMinute 'colonne H: date hhmm
format standart
L'avantage c'est que je peux facilement comparer les valeurs (>,<, etc...)
C'est presque bon...
Mais quand il est 20h04, l'affichage devient 204! Idem pour les autres cas
de figures avec 2x 0.
Que me suggerez-vous?
Merci de votre aide.