Transformer nombre décimal en hh:mn en vba

C

Compte Supprimé 979

Guest

• 9 Décembre 2016

• #2

Bonjour

fenec à dit:

Comptant sur votre savoir je vous joint un fichier qui reprend ma problématique.

Cliquez pour agrandir...

Fichier qui reprend ta problématique !?

Alors elle est ouuuuuuu, elle est ouuuuuuu ;-)

A+

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 9 Décembre 2016

• #3

Bonjour à tous,

en voyant ceci dans le code présent sur la feuille, je ne pense pas que le code pourra s’exécuter

If zz.Address <> "$A$1" Then Exit Sub

à+
Philippe

 

Vote positif 0 Vote négatif

fenec

XLDnaute Impliqué

• 9 Décembre 2016

• #4

Re et bonjour BrunoM45, PhLaurent55

Phlaurent
Viens de tester en mettant en commentaire ce que tu as mentionné et je constate que je suis toujours aussi nul en vba
merci pour ton aide
A+
Philippe

 

Vote positif 0 Vote négatif

fenec

XLDnaute Impliqué

• 9 Décembre 2016

• #5

Re,
J'essayais en vain de spécifier ma plage dans le code .
Est -il possible de le faire par exemple:

If zz.Address <> "Plage" Then Exit Sub

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 9 Décembre 2016

• #6

Re,

la code sera activé si il y a changement dans la zone B5:C35
je n'ai pas testé le reste de la procédure

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("B5:C35")) Is Nothing Then
Application.EnableEvents = False
x = Format(zz, "00.00")
zz.Value = Left(x, 2) & ":" & Right(x, 2)
Application.EnableEvents = True
End If

End Sub

à+
Philippe

 

Vote positif 0 Vote négatif

fenec

XLDnaute Impliqué

• 9 Décembre 2016

• #7

Re,
Merci pour ton aide mais ca ne fonctionne pas
si je tape 7.30 ca me met 7.12 avec bloquage de la macro sur la ligne

Code:

zz.Value = Left(x, 2) & ":" & Right(x, 2)

A+
Philippe

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 9 Décembre 2016

• #8

Re,

c'est normal, 7.30 est un nombre décimal qui représente 7 heures et 30/100 d'heure
en réalité cela fait bien 7h12'

ce serait bien plus judicieux de saisir directement 7:30 et dans ce cas-là il n'y aura plus besoin de macro

à+
Philippe

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 12 Décembre 2016

• #9

Re,

Si toutefois, l'âne est têtu, qu'il ne veut pas utiliser le double-point et désire uniquement se servir du pavé numérique ce code fera l'affaire

Code:

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("B5:C35")) Is Nothing Then
Application.EnableEvents = False
Target = Replace(Target, ",", ":")
Application.EnableEvents = True
End If

End Sub

à+
Philippe

 

Vote positif 0 Vote négatif

fenec

XLDnaute Impliqué

• 12 Décembre 2016

• #10

Bonsoir le forum, phlaurent55

L'âne est plus paresseux que têtu. LOL
Votre code fait à moitié l'affaire, venant de tester si je tape 7.30 il m'écrit 7:03

A+
Philippe

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 12 Décembre 2016

• #11

Re,

fenec à dit:

Votre code fait à moitié l'affaire, venant de tester si je tape 7.30 il m'écrit 7:03

Cliquez pour agrandir...

et c'est le même comportement avec 7,10 7,20 7,40 7,50
.......... et je ne parviens pas à comprendre le pourquoi

à+
Philippe

 

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 12 Décembre 2016

• #12

bonsoir tout le monde,

ceci pourrait faire affaire pour ce que tu souhaites:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B5:C35")) Is Nothing Then
   Application.EnableEvents = False
   R$ = Replace(Target, ",", ".")
   V@ = Val(R$)
   H% = Int(V)
   M$ = Str(V - H): M$ = Replace(M$, ".", "")
   Target = Str(H) & ":" & M$
   Application.EnableEvents = True
End If
End Sub

 

Dernière édition: 13 Décembre 2016

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 12 Décembre 2016

• #13

Bonjour à tous,
Salut aux amis,

Tout avec le pavé numérique :



A+ à tous

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 12 Décembre 2016

• #14

Bonsoir à tous,

phlaurent55 à dit:

et c'est le même comportement avec 7,10 7,20 7,40 7,50
.......... et je ne parviens pas à comprendre le pourquoi

Cliquez pour agrandir...

C'est simple : Excel ne conserve pas les zéros non significatifs : 7,30 c'est donc 7,3.

Et ensuite 7:3 Excel comprend 7 heures 3 minutes donc 07:03.

Voyez ceci :

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B5:C35")) Is Nothing Then Exit Sub
Application.EnableEvents = False
Target = Replace(Format(Target, "0.00"), ",", ":")
Application.EnableEvents = True
End Sub

A+

 

Vote positif 0 Vote négatif

Regueiro

XLDnaute Impliqué

• 12 Décembre 2016

• #15

Bonsoir Le Forum
Une solution que j'utilise pour la saisie des heures.

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Set Var = Application.Intersect(Target, Range("B5:C35"))
If Target.Columns.Count = 1 And Target.Rows.Count = 1 Then
    If Not Var Is Nothing And IsNumeric(Target.Value) Then
        Target.Value = Left(Format(Target, "0000"), 2) & ":" & Right(Format(Target, "0000"), 2)
    End If
End If
Application.EnableEvents = True
End Sub

Avec le format personnalisé : [hh]:mm
Saisie des heures 1000 --> 10:00

 

Pièces jointes

• XLD Feuille de Pointage Forum.xls

  42.5 KB · Affichages: 49

Vote positif 0 Vote négatif