transformer 2210 en 22:10 (heur) Résolu

Question

Bonsoir 
je tape souvent des heur dans mon  document excel et je souhaite savoir si c possible que excel me remplace automatiquement les ":" 
donc si j'ecrit 1000 il sauras que c'est 10:00
1452 <=> 14:52
es possible?

Utilisateur anonyme · Answer

Bonjour chix88,

Note que c'est le signe deux-points ( : ) qui permet à Excel de
différencier une heure (10:00 ou 14:52) d'un nombre (1000
ou 1452). Sais-tu que tu peux saisir 9: pour avoir 09:00 ?

Ce que tu proposes est déconseillé, même si tu dois saisir plusieurs
heures ; cependant, c'est tout à fait possible à condition de saisir
toujours 4 chiffres, et si tu donnes l'emplacement exact des cellules
où tu saisis tes heures, une macro événementielle pourra le faire.

Si ton problème est réglé, merci d'aller en haut de page
pour cliquer sur « Marquer comme résolu ».

Sinon, à te lire pour connaître ta plage de saisie
des heures ; exemple : B5:B200

Cordialement.  &#x1F60A;

chix88 · Answer

merci pour votre intervention
je crois que je viens de trouver une solution a mon probleme , reste a me confirmer si c'est toujours déconseiller de le faire ou non.
j'ai trouver sur un autre forum un cas pareil ou il veut changer des date un chiffre en date (convertir est de type 070205 (pour le 5 février 2007)) le lien en cas ou quelqu'un aura besoin
https://forum.ubuntu-fr.org/viewtopic.php?id=1367571
la fonction est 

 =DATE(GAUCHE(A1;2);STXT(A1;3;2);DROITE(A1;2))
j'ai donc changer la fonction DATE avec la fonction TEMPS ce qui donne dans mon cas
=TEMPS(GAUCHE(I57;2);STXT(I57;3;2);)
le seul probleme c'est que je dois crée une autre colonne pour taper 
moi je voulais ecrire le 2210 dans une colonne et avoir le résultat 22:10 dans la même colonne
si c'est fesable merci , sinon  je me contenterais de cette solution

Gyrus · Answer

Bonjour,

Voici une proposition qui utilise la procédure évènementielle WorkSheet.Change pour modifier la saisie dans la plage A2:A100.

Pour voir le code :
Clic droit sur l'onglet "Feuil1" puis visualiser le code.
https://www.cjoint.com/c/FJpgoG54pj8
A+

eriiic · Answer

Bonjour,

une autre proposition proche de celle de gyrus.
Pas de plage à définir, toute la feuille est supervisée mais on peut restreindre à une plage.
Une cellule n'est traitée que si on rencontre le format h:mm ou hh:mm et que ce soit une saisie numérique (les formules ne sont donc pas impactées) de 4 chiffres maxi, non déjà au format horaire. 
Mettre un format horaire reconnu définit donc que la cellule doit être traitée.
La saisie est possible aux formats : mm, hmm, hhmm, h:mm, hh:mm
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim pl_supervision As Range, c As Range
    Set pl_supervision = Cells ' mettre une plage si on veut restreindre
    
    On Error Resume Next
    Set pl_supervision = Intersect(Target, pl_supervision.SpecialCells(xlCellTypeConstants, xlNumbers))
    On Error GoTo 0
    If pl_supervision Is Nothing Then Exit Sub
    For Each c In pl_supervision
        If Left(c.NumberFormat, 4) = "h:mm" Or Left(c.NumberFormat, 5) = "hh:mm" Then
            If InStr(c, ":") = 0 And Len(c) < 5 Then
                Application.EnableEvents = False
                c = TimeValue(Left(Format(c, "0000"), 2) & ":" & Right(c, 2))
                Application.EnableEvents = True
            End If
        End If
    Next c
End Sub

eric

PS: on peut coller une plage
En essayant continuellement, on finit par réussir. 
Donc plus ça rate, plus on a de chances que ça marche.(les Shadoks)
En plus du merci (si si, ça se fait !!!), penser à mettre en résolu. Merci

Transformer 2210 en 22:10 (heur)

4 réponses

Discussions similaires

Newsletters