Transformer nombre décimal en hh:mn en vba

[fenec]

Bonjour le forum

Une fois de plus besoin de votre aide car je ne parviens pas à modifier mon code pour l'appliquer à une plage de cellule.
Comptant sur votre savoir je vous joint un fichier qui reprend ma problématique.
Cordialement,
Philippe.

 

[Compte Supprimé 979]

Bonjour

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

Fichier qui reprend ta problématique !?

Alors elle est ouuuuuuu, elle est ouuuuuuu ;-)

A+

 

[phlaurent55]

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

 

[fenec]

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

 

[fenec]

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

 

[phlaurent55]

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

 

[fenec]

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

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

A+
Philippe

 

[phlaurent55]

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

 

[phlaurent55]

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

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

 

[fenec]

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

 

[phlaurent55]

Re,

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

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

 

[Roland_M]

bonsoir tout le monde,

ceci pourrait faire affaire pour ce que tu souhaites:

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

 

[JCGL]

Bonjour à tous,
Salut aux amis,

Tout avec le pavé numérique :

A+ à tous

 

[job75]

Bonsoir à tous,

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

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 :

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+

 

[Regueiro]

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

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