vba afficher un "h" à la place du ":" pour les heures

Lone-wolf

XLDnaute Barbatruc

• 30 Janvier 2017

• #2

Bonjour Pascal 🙂, le Forum 🙂

As-tu essaié r = Replace(r, ":", "h") ?

 

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 30 Janvier 2017

• #3

Bonjour,

VB:

r.NumberFormat = "hh""h""mm"

Mais je me demande en quoi les 2 .NumberFormat sont nécessaires si ces cellules sont destinées à ne recevoir que des heures (?)
eric

 

Vote positif 0 Vote négatif

mutzik

XLDnaute Barbatruc

• 30 Janvier 2017

• #4

bonjour,

ben, soit c'est un format heure avec : et tu pourras l'utiliser dans tes calculs
soit tu remplaces le : par un h, mais avant de pouvoir l'utiliser dans les calculs, il faudra convertir ce texte en hh:mm:ss
en utilisant temps(hh;mm;ss) et les formules de conversion de texte gauche, droite et stxt
tout cela suppose évidemment que ton temps texte soit toujours du même format

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 30 Janvier 2017

• #5

Bonjour Eric 🙂

J'ai testé comme ceci

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
x = #12:45:00 PM#
[D4] = x
[D4] = Replace(Left(x, 3), ":", "h") & Right(x, 2)
Cancel = True
End Sub

EDIT: bonjour Bertrand 🙂

 

Vote positif 0 Vote négatif

pascal21

XLDnaute Barbatruc

• 30 Janvier 2017

• #6

bonjour
oui j'avais essayé ce code mais çà ne fonctionnait pas non plus

 

Dernière édition: 30 Janvier 2017

Vote positif 0 Vote négatif

pascal21

XLDnaute Barbatruc

• 30 Janvier 2017

• #7

bonjour lonewolf
meme en adaptant il semblerait que çà ne soit pas considéré comme du format heures

 

Vote positif 0 Vote négatif

pascal21

XLDnaute Barbatruc

• 30 Janvier 2017

• #8

çà semble compliqué en vba alors que en format personnalisé çà fonctionne parfaitement
le soucis est que je n'arrive pas à "forcer" le format personnalisé avec la macro

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 30 Janvier 2017

• #9

Bonjour.

VB:

Sub t()
Dim H#
H = [B2].Value
If H > 1 Then [B2].Value = TimeSerial(H \ 100, H Mod 100, 0)
[B2].NumberFormat = "hh\h mm"
End Sub

Pour éviter d'avoir à ne pas oublier de doubler les doubles guillemets.

 

Dernière édition: 30 Janvier 2017

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 30 Janvier 2017

• #10

Pour couvrir d'autre cas :

VB:

Dim H As Variant
With [B2]
   H = .Value
   Select Case VarType(H)
      Case vbDouble: If H > 1 Then H = TimeSerial(H \ 100, H Mod 100, 0)
      Case vbString: H = TimeValue(Replace(H, "h", ":")): End Select
   .Value = H: .NumberFormat = "hh\h mm": End With

 

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 30 Janvier 2017

• #11

Faut tout lire pascal21 : https://www.excel-downloads.com/threads/vba-afficher-un-h-a-la-place-du-pour-les-heures.20014768/

 

Vote positif 0 Vote négatif