(Résolu) format automatique heure

[crown54]

Bonjour à tous,
je souhaiterais pouvoir faire du calcul horaire sur mes badgeages 2017. J'aimerais simplifier la saisie en évitant de taper les : systématiquement. Un format de cellule de ce style ##\:## fonctionne sauf que du coup je ne peux effectuer aucun calcul. Y a t-il un moyen macro ou format personnalisé qui permette ceci.
D'avance merci
Cordialement,

 

[Dranreb]

Bon, on peut y ajouter des conditions pour qu'elle ne réagisse pas à la modification du contenu de n'importe quelle cellule :

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect([B:M], Target) Is Nothing Then Exit Sub
If Target.Rows.Count <> 1 Or Target.Columns.Count <> 1 Then Exit Sub
If Target.Row <= 3 Then Exit Sub
If Target.Value < 1 Then Exit Sub
Application.EnableEvents = False
Target.Value = TimeSerial(Target.Value \ 100, Target.Value Mod 100, 0)
Application.EnableEvents = True
End Sub

Peut être Application.EnableEvents est resté False suite à une fausse manip ?
Joignez le classeur équipé de ma macro, contrairement à celui joint.

 

[crown54]

avez vous essayez sur le fichier joint Drandreb. Ca ne marche pas

 

[Dranreb]

Oui, j'ai mis la macro dans le module de l'objet Worksheet Feuil1 et ça a marché.
Il faut dire que chez moi les macros sont toujours activées, et que j'ai une macro pour remettre Application.EnableEvents à True pour le cas ou il aurait été est laissé à False par une macro qui a planté avant de le remettre True.

 

[crown54]

pouvez vous me renvoyer le fichier avec la macro en place que je teste svp?

 

[Dranreb]

Voilà.

 

[crown54]

effectivement cela fonctionne alors je ne comprends pas pourquoi ça ne marchait pas tout à l'heure. En tout cas merci pour votre patience.
Bonne soirée

 

[crown54]

bonjour je reviens vers vous pour une explication.
J'ai créé un nouvel onglet pour 2018, copié la macro mais cela ne fonctionne pourriez-vous m'éclairer svp?
Merci encore

 

[Dranreb]

Bonjour.
Si, ça fonctionne. Le seul problème c'est qu'il y a un format de cellule h:mm:ss;@ sur les cellules et qu'elles ne sont pas assez larges pour tout afficher, alors ça affiche #####.
Vous pourriez d'ailleurs y remédier en ajoutant cette instruction :

Target.NumberFormat = "h:mm;@"

La Sub InsereLign() derrière ne sert à rien, elle n'était pas de moi.

 

[crown54]

Bonjour.
Si, ça fonctionne. Le seul problème c'est qu'il y a un format de cellule h:mm:ss;@ sur les cellules et qu'elles ne sont pas assez larges pour tout afficher, alors ça affiche #####.
Vous pourriez d'ailleurs y remédier en ajoutant cette instruction :

Target.NumberFormat = "h:mm;@"

La Sub InsereLign() derrière ne sert à rien, elle n'était pas de moi.

on parle bien de l'onglet 2018. Chez moi cela ne fonctionne pas et pourtant toutes les cellules sont bien au format h:mm.
Je n'y comprends rien il doit y avoir un truc chez moi qui bug!
La ligne derrière a une utilité mais seulement à la création du tableau en appliquant la macro insérer une ligne.

 

[Dranreb]

Dans le classeur joint, en tout cas, il y a le format d'heure avec les secondes dans les colonnes B:M de la feuille 2018.

 

[crown54]

effectivement ça n'est pas le bon fichier. Mais en repassant en h:mm ça ne change rien.
Voilà le bon fichier en pj + des copies écran du problème rencontré.

 

[Dranreb]

Ça ne marche qu'à partir de la ligne 4.
C'est peut être un erreur de ma part, en tout cas il faut If Target.Row <= 2 Then Exit Sub en 3ième instruction.

 

[crown54]

merci ça fonctionne cette fois!!
Puis je abuser et demander comment fonctionne la macro ligne par ligne si vous avez du temps? J'aimerai comprendre pour m'améliorer
En tout cas un grand merci

 

[Dranreb]

Dites moi plutôt ce sue vous ne comprenez pas.
Parce que la moitié des instructions au début de la procédure consiste à en sortir tout de suite s'il n'y a pas lieu de continuer, donc si la plage changée n'est pas dans les colonne B:M, s'il y a plus d'1 cellule changée, si elle est dans une ligne avant la 3, enfin si elle porte déjà une valeur interprétable comme une durée inférieure à 1 jour.

 

[crown54]

ok merci pour votre réponse. Je comprends mieux
par contre cette ligne là pourriez-vous me l'expliquer plus en détail svp?
Target.Value = TimeSerial(Target.Value \ 100, Target.Value Mod 100, 0)
merci