Discussion :

[retraite83]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[unparia]

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 :

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
imprim.Range("Z" & ligTS).Select
Selection.NumberFormat = ".......

s'écrit ainsi --->>

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Voilà tout.

[hyperion13]

Bonsoir
Eventuellement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[retraite83]

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?

[unparia]

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)

[Transitoire]

Bonsoir,

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