Discussion :

[sésé95]

Bonjour,
Je souhaite pouvoir saisir des heures en hh:mm et les convertir en décimale ou inversement.
Je ne peux pas utiliser de simples formules car il y a alors un problème de références circulaires.

Je tente par du VBA, j'ai créé un petit userform avec ces 2 champs : Heure (HEU) que je veux en hh:mm et décimal (DEC) avec 2 chiffres après la virgule.
Je veux pouvoir remplir l'un ou l'autre de ces 2 champs et avoir le résultat dans l'autre.
Mais mes connaissances ne sont pas assez bonnes pour mener à bien ce que je souhaite. Merci pour votre aide.

[Patrice740]

Bonjour,

Bonjour,
Je souhaite pouvoir saisir des heures en hh:mm et les convertir en décimale ou inversement.

Sans VBA, il suffit de multiplier le contenu de la cellule au format [h]:mm par 24 pour obtenir des heures décimales (et inversement diviser par 24).
Il faut mettre la cellule résultat au format standard (ou nombre avec xx décimales)

Le problème de référence circulaire est un problème de référence à la cellule concernée, VBA ne résoudra pas ce problème

[Menhir]

Est-ce qu'il pourrait arriver que la saisie "décimale" soit inférieure à 1 ?
Est-ce qu'il pourrait arriver que la saisie "heure:minute" soit supérieure à 24:00 ?

[sésé95]

Patrice, merci pour ton retour, mais je dois pouvoir saisir soit l'une, soit l'autre des infos, donc il me faudrait mettre une formule dans les 2 cellules, chacune se rapportant à l'autre, donc référence circulaire ...

Menhir, merci de ton retour. Il s'agit en fait d'un compteur horaire, donc les valeurs peuvent être inférieures à 1 et supérieures à 24h. On pourrait lire 234:30, ou 0,5 h.

[Patrice740]

Patrice, merci pour ton retour, mais je dois pouvoir saisir soit l'une, soit l'autre des infos, donc il me faudrait mettre une formule dans les 2 cellules, chacune se rapportant à l'autre, donc référence circulaire ...

Ou simplement employer 3 cellules : une pour la saisie horaire, une pour la saisie décimale et une dernière pour le résultat.
Il t'en restera encore plus de 17 milliards, c'est pas la peine d'économiser !

[Menhir]

Il reste une petite idée.
Dans un Worksheet_Change, analyser la propriété Text de la cellule.
Cette propriété donne le contenu de la cellule tel qu'il est affiché, donc en tenant compte du format.
Avec une fonction InStr(), tu pourras savoir si elle contient ou non un ":" et la modifier en fonction en la divisant ou multipliant par 24 et en lui appliquant le format souhaité avec la propriété FormatNumber.

Mais ça fait bien lourd pour une si petite chose.

[Patrice740]

Dans un Worksheet_Change, analyser la propriété Text de la cellule...

Le problème, c'est que lorsque la cellule est au format [h]:mm, la saisie d'un nombre décimal est automatiquement convertie, et donc on ne peut pas détecter la virgule !
Il faudrait passer par textbox, ou par l'API, je te dit pas l'usine à gaz ....