[XL-2016] Format heure xx:xx

Format heure xx:xx

Bonjour,

j'ai une cellule contenant une heure sous la forme 12:00 ou 12h

la forme 12:00 donne un nombre décimal du style 0,xxx

J'ai essayé de nombreux formats sans succès, l'enregistreur de macro me dit :
Code:

1 2 Selection.NumberFormat = "h:mm;@"
cela marche bien quand je modifie à la main le format de la cellule, mais pas dans ma macro VBA

voilà ma séquence :
Code:

1 2 3 4 5 6 imprim.Range("Z" & ligTS) = voyage.Range("E" & ligVoy) imprim.Range("Z" & ligTS).Select Selection.NumberFormat = "h:mm;@" Selection.HorizontalAlignment = xlCenter Selection.VerticalAlignment = xlCenter
J'ai toujours 0,xxx

Bonjour retraité
Il est peut-être temps de commencer à apprendre à devenir indépendant. Tout au moins pour des petites choses comme celle-ci.
Tu dis :

Citation:

cela marche bien quand je modifie à la main le format de la cellule, mais pas dans ma macro VBA

Bien.
Utilise alors l'enregistreur de macro -->> fais tes gestes qui "marchent bien" -->> arrête l'enregistreur et regarde le code écrit par l'enregistreur -->> voilà le code à écrire dans ta macro.
Commence par ailleurs à te débarrasser de cette mauvaise habitude de sélectionner puis de travailler sur la sélection.
Si l'enregistreur de macro le fait, c'est tout simplement parce que son rôle est d' "écrire" tous tes gestes.
Toi, agis directement -->> ainsi --->>
Code:

1 2 imprim.Range("Z" & ligTS).Select Selection.NumberFormat = ".......
s'écrit ainsi --->>

Code:

imprim.Range("Z" & ligTS).NumberFormat = "......."

Voilà tout.

Bonsoir
Eventuellement

Code:

1
2
3
Sub testhrs()
Cells(1, 1) = Format(Hour(Cells(1, 1)), "00") & ":" & Format(Minute(Cells(1, 1)), "00")
End Sub

Citation:

Commence par ailleurs à te débarrasser de cette mauvaise habitude de sélectionner puis de travailler sur la sélection.

Si tu le dis, je vais suivre ton conseil, mais en quoi ça gêne?

Citation:

mais en quoi ça gêne?

Facile à comprendre -->>
ralentissements ajoutés (le fait de se "promener")
clignotements ajoutés (le fait de se "promener" également)

Bonsoir,

Citation:

mais en quoi ça gêne?

Parce que le but de ce forum c'est d'aider les gens à s'émanciper dans le VBA.
Votre signature est : "Il ne savait pas que c'était impossible, alors il l'a fait...."
Tentons de ne pas transformer celle-ci en "Il ne savait pas que c'était impossible, alors il l'a fait faire"
Cordialement 8-)