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

pascal21 · 30 Janvier 2017

bonjour le forum
job 75 m'avait fait ce bout de code pour entrer les heures sans avoir à taper sur le :
dans la cellule concernée l'heure s'affiche ensuite avec le :
mais je cherche le moyen de remplacer le : par un "h"
j'ai essayé plusieurs modifs sur le code mais quand le "h" s'inscrit il n'est pas considéré comme un format heure
j'ai essayé aussi clic droit/format de la cellule/format personnalisé hh"h"mm mais çà ne fonctionne pas sur les cellules concernées par la macro alors que çà fonctionne sur d'autres cellules
que modifier pour que çà fonctionne avec cette macro?
merci de votre aide

Code:

Application.ScreenUpdating = False
ActiveSheet.Unprotect
Dim r As Range, x$
Set r = Intersect(Target, [t6:x7,t11:x12,t16:x17,t21:x30,t33:x34])
''Set r = Intersect(Target, Me.UsedRange)
If r Is Nothing Then Exit Sub
Application.EnableEvents = False
r.NumberFormat = "General"
For Each r In r 'si entrées multiples (copier-coller)
  If r Like "#" Or r Like "##" Or r Like "###" Or r Like "####" Then
    x = Format(r, "0000")
  r = Left(x, 2) & ":" & Mid(x, 3)      ' ici j'ai remplacé le : par h mais ce n'est plus du format heure
    r.NumberFormat = "hh:mm"      'j'ai essayé ici hh"h"mm mais çà fonctionne pas
  End If
Next
ActiveSheet.Protect
Application.EnableEvents = True
Application.ScreenUpdating = True

Lone-wolf · 30 Janvier 2017

Bonjour Pascal , le Forum

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

eriiic · 30 Janvier 2017

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

mutzik · 30 Janvier 2017

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

Lone-wolf · 30 Janvier 2017

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

pascal21 · 30 Janvier 2017

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

pascal21 · 30 Janvier 2017

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

pascal21 · 30 Janvier 2017

çà 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

Dranreb · 30 Janvier 2017

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.

Dranreb · 30 Janvier 2017

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

eriiic · 30 Janvier 2017

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

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

pascal21

XLDnaute Barbatruc

Lone-wolf

XLDnaute Barbatruc

eriiic

XLDnaute Barbatruc

mutzik

XLDnaute Barbatruc

Lone-wolf

XLDnaute Barbatruc

pascal21

XLDnaute Barbatruc

pascal21

XLDnaute Barbatruc

pascal21

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

eriiic

XLDnaute Barbatruc

Discussions similaires